SLTechnology News&Howtos › Network Security ›

Delete files and subdirectories under the directory

Shulou Source: shulou.com Published: 2022-06-01 07:41:04 10月03日 Update

Set objFSO = CreateObject ("Scripting.FileSystemObject")

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

For Each objFile In objFolder.Files

Objfile.Delete

For Each objSubFolder In objfolder.SubFolders

ObjSubFolder.Delete