プログラミング

プログラミングに関するフォーラムです。VBAは除きます。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
再びvbsのCopyFolderの疑問
投稿日時: 17/04/24 07:48:22
投稿者: hisayanxp

ドキュメントのAAAのフォルダの中のCCCというエクセルファイルをデスクトップのBackUpフォルダにコピーしようとした記述で、実行すると
「9行1文字、パスが見つかりません」と表示されます。
パスを確認すると間違っていません。記述のどこに問題があるでしょうか?よろしくお願いします。
 
Dim fso
Dim TargetFile
Dim DestFolder
 
Set fso = CreateObject("Scripting.FileSystemObject")
TargetFile = "C:\Users\pc1\Documents\AAA\ccc.xlsx"
DestFolder = "C:\Users\pc1\Desktop\BackUp\"
 
Call fso.CopyFolder(TargetFile,DestFolder)

投稿日時: 17/04/24 08:01:24
投稿者: hisayanxp

先ほどの質問に追加です。*を使用してもダメでした。
 
Dim fso
 Dim TargetFile
 Dim DestFolder
   
 Set fso = CreateObject("Scripting.FileSystemObject")
 TargetFile = "C:\Users\pc1\Documents\AAA\*.xlsx"
 DestFolder = "C:\Users\pc1\Desktop\BackUp\"
   
 Call fso.CopyFolder(TargetFile,DestFolder)

回答
投稿日時: 17/04/24 11:22:20
投稿者: eden

CopyFolder にはファイルではなくフォルダを指定してください。

投稿日時: 17/04/24 14:53:02
投稿者: hisayanxp

edenさん
以下のように直したらうまくいきました。ありがとうございました。
Dim fso
Dim TargetFile
Dim DestFolder
 
Set fso = CreateObject("Scripting.FileSystemObject")
TargetFile = "C:\Users\pc1\Documents\AAA\***.xlsx"
DestFolder = "C:\Users\pc1\Desktop\BackUp\"
 
Call fso.CopyFile(TargetFile,DestFolder)