投稿日 | : 2004/02/24(Tue) 08:38 |
投稿者 | : UEKEIDA |
Eメール | : uekeida1969@yahoo.co.jp |
URL | : |
タイトル | : Re^2: ファイル操作について |
> 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
やはりここだけうまく取得してくれないんですよ
objFileSystem.CopyFile "\Bin5\受注\Today\受注データ.xls", ("" & SysDa
te & "\受注データ.xls")
("" & SysDate & "\受注データ.xls")にしか問題なさそうなんですが。
変数を当てるのがだめなんですかね〜