投稿日 | : 2004/02/23(Mon) 16:29 |
投稿者 | : ひでかず |
Eメール | : |
URL | : |
タイトル | : Re: ファイル操作について |
Dim objFileSystem As Object
Dim strFolderName As String
Dim SysDate As String
SysDate = Format(Date, "yyyymmdd") & Format(Time, "hhmmss")
strFolderName = "C:\Data\受注\"
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
objFileSystem.CreateFolder (strFolderName + SysDate)
objFileSystem.CopyFile "\Bin5\受注\Today\受注データ.xls", ("" & SysDate & "\受注データ.xls")
Set objFileSystem = Nothing