FileCopy Command

You know how you can do filesystem.filecopy source name, destination or just filecopy ..... well if i want them to click on a command button and it compies mytxt.txt to a floppy (a drive) and that floppy is not there you automatically get an error. so is there a way to say if it is not there then a msgbox comes up saying so and if it is there then it proceeds with the copying. Thanks

------------------
Sincerely,
Chris
:) :D ;) :o :(

Quote:

---

just have fun out there and live life to the fullest while it is still here

---

Email [email protected]

Try something like

Code:

---

Private Sub Command1_Click()
    Dim fs As New FileSystemObject
   
    On Error GoTo ErrHnd
    fs.CopyFile "D:\MyFile.txt", "a:\"
   
    Exit Sub
ErrHnd:
    If Err.Number = 76 Then
        MsgBox "Drive not ready."
    End If
End Sub

---

------------------

Serge

Senior Programmer Analyst
[email protected]
[email protected]
ICQ#: 51055819

Hey thanks. I had to change it around a little cause it wasn't error 76 and it is like filecopy not copyfile but thats ok thanks again serge!!!

------------------
Sincerely,
Chris
:) :D ;) :o :(

Quote:

---

just have fun out there and live life to the fullest while it is still here

---

Email [email protected]