CDにあるフォルダーを、コピーしたいのですが。

質問

ＶＢ６を使ってます。
　初心者です。　ＶＢで、ＣＤにあるフォルダーごと
Ｃディレクトリーにコピーしたいのですが
どのようにしたらいいのでしょうか？？

　どなたか、お願いします。

回答No.1

1050 円（@1050YEN） · ベストアンサー

FSOを使ったらこんな感じ

Sub CopyFolder(ByVal inBase As String, ByVal inNew As String, Optional OrverWirteMode As Boolean = True)
　　Dim fsoDir　As Object

　　'FSOにてフォルダ取得
　　Set fsoDir = CreateObject("Scripting.FileSystemObject").GetFolder(inBase)

　　'コピる
　　Call fsoDir.Copy(inNew, OrverWirteMode)

　　'開放
　　Set fsoDir = Nothing
End Sub

お礼

有難うございます。
思ってたより難しそうですが、チャレンジしてみます。

回答No.2

xcrOSgS2wY

FileSystemObjectオブジェクトのCopyFolderメソッドを使ってみてはいかがでしょうか。