Dim fs 'As Scripting.FileSystemObject
Dim fil 'As Scripting.Files
Dim fils 'As Scripting.File
Dim fol 'As Scripting.Folders
Dim fols 'As Scripting.Folder
Dim ts 'As Sripting.TextStream
Const ForWriting = 2
'Check to see we got a folder to start with
If Wscript.Arguments.Count = 0 Then
MsgBox "Drop a directory on this script"
Wscript.Quit 1
End If
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FolderExists(Wscript.Arguments(0)) Then
MsgBox "Drop a DIRECTORY on this script"
Wscript.Quit 1
End If
If fs.FileExists(fs.GetAbsolutePathName(fs.BuildPath(Wscript.Arguments(0), "index.html"))) Then
MsgBox "You already have an INDEX.HTML file!"
Wscript.Quit 1
End If
'Write the index.html file
Set ts = fs.OpenTextFile(fs.GetAbsolutePathName(fs.BuildPath(Wscript.Arguments(0), "index.html"), ForWriting, True)
ts.WriteLine ""
'Write the folder links first
Set fols = fs.GetFolder(Wscript.Arguments(0)).SubFolders
For each fol in fols
ts.WriteLine "
" & fol.Name & ""
Next
'Write the file links
Set fils = fs.GetFolder(Wscript.Arguments(0)).Files
For each fil in fils
ts.WriteLine "
" & fil.Name & ""
Next
ts.Write ""
ts.Close