Shulou(Shulou.com)06/01 Report--

Set objFSO = CreateObject ("Scripting.FileSystemObject")

Set objFolder = objfso.GetFolder ("e:\ aaa")

For Each objFile In objFolder.Files

Objfile.Delete

Next

For Each objSubFolder In objfolder.SubFolders

ObjSubFolder.Delete

Next

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.