投稿日 | : 2004/02/24(Tue) 09:30 |
投稿者 | : UEKEIDA |
Eメール | : uekeida1969@yahoo.co.jp |
URL | : |
タイトル | : 色々ありがとうございました |
なんとか解決できました。最終的にはフルパス指定なんですかね〜
Last Code
Private Sub Command1_Click()
Dim objFileSystem As Object
Dim strFolderName As String
Dim SysDate As String
SysDate = Format(Date, "yyyymmdd") & Format(Time, "hhmmss")
strFolderName = "C:\Bin5\受注\"
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
objFileSystem.CreateFolder (strFolderName + SysDate)
objFileSystem.CopyFile "C:\Bin5\受注\Today\受注データ.xls", _
"C:\Bin5\受注\" & SysDate & "\受注データ.xls"
Set objFileSystem = Nothing
End Sub
ありがとうございました。