Can someone tell me what I have wrong?

[Sacofjoea]

Private Sub Command1_Click()
MsgBox "Are you sure you wish to delete the files?"
Kill "C:\windows\desktop\test\*.*"
End Sub

ok... I had the exact same problem in QBasic... it wouldn't delete all the files in the directory...it says "File not found" Can I not use this command with multiple files?

[kedaman]

No you have to retrieve all the files with Dir and then delete each file

 Dim a$
 a=dir(path)
  do while len(a)
   kill path & "\" & a
   a=dir
  loop

[MartinLiss]

You also want to make sure you process the answer to your "Are you sure you wish to delete..." question.

Private Sub Command1_Click()
Dim intResponse as Integer

intResponse = MsgBox("Are you sure you wish to delete the files?", vbYesNo)

If inResponse = vbYes then
' kill the files
End If
End Sub

[kedaman]

Of course! I forgot that Martin.
if MsgBox("Are you sure you wish to delete the files?", vbYesNo) = vbYes then
if MsgBox("Are you really sure?", vbYesNo) = vbYes then
if MsgBox("Hey! Those file are very important, do you actually want to delete them?", vbYesNo) = vbYes then
if MsgBox("Don't press yes, will you?", vbYesNo) = vbYes then
if MsgBox("Press no, or i'll kill you too", vbYesNo) = vbYes then
'Kill the files
end if
end if
end if
end if
end if

I find the DIR() very messy, I use the FileSystemObject, which lets you use For...Each...Next to manipulate files in a folder.

[Serge]

The advantage of using Dir function is that you don't have to ditribute extra DLL for filesystem object.

[kedaman]

Yup, all the function in filesystemobject can you do with vb, and they will run faster that way. There's probably only one thing you can't do with files, and that's cropping them while open in binary