help with listing all files in a folder in to a list box using HTA and vbscript

**NETKILLER** · 2nd September 2011, 11:45 AM

hi all

I am working on making a list box in HTA making a manual list box is fine, making the list box that builds it self again fine but what I am trying to do is list all files in a folder and then use that info in the list box. this is what i have at this point

<html>
<head>
<title>My HTML application</title>
<HTA:APPLICATION
APPLICATIONNAME="My HTML application"
ID="MyHTMLapplication"
VERSION="1.0"/>
</head>

<script language="VBScript">

Sub Window_OnLoad
Dim FolderPath

'folder to be searched for files
Dim objFSO
Dim objFolder
Dim colFiles
Dim objFile
Dim objOption
FolderPath = "\\server\installscripts$"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(FolderPath)
Set colFiles = objFolder.Files

For Each objFile in colFiles
Set objOption = objFile.Name
objOption.text = objFile.Name
objOption.Value = objFile.Name
mylistbox.Add(objOption)
Next
End Sub

</script>

<body bgcolor="white">



<select name="mylistbox" size=10>
</select>


</body>
</html>

the error i am getting is error with hta.jpg

thank you

**Steve21** · 2nd September 2011, 11:49 AM

Set objOption = objFile.Name
objOption.text = objFile.Name
objOption.Value = objFile.Name

Why?

If all you want is to add the name to it, you won't even need objects as such.

Steve

**NETKILLER** · 2nd September 2011, 12:10 PM

hey all

I have fixed it. replace the for each with the following

For Each objFile in colFiles
Set objOption = Document.createElement("OPTION")
objOption.Text = objFile.Name
objOption.Value = objFile.Name
mylistbox.Add(objOption)
Next

hope this helps some one and thank you for your reply Steve21

LinkBack

Thread Tools

Search Thread

help with listing all files in a folder in to a list box using HTA and vbscript

Similar Threads

Need some help with Job descrip? Probably not the right place to put it but..........

Need some help with creating a GUI in AutoIT

Confused in the Manual VM creation using SSH and Fast SCP and ESXi failover concept

Help needed with VB Script to delete folder and all files.

Request : Script to Delete All But 10 Newest Files in Folder

Thread Information

Users Browsing this Thread

Posting Permissions