Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Get Folder Names and Print to Screen

Status
Not open for further replies.
duckiebear

duckiebear

Programmer
May 25, 2004
32
0
0
US
I have an HTML page that I want to add a VBScript or find some way to write the name of the folders in a specific directory. Ideally, they would be links where users could click on them to open and access subfolders and files located within. Right now, I have manually included the file link and name, and when the user clicks the link it of course opens explorer to view the subfolders and files.

Basically, I'm looking for a way to automate the HTML front end for directories on a specific server. Can anyone help?
 
Sort by date Sort by votes
What have you tried so far and where in your code are you stuck ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886
 
Upvote 0 Downvote
Within the HTML page, I have a script that I'm not sure how to complete, but also, I don't know if this is the right way to do this. I need some guidance on the best way to make the list interactive.

<script language="VBScript">

directoryname="\\maflm115\RTF_data\"

Set fso = CreateObject("Scripting.FileSystemObject")
set mainfolder=fso.GetFolder("\\maflm115\RTF_data\")
Set filecollection = mainfolder.Files

For Each file In filecollection
document.write("Folder:") //??? don't know what goes here
Next

</script>


 
Upvote 0 Downvote
Thanks. That will print it to a separate file. What I'm trying to do is write it on the webpage and make the posting interactive. So, i could use some more help.
 
Upvote 0 Downvote
That will print it to a separate file
????
Follow the links to discover all the Collections, Methods and Properties exposed by the FileSystemObject.
 
Upvote 0 Downvote
Woud this help you?

Set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 1
objExplorer.StatusBar = 1
objExplorer.Width = 800
objExplorer.Height = 570
objExplorer.Left = 0
objExplorer.Top = 0
objExplorer.Visible = 1

Do While (objExplorer.Busy)
Loop

Set objDocument = objExplorer.Document
objDocument.Open

objDocument.Writeln "<html><head><title>File Search</title></head>"
objDocument.Writeln "<body bgcolor='#C0C0C0'>"
objDocument.Writeln "<table width='100%'>"
objDocument.Writeln "<tr>"
objDocument.Writeln "<td width='50%'><b>File Name</b></td>"
objDocument.Writeln "<td width='50%'><b>Date Modified</b></td>"
objDocument.Writeln "</tr>"

set fso=WScript.CreateObject("Scripting.FileSystemObject")
set shell=WScript.CreateObject("WScript.Shell")
set net=WScript.CreateObject("WScript.Network")
usr=net.USerName
set file=fso.GetFolder("u:\Main")
set fc=file.SubFolders
For each fl in fc
s=fl.name
d=fl.DateLastModified
objDocument.Writeln "<tr>"
objDocument.Writeln "<td width='50%'>" & s & "</td>"
objDocument.Writeln "<td width='50%'>" & d & "</td>"
Next
objDocument.Writeln "</table>"
objDocument.Writeln "</body></html>"
objDocument.Write()
objDocument.Close

 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

Palito1916
  • Locked
  • Question
Disable multiple computer accounts using TXT file with computer names
Replies
2
Views
97
Palito1916
Palito1916
Brianfree
  • Locked
  • Question
Excel Rows to Column 1
Replies
2
Views
135
Brianfree
Brianfree
skrall
  • Locked
  • Question
script to create shortcuts of several folders in another folder
Replies
1
Views
64
Don Child
Don Child
Rick_Stanich
  • Locked
  • Question
Save xls file to cvs file 1
Replies
3
Views
114
Rick_Stanich
Rick_Stanich
NYCROB
  • Locked
  • Question
Error Permission Denied - Code 800A0046 - Copiend the Documents Folder
Replies
2
Views
98
NYCROB
NYCROB

Part and Inventory Search

Sponsor

Back
Top