投稿日 | : 2004/02/23(Mon) 16:25 |
投稿者 | : ひでかず |
Eメール | : |
URL | : |
タイトル | : Re: ファイル操作について |
> はじめまして。会社でプログラムをしておりましてよく利用させていただいてます。
>
> あるディレクトリにあるファイルを新規フォルダにコピーしたいのですが、うまくいきません。
> ご存知のかた教えてください。
>
> ---------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
>
>
> このような処理をするのが初めてなもので、上の記述が正解とも思えないのです。
> (適当になってみました)
>
> ご存知の方〜
> 宜しくお願いします
コピー先の指定の仕方が間違っているだけではないですかね?
コピー先をフルパスで指定すればいけると思いますが。