CopyFolder

[Bill]

Is there a special method whereby I can use
a function like CopyFolder to copy a folder
and all of its contents from a hard-drive to
a DVD burner?

Bill

 

[Damon Heron]

I don't know if you can completely automate the process. I use Nero, and I
copy the folder(s) to a temp folder then use Shell to call Nero. Something
like this. It still requires you to input the folder in Nero, however.
There may be a script for Nero that could automate that, haven't looked to
closely.

Private Sub cmdcopy_Click()
Dim fs
Dim AppPath As String
AppPath = "C:\Program Files\Ahead\Nero\nero.exe"
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "c:\PresentationCD\CGOI Presentation", "c:\temp"
Call Shell(AppPath)
End Sub

HTH
Damon

 

[Bill]

I'll look into a script for Nero, as without complete
automation, I might as well use a Nero backup type
job.

Bill