|
▼Hirofumi さん YN61 さん:
おはようございます。
>1、Loopの中でNow()を使って要る所
>2、Copyしてから名前を変えるのでは無く、違う名前でCopyし方が善い様な気がし>ます
以上の2点をふまえて…
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\」
が存在していない事が考えられますが…。
外していたら申し訳ないです。
|
|