Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7554 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【38264】ファイル名の変更 ゆっけ 06/5/30(火) 18:56 質問[未読]
【38266】Re:ファイル名の変更 ぱっせんじゃー 06/5/30(火) 19:30 発言[未読]
【38269】Re:ファイル名の変更 ゆっけ 06/5/30(火) 20:01 お礼[未読]
【38267】Re:ファイル名の変更 ponpon 06/5/30(火) 19:46 発言[未読]
【38270】Re:ファイル名の変更 ゆっけ 06/5/30(火) 20:08 質問[未読]
【38271】Re:ファイル名の変更 ぱっせんじゃー 06/5/30(火) 20:25 発言[未読]
【38289】Re:ファイル名の変更 ponpon 06/5/30(火) 23:22 発言[未読]
【38293】Re:ファイル名の変更 Blue 06/5/30(火) 23:37 発言[未読]
【38295】Re:ファイル名の変更 ponpon 06/5/30(火) 23:52 お礼[未読]
【38297】Re:ファイル名の変更 ゆっけ 06/5/31(水) 0:23 お礼[未読]
【38264】ファイル名の変更
質問  ゆっけ  - 06/5/30(火) 18:56 -
引用なし
パスワード
   またまたすみません・・・
Aフォルダの中のファイル名を全て
大文字にしたいんですが、どうすればいいでしょうか。

ちなみにファイルの拡張子はすべて、.dwg
です。
【38266】Re:ファイル名の変更
発言  ぱっせんじゃー  - 06/5/30(火) 19:30 -
引用なし
パスワード
   今日仕事で似たようなものを作りましたので・・・。

Dir
Ucase
をヘルプで調べてみてください。
Lcaseもね。

Sub itiran()
Dim MyDir As String
Dim Fmei As String
Dim i As Long
　MyDir = "D:\test"
　Fmei = Dir(MyDir & "\*.dwg")
　 Do While Fmei <> ""
　　Name MyDir & "\" & Fmei As MyDir & "\" & UCase(Fmei)
　　Fmei = Dir()
　 Loop
End Sub
【38267】Re:ファイル名の変更
発言  ponpon  - 06/5/30(火) 19:46 -
引用なし
パスワード
   すでに回答がありますが、せっかく作ったので

Sub test()
　　Dim myFile As String
　　Dim NewNm As String
　　Const myPath As String = "C:\A"　'実際の場所に変えてください
　　
　　myFile = Dir(myPath & "\" & "*.dwg")
　　Do While myFile <> ""
　　　 NewNm = myPath & "\" & StrConv(Left$(myFile, Len(myFile) - 4), vbUpperCase) & ".dwg"
　　　 Name myPath & "\" & myFile As NewNm
　　　 myFile = Dir()
　　Loop
End Sub
【38269】Re:ファイル名の変更
お礼  ゆっけ  - 06/5/30(火) 20:01 -
引用なし
パスワード
   ▼ぱっせんじゃー さん：
ご親切にありがとうございました。
大変助かりました(^_^)
【38270】Re:ファイル名の変更
質問  ゆっけ  - 06/5/30(火) 20:08 -
引用なし
パスワード
   ▼ponpon さん：
StrConv(Left$(myFile, Len(myFile) - 4), vbUpperCase) & ".dwg"

ありがとうございますポンポンさん(^-^)

ついでにですが、上のコードはどういった内容を表しているのですか？
良かったら教えて下さい！
【38271】Re:ファイル名の変更
発言  ぱっせんじゃー  - 06/5/30(火) 20:25 -
引用なし
パスワード
   それぞれの単語の意味はＶＢＡヘルプにあると思いますよ。
【38289】Re:ファイル名の変更
発言  ponpon  - 06/5/30(火) 23:22 -
引用なし
パスワード
   ▼ゆっけ さん：

>StrConv(Left$(myFile, Len(myFile) - 4), vbUpperCase) & ".dwg"

StrConv
　文字列変換関数　文字列を小文字や大文字、カタカナやひらがななどに変換します。
Left
　文字列関数　文字列を左から指定した数だけ抽出します。
Len
　文字列関数　文字列の文字数を返します。
したがって、
　myFileに格納したファイル名の文字数から".dwg"の4文字分を引いたもの（拡張子を除くファイル名）をvbUpperCase（大文字）にして、".dwg"をくっつける。

これ以外にも、
　Instr関数で"."を見つけ、それより前を抽出して、大文字にするなんて方法も
あると思います。
　抽出は、Leftでなくて、Mid関数でもできます。
詳しくは、ヘルプを参考にしてください。

　ちなみに、Left$の"$"は、なくてもいいですが、あると処理速度が速くなると
どこかで読んだような気がします。Keinさんのまねごとです。
　詳しい人は、教えてください。
【38293】Re:ファイル名の変更
発言  Blue  - 06/5/30(火) 23:37 -
引用なし
パスワード
   ▼ponpon さん：
>　ちなみに、Left$の"$"は、なくてもいいですが、あると処理速度が速くなると
>どこかで読んだような気がします。
ヘルプの「関数からの文字列の取得」の項目に
<引用>
次の関数は関数名にドル記号 ($) を追加すると、文字列型 (String) の値を
返します。これらの関数は、ドル記号を付けずに使用すると、バリアント型
(Variant) の値を返します。使用方法と構文は、文字列型 (String) も
バリアント型 (Variant) も同じです。

Chr$ ChrB$ Command$ CurDir$ Date$ Dir$ Error$ Format$ Hex$
Input$ InputB$ LCase$ Left$ LeftB$ LTrim$ Mid$ MidB$ Oct$
Right$ RightB$ RTrim$ Space$ Str$ String$ Time$ Trim$ UCase$
</引用>

とあります。内部での扱いが違うから、速度に差が出るわけですね。
【38295】Re:ファイル名の変更
お礼  ponpon  - 06/5/30(火) 23:52 -
引用なし
パスワード
   ▼Blue さん：
早速の回答ありがとうございます。

>ヘルプの「関数からの文字列の取得」の項目に

ヘルプもなかなか思うような項目にたどり着けません。
単語から検索してのヘルプはいつも使い、たいてい関連項目にも
目を通しています。
たぶん前にこの項目のヘルプを目にしているはずなんですが(^^;)
【38297】Re:ファイル名の変更
お礼  ゆっけ  - 06/5/31(水) 0:23 -
引用なし
パスワード
   皆様方

大変ありがとうございました。

理解出来ました^^活用させていただきます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7554 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free