|
▼小僧 さん:
突然ですみません、貴殿のコードで小生もファイル名をつけて見ようと
試しましたが、バグが出ます。何が原因かお分かりでしたら
教えてください。※マークの部分です。
>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
|
|