These might prove useful. NEVER SAVE to a floppy or CD
Sub CopyToFloppy()
Application.DisplayAlerts = False
IsFloppyReady
SaveClientName
Dim fso As Object
myfile = ActiveWorkbook.Name
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "c:\keystone\" & myfile, "a:\"
Application.DisplayAlerts = True
End Sub
Sub CopyFromFloppy()
GetFloppyFiles = Shell("C:\KeyStone\FloppyToKeystone.bat", 1)
End Sub
the bat file below
echo copying files from floppy
copy a:\*.xls c:\KeyStone\
Sub IsFloppyReady()
Dim drv As String
Dim s As String
Dim fso
s = "Drive A has no Floppy..." & vbLf & _
"Please insert a floppy in the 'A' Drive"
Set fso = CreateObject("Scripting.FileSystemObject")
With fso
drv = .GetDriveName("A:\")
'// Is Drive Ready? (No Floppy in A
![Smile :) :)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
?
If Not .getdrive(drv).IsReady Then
MsgBox s
End If
End With
End Sub