-Save this code as vbscript.
-Change 'c:\Temp\MyFileList.txt' to the name and path of your desired text output file.
-Change "c:\Temp\" to the directory you wish to peruse.
Dim FSObject
Dim Folder
Dim FileObj
Set FSObject = CreateObject("Scripting.Fi
Set FileObj = FSObject.CreateTextFile("c
Folder = "c:\Temp\"
Call PrintFiles( Folder)
Sub PrintFiles( folderPath)
dim theFolder
set theFolder = FSObject.GetFolder( folderPath)
dim File
For Each File In theFolder.Files
if file.attributes and 1 then
's = file.name
FileObj.WriteLine File.path
end if
Next
dim subFolder
For Each subFolder in theFolder.SubFolders
PrintFiles( subFolder)
Next
End Sub
FileObj.Close
Set FSObject = Nothing
Set FileObj = Nothing
Main Topics
Browse All Topics
by: QlemoPosted on 2009-08-20 at 15:36:13ID: 25147769
NOT with the folder property sheet. The only way to know is by searching the subfolders:
- either by the search feature with a start folder and no file name, with the attributes column displayed, sort after that column
- or by using cmd.exe and the dir command:
dir /a:r-d /s/b c:\startfolder\*
/a:r list all files and folders with read-only set,
/a:r-d ... but no folders;
/s in subfolders, too
/b use short listing, no header, one line per file, file name includes path