Excel VBA質問箱 IV

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

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


43513 / 76732 ←次へ | 前へ→

【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
5 hits

【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 お礼

43513 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free