Kill Files! Pause code until files deleted?

[chrisdavies]

Hi

I've written the following code:

ConfirmDel = MsgBox("Do you want to delete all files from the memory stick?", vbYesNo)

If ConfirmDel = vbYes Then
Kill FromPath & "*.*"
MsgBox "All files have been deleted. You may now remove the memory stick."
Else
MsgBox "You may now remove the memory stick."
End If

The messages obviously pop up before the files have been deleted which isn't good. Is there anyway of redoing this so the messages wait?

Thanks - Chris

[Mague]

I have searched the net and cannot find anything. It should be easy but isnt.

Hope you find the answer.

Also are you using vb or vb.net?

[danp129]

In vb6 I'd try:

...
kill frompath & "."
while dir(frompath & ".") <> ""
    doevents
wend
...

I didn't really test it though so not sure if '.' and '..' directories (current and parent folders respectively) will show up and cause a problem with the example. You may also get stuck in a loop if there is some type of permission issue keeping you from deleting the file so you need to test for that.

[chrisdavies]

Thanks for the help. The code is doing it's job but I've also decided to ask users to wait for light on the stick to stop flashing!

BTW - I'm doing this in MS Access.