123FakeSt
IS-IT--Management
- Aug 4, 2003
- 182
I'd like to create a function that will automatically burn a file to a CD ... like ...I've seen the .NET code and XPBurnComponet.dll but was hoping someone had a simpler approach.
Function BurnToCD (strFile as String) as Boolean
On Error goto ProcErr
Dim objFSO as Object
Dim objFile as Object
'Make sure computer has a CD writer
Set objFSO = createobject(scripting.filesystemobject)
'Check if file exists
Set objFile = objFSO.GetFile(strFile)
'If file is not over 700MB...
'Copy File to CD writer Drive or run Shell command
'If Successful
BurnToCD = True
Else
BurnToCD = False
End Function
The early bird gets the worm, but the second mouse gets the cheese.
Function BurnToCD (strFile as String) as Boolean
On Error goto ProcErr
Dim objFSO as Object
Dim objFile as Object
'Make sure computer has a CD writer
Set objFSO = createobject(scripting.filesystemobject)
'Check if file exists
Set objFile = objFSO.GetFile(strFile)
'If file is not over 700MB...
'Copy File to CD writer Drive or run Shell command
'If Successful
BurnToCD = True
Else
BurnToCD = False
End Function
The early bird gets the worm, but the second mouse gets the cheese.
