Stumped on how to parse directory tree with VBscript

**ultraplop** · Mar 4th, 2002, 11:16 AM

Using the File and Folder objects I can search certain directories for files if I specify a path. Unfortunately I've come up on a situation where I need to search an entire directory tree. I'm not sure what kind of logic I will need for this because you never know how many levels a directory tree can have or maybe there is an object I can use that will do the dirty work for me, but I don't know.

Can someone point me in the right direction?

**sebs** · Mar 4th, 2002, 01:44 PM

you will need a recursive function!

search on here, you'll find plenty

**Danial** · Mar 4th, 2002, 02:36 PM

Here is one i have put together using FSO, i am not quite clear if you want to scan all the directory in a given folder or just list one level.

The following script will scan all folders and subfolders and list all file names.

I have made another version which is more like explorer if you are after that then i will post it here.

Hope it helps.

Danial

VB Code:

<head>
<title>Scan Folders</title>
<link rel="stylesheet" href="styles.css" type="text/css">
 
</head>
<%
dim path
dim done
dim fileList()
dim processing
dim i
 
 
path="C:\inetpub\"
 
ScanFolder path
 
 
function ScanFolder(FolderPath)
on error resume next
 
    dim fso, folder, file
 
    set fso = server.createobject("Scripting.FileSystemObject")
    set folder=fso.getFolder(folderpath)
 
    if folderpath<>"" then
        response.write "<h1>Path : " & folderpath & "</h1>"
        response.write "<hr>"
    end if
    
    i=1
    For Each file In folder.Files
        response.write i & ". " & folderpath  & file.name & "<br>"
        i=i+1
    next
    
    if folderpath<>"" then
        response.write "<br>"
    end if
    
    for each f in folder.SubFolders
        scanfolder f
    next
End function
%>

**ultraplop** · Mar 4th, 2002, 06:55 PM

Thanks for the response

I tried adapting your code to run in the windows script host, I changed as little as I could to get it to run, but it will only return a list of files in the folder specified and not in all the subfolders, similiar to what i got before with my code.

Im not sure if WSH uses the filesystem object differently or what the problem with the code is. Here is the code of yours that I changed.

I will keep trying, but Im hoping you can see if there is a problem here

Code:

dim path
dim done
dim fileList()
dim processing
dim i
const DESKTOP = "C:\Documents and Settings\wi006gr.PBI\Desktop\pdf"


path=DESKTOP

writetext(ScanFolder(path))


function ScanFolder(FolderPath)
on error resume next

	dim fso, folder, file

	set fso = wscript.createobject("Scripting.FileSystemObject")
	set folder=fso.getFolder(folderpath)

	if folderpath<>"" then
		e = "Path : " & folderpath & vbnewline
		
	end if
	
	i=1
	For Each file In folder.Files 
		e = e & i & ". " & folderpath  & file.name & vbnewline
		i=i+1

	next
	
	if folderpath<>"" then
		e = e & vbnewline
	end if
	
	for each f in folder.SubFolders
		scanfolder f
	next
scanfolder = e
End function

Function WriteText(vTextWrite)
Dim oFs, oTextstream, vText, vFstatus 
set oFs = Wscript.createobject("scripting.filesystemobject")

	If oFs.FileExists("1.txt") = false then
	  oFs.CreateTextFile ("1.txt")
	end if

set oTextstream = oFs.OpenTextFile("1.txt", 2)
	 oTextstream.write(vTextwrite)
	 oTextstream.close
set oTextstream = Nothing

End Function

**Danial** · Mar 4th, 2002, 07:31 PM

Hi,
You have made few simple mistakes, first of all everytime you call writetext function it opens the file so that means it erases the content, secondly you are only outputing the name of the folders not the name of the files.

Here is what i have managed to hack quickly, you can modify them and make it neater. The main theing is it works.

Just copy and paste and save it as a .vbs file.

Dont forget to specify your path name properly.

Hope this helps

Danial

VB Code:

dim path
dim done
dim fileList()
dim processing
dim i
 
Dim oFs, oTextstream, vText, vFstatus 
set oFs = Wscript.createobject("scripting.filesystemobject")
 
'If oFs.FileExists("c:\1.txt") = false then
  oFs.CreateTextFile ("c:\1.txt")
'end if
 
set oTextstream = oFs.OpenTextFile("c:\1.txt", 2)
 
path="C:\Documents and Settings\wi006gr.PBI\Desktop\pdf"
 
ScanFolder path
 
oTextstream.close
set oTextstream = Nothing
 
function ScanFolder(FolderPath)
'on error resume next
 
    dim fso, folder, file
 
    set fso = wscript.createobject("Scripting.FileSystemObject")
    set folder=fso.getFolder(folderpath)
 
    if folderpath<>"" then
        writetext("Path : " & folderpath & vbcrlf)
        writetext("__________________________________________" & vbcrlf)
    end if
    
    i=1
    For Each file In folder.Files
        writetext(i & ". " & folderpath  & file.name & vbcrlf)
        i=i+1
    next
    
    if folderpath<>"" then
        writetext(vbcrlf)
    end if
    
    for each f in folder.SubFolders
        scanfolder f
    next
End function
 
Function WriteText(vTextWrite)
 
     oTextstream.write(vTextwrite)
 
End Function

**ultraplop** · Mar 5th, 2002, 11:58 AM

Thanks bigtime for the help, the coding is a lot simpler than I thought it would be, but I just wasn't getting it right.

Thanks again

**Danial** · Mar 5th, 2002, 12:14 PM

Originally posted by ultraplop
Thanks bigtime for the help, the coding is a lot simpler than I thought it would be, but I just wasn't getting it right.

Thanks again

No problem.

Yes when dealing with recursive function, if you get it right then its really easy, or its really a pain !!

Even though a lot of people hate FSO, it makes your life a hell of a lot easier !!

Danial

Thread: Stumped on how to parse directory tree with VBscript

Thread Tools

Display

Stumped on how to parse directory tree with VBscript

Posting Permissions