Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2198 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【3463】ファイル名（.txt）をACCESSから変更したい ocha 04/9/9(木) 13:14 質問[未読]
【3468】Re:ファイル名（.txt）をACCESSから変更した... クロ 04/9/9(木) 14:36 回答[未読]
【3481】Re:ファイル名（.txt）をACCESSから変更した... ocha 04/9/9(木) 18:26 お礼[未読]
【3500】Re:ファイル名（.txt）をACCESSから変更した... Gin_II 04/9/13(月) 23:25 回答[未読]
【3463】ファイル名（.txt）をACCESSから変更したい
質問  ocha  - 04/9/9(木) 13:14 -
引用なし
パスワード
   テキストファイルをインポートし後、
元のファイルの名前を変えて、他のフォルダに移そうとしています。
movefileを使えばいいのかな？と思うのですが、
object.movefile 元ファイル,移動先ファイル
のobdectの部分になにをいれたらいいのか分かりません。

どなたか教えてください。
【3468】Re:ファイル名（.txt）をACCESSから変更し...
回答  クロ  - 04/9/9(木) 14:36 -
引用なし
パスワード
   Dim OldFileN As String, NewFileN As String
Dim OldPath As String, NewPath As String
Dim fso, f
'古いファイル名
OldFileN = "ファイル.txt"
'古いファイルの在処
OldPath = "D:\"
'新しいファイル名 旧ファイル名の前に年月を付ける
NewFileN = Year(Date) & Format(Month(Date), "00") & OldFileN
'新しいファイルの置き場
NewPath = "D:\Temp\"

　 Set fso = CreateObject("Scripting.FileSystemObject")
　 Set f = fso.GetFile(OldPath & OldFileN)
　 f.Name = NewFileN
　 fso.MoveFile OldPath & NewFileN, NewPath

こんな感じてどうでしょうか？
【3481】Re:ファイル名（.txt）をACCESSから変更し...
お礼  ocha  - 04/9/9(木) 18:26 -
引用なし
パスワード
   ありがとうございます、なんとか出来そうです。
助かりました！！
【3500】Re:ファイル名（.txt）をACCESSから変更し...
回答  Gin_II  - 04/9/13(月) 23:25 -
引用なし
パスワード
   ▼ocha さん：
>テキストファイルをインポートし後、
>元のファイルの名前を変えて、他のフォルダに移そうとしています。
>movefileを使えばいいのかな？と思うのですが、
>object.movefile 元ファイル,移動先ファイル
>のobdectの部分になにをいれたらいいのか分かりません。
>
>どなたか教えてください。

解決済みみたいですが。。（一応。。）
ファイル名の変更・フォルダの移動には、VBAの

Name ステートメント
を使えば大丈夫です。

もちろん、FileSystemObject でもぜんぜん構いませんけど。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2198 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078299
(SS)C-BOARD v3.8 is Free