Excel VBA質問箱 IV

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

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


57244 / 76732 ←次へ | 前へ→

【24225】Re:ファイル名を日付にする
回答  小僧  - 05/4/15(金) 23:44 -

引用なし
パスワード
   ▼初心者 さん  ウッシさん
こんばんは。

Sub DataBkup()

Dim FSO As Object
Dim MyFile As Variant
Dim MyPath As Variant
Dim vFile As Variant
Dim Cnt As Long
Dim FileName As String

  Set FSO = CreateObject("Scripting.FileSystemObject")
  MyFile = "C:\test.txt"   'データファイルをフルパスで指定
  MyPath = "C:\backup\"     'コピー先のフォルダを指定

  FSO.CopyFile MyFile, MyPath

  Set vFile = FSO.GetFile _
  (MyPath & Right(MyFile, Len(MyFile) - InStrRev(MyFile, "\")))

  FileName = Format(Now(), "mmdd_hh_mm") & Right(MyFile, 4)

  Cnt = 1
  Do While FSO.FileExists(MyPath & FileName)
    FileName = Format(Now(), "mmdd_hh_mm") & "_" & _
          Cnt & Right(MyFile, 4)
    Cnt = Cnt + 1
  Loop
  
  vFile.Name = FileName
  Set vFile = Nothing
  Set FSO = Nothing
End Sub

あまり綺麗なコードではありませんが、
とりあえず動くと思われます。

0 hits

【24143】ファイル名を日付にする 初心者 05/4/13(水) 11:52 質問
【24144】Re:ファイル名を日付にする おさる 05/4/13(水) 12:42 回答
【24147】Re:ファイル名を日付にする Kein 05/4/13(水) 13:32 回答
【24148】Re:ファイル名を日付にする 小僧 05/4/13(水) 13:58 回答
【24209】Re:ファイル名を日付にする 初心者 05/4/15(金) 16:45 お礼
【24218】Re:ファイル名を日付にする ウッシ 05/4/15(金) 20:25 発言
【24224】Re:ファイル名を日付にする 初心者 05/4/15(金) 23:41 お礼
【24225】Re:ファイル名を日付にする 小僧 05/4/15(金) 23:44 回答
【24250】Re:ファイル名を日付にする YN61 05/4/17(日) 13:45 質問
【24253】Re:ファイル名を日付にする Hirofumi 05/4/17(日) 19:07 回答
【24258】Re:ファイル名を日付にする YN61 05/4/17(日) 21:57 質問
【24266】Re:ファイル名を日付にする 小僧 05/4/18(月) 9:18 回答
【24359】Re:ファイル名を日付にする 初心者 05/4/20(水) 15:27 お礼

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