| 投稿日 | ： 2004/02/23(Mon) 15:11 |
| 投稿者 | ： UEKEIDA |
| Ｅメール | ： uekeida1969@yahoo.co.jp |
| ＵＲＬ | ： |
| タイトル | ： ファイル操作について |
はじめまして。会社でプログラムをしておりましてよく利用させていただいてます。
あるディレクトリにあるファイルを新規フォルダにコピーしたいのですが、うまくいきません。
ご存知のかた教えてください。
---------Sample Code
Dim objFileSystem As Object
Dim strFolderName As String
Dim SysDate As String
Dim Fso As New FileSystemObject
Dim FsoFile As File
'現在時刻
SysDate = Format(Date, "yyyymmdd") & Format(Time, "hhmmss")
strFolderName = "C:\Data\受注\"
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
'現在時刻名でフォルダを作成
objFileSystem.CreateFolder (strFolderName + SysDate)
Set objFileSystem = Nothing
&&&&&&ここまではうまくいきました。
'この中にある受注データファイルを上で作成したフォルダにコピーしたいのです
Set FsoFile = Fso.GetFile("\Data\受注\Today\受注データ.xls")
'上記作成フォルダのパスが取得できずにうまくいきません。
'(SysDate)の変数をうまく認識できないみたいです
Fso.CopyFile "\Bin5\受注\Today\受注データ.xls", ("" & SysDate &
amp; "\受注データ.xls")
Set FsoFile = Nothing
このような処理をするのが初めてなもので、上の記述が正解とも思えないのです。
(適当になってみました)
ご存知の方〜
宜しくお願いします