Solved: Detect if CD is formatted.

[Dave]

I'm trying to find some VB code that will differentiate between when a CD drive has no disk vs. a CD drive that has an unformatted disk. Not much luck with the google. This code returns the same result whether there is no CD or an unformatted CD exists. Any help appreciated. Dave


If .Drives(Left(CdDriveLetter, 2)).IsReady = False Then

[Dave]

With reflection that wasn't all that clear. I messed with it abit and it seems that copyfile yields some detectable error. Humm. Dave

CdDriveLetter = InputBox("Enter a CD directory. CAPITAL LETTER ONLY!")
CdDriveLetter = CdDriveLetter & ":\"
On Error GoTo ErFix
Set OfsObj = CreateObject("Scripting.FilesystemObject")
'check if Drive exists.
With OfsObj
If .Driveexists(Left(CdDriveLetter, 2)) = False Then
MsgBox "You do not have a directory: " & CdDriveLetter
Set OfsObj = Nothing
Exit Sub
End If
End With
Set OfsObj = Nothing

[Dave]

Didn't find any other solution than this. Solved? Dave

Set FSO = CreateObject("Scripting.FileSystemObject")
'source,destination,save
FSO.CopyFile "c:\source.zip", "c:\destination.zip", True
If Err.Number = -2147024895 Then
MsgBox "The disk is NOT formatted!"
End If