Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

57250 / 76738

←次へ　｜　前へ→


	【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