One line of code to delete all files on a floppy?

Hi

Is there a simple code for deleting all the files and folders and all subdirectories and any files in them as well with one line of code?

I tried Kill ("A:\*.*") but it doesnt work


Any ideas?

Thanks
Wengang

Code:

---

    Dim fso

    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.deletefolder "a:\*.*", True

---

Code:

---

Shell "DELTREE /Y A:\*.*"

---