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

[wengang]

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

[Iain17]

    Dim fso

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

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