|
▼初心者 さん:
データファイルが「.xls」や「.txt」などの拡張子がある時のみですが…。
Sub DataBkup()
Dim FSO As Object
Dim MyFile As Variant
Dim MyPath As Variant
Dim vFile As Variant
MyFile = "C:\test.txt" 'データファイルをフルパスで指定
MyPath = "C:\DATA\" 'コピー先のフォルダを指定
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile MyFile, MyPath
Set vFile = FSO.GetFile _
(MyPath & Right(MyFile, Len(MyFile) - InStrRev(MyFile, "\")))
vFile.Name = Format(Now(), "mmdd_hh_mm") & Right(MyFile, 4)
Set vFile = Nothing
Set FSO = Nothing
End Sub
Set vFile = Nothing
Set FSO = Nothing
End Sub
こんなのはどうでしょうか?
|
|