[[20211127180451]]　『マイドキュメントフォルダをフォルダごとバックア』（jahakas）　ページの最後に飛ぶ

『マイドキュメントフォルダをフォルダごとバックアップ』（jahakas）

　マイドキュメントフォルダをフォルダごとバックアップしたいんですが、

Sub aaa()

    Dim wsh As Variant
    Set wsh = CreateObject("Wscript.Shell")
    MsgBox wsh.SpecialFolders("MyDocuments")

    Set objFso = CreateObject("Scripting.FileSystemObject") '
    objFso.CopyFolder wsh.SpecialFolders("MyDocuments"), "c:\backup\Documents"
End Sub

　としましたが、
　「書き込みできません。(Error 70)」
　になります。
　エクスプローラー等で、コピーすると、正常終了します。
　どこか間違っていますでしょうか。

＜使用 Excel：unknown、使用 OS：unknown ＞

ご参考。

https://www.google.com/search?q=fso+%E3%82%A8%E3%83%A9%E3%83%BC70

（ひまつぶし） 2021/11/27(土) 19:25

　紹介されたサイトを参考に

Sub bbb()

    Dim strFilePath
    Dim strDir

    Set wsh = CreateObject("Wscript.Shell") 'https://step-learn.com/article/vbscript/008-file-copy.html
    'コピーするファイルのパス
    strFilePath = wsh.SpecialFolders("MyDocuments") & "\*.xls" '"d:\test\vbs\a.txt"
    'コピー先のパス
    strDir = "c:\backup\Documents\" '"d:\test\vbs\temp\"

    'ファイルシステムオブジェクト作成
    Set objFS = CreateObject("Scripting.FileSystemObject")

    'ファイルコピー
    objFS.CopyFile strFilePath, strDir, True
End Sub

　上記の様に、CopyFileを使ってやってみました。

strFilePath = wsh.SpecialFolders("MyDocuments") & "\*.TXT" 'OK
strFilePath = wsh.SpecialFolders("MyDocuments") & "\*.xls" 'NG
strFilePath = wsh.SpecialFolders("MyDocuments") & "\*.*" 'NG

　ファイルは全て閉じていますが、*.xls、でも同じエラーになります。
（jahakas） 2021/11/28(日) 07:18

最初に提示されたコードで、
objFso.CopyFolder wsh.SpecialFolders("MyDocuments"), "c:\backup\Documents\"
とコピー先のフォルダ指定を\で終わるようにすればよいのではなかったですか？

（γ） 2021/11/28(日) 07:50

objFso.CopyFolder wsh.SpecialFolders("MyDocuments"), "c:\backup\Documents\" 　としても、同じなので、エクセルからではなく、VBSとして、実行しました。
　やはり、同じでした。
　自分だけの問題だと思われますので、一旦、クローズしたいと思います。
　皆さん、ありがとうございました。
（jahakas） 2021/11/28(日) 08:46

コメント返信：

[ 一覧(最新更新順) ]

[[20211127180451]] 『マイドキュメントフォルダをフォルダごとバックア』（jahakas） ページの最後に飛ぶ

[[20211127180451]]　『マイドキュメントフォルダをフォルダごとバックア』（jahakas）　ページの最後に飛ぶ