Welcome guest. Before posting on our computer help forum, you must register. Click here it's easy and free.
Computer Hope forum e-mail issues and down time
0 Members and 1 Guest are viewing this topic.
what i was trying to do was looking at alot of folders and trying to see which ones were empty so i could delete them (music folders)
for /r %%i in ('dir "C:\Docume~1\*" /s /b') do (if %~zi EQU 0 del %%i)
Set objFSO = CreateObject("Scripting.FilesyStemObject")myFolder="c:\temp"Set objFolder = objFSO.GetFolder(myFolder)GoSubFolders objFolderSub GoSubFolders (objDIR) If objDIR <> "\System Volume Information" Then MainSub objDIR For Each eFolder in objDIR.SubFolders GoSubFolders eFolder Next End If End SubSub MainSub (objDIR) WScript.Echo "Number of files in",objDIR , "is",objDIR.Files.Count If objDIR.Files.Count = 0 Then WScript.Echo "0 files folder found:",objDIR End If End Sub