Excel VBA質問箱 IV

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

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


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

57204 / 76732

←次へ　｜　前へ→


	【24266】Re:ファイル名を日付にする

小僧 - 05/4/18(月) 9:18 -


	引用なし

	パスワード

▼Hirofumi さん　 YN61 さん：
おはようございます。

>1、Loopの中でNow()を使って要る所
>2、Copyしてから名前を変えるのでは無く、違う名前でCopyし方が善い様な気がし>ます

以上の２点をふまえて…

Sub DataBkup()
Dim FSO As Object
Dim MyFile As String
Dim MyPath As Variant
Dim MyExt As String
Dim Cnt As Long
Dim FileName As String

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

　　MyExt = FSO.GetExtensionName(MyFile)
　　FileName = Format(Now(), "mmdd_hh_mm") & "." & MyExt
　　
　　Cnt = 1
　　Do While FSO.FileExists(MyPath & FileName)
　　　　FileName = Left(FileName, 10) & "_" & Cnt & "." & MyExt
　　　　Cnt = Cnt + 1
　　Loop
　
　　FSO.CopyFile MyFile, MyPath & FileName
　　Set FSO = Nothing
End Sub

>「実行エラー53」
>「ファイルが見つかりません」となります。

元になるファイル「C:\test.txt」とコピー先のフォルダ「C:\backup\」
が存在していない事が考えられますが…。
外していたら申し訳ないです。

0 hits

▼

【24143】ファイル名を日付にする 初心者 05/4/13(水) 11:52