imports system.io
 
dim ioDirs as new directoryinfo("d:\oderso")
dim ioFile as FileInfo
dim ioDir as directoryinfo
 
for each iofile in iodirs.getfiles()
   file.delete(iofile.fullname)
next
 
for each iodir in iodirs.getdirectories()
   directory.delete(iodir.fillname,true)
next

Gru? eclere