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:)?
If Not .getdrive(drv).IsReady Then
MsgBox s
End If
End With
End Sub

--
Don Guillett
SalesAid Software

"Cookie" wrote in message
...
The HELP directions don't help me.