HTA populating list box with subfolders of a folder

imaciscoguy

unread,

Apr 6, 2011, 9:20:25 AM4/6/11

to

Can I be helped? I am trying to explore to a folder and list the
subfolders (who's name begins with the letter T) of that folder in a
list box.
If you can help me i would be grateful.

<html>
<head>
<title>calendar</title>
<hta:application
scroll="no"
singleinstance="no"
windowstate="normal"
>

</head>
</object>
<script type="text/vbscript">
Dim Master
Dim Master1

Dim g_date_input ' globally saved inpu object
Function GetDate(obj)
div1.style.visibility="visible"
set g_date_input = obj
End Function

Sub cal1_click()
g_date_input.value = cal1
div1.style.visibility="hidden"
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''Browse
Folders'''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub CheckMaster
Master = userselections.txtFile.value
If userselections.txtFile.value ="" Then
msgbox "Please Enter Database Name"
Else
msgBox "Master is: " & Master
TrimMaster
End If
End Sub

Sub TestSub

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder (0, "Select The Folder To
Enumerate :", (0))
If objFolder Is Nothing Then
Wscript.Quit
Else
Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path
End If

Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(objPath)
'For each objFolder in objFolder.Subfolders
'If objFolder.Subfolders.Count > 0 Then

For each objFolder in objFolder.Subfolders
Set objOption = Document.createElement("OPTION")
objOption.text = objFolder.Subfolders
objOption.value = objFolder.Subfolders
'AvailableFolder.ADD(objOption)

'Window.Document.Title = "Information For " & objPath
'strHtml = strHtml & "<td><Font color = Blue>" & objFolder.Name & "</
font></Br>"
'DataArea.InnerHtml = strHtml
'End If
Next
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

</script>

<body>

<div>

<form name="userselections">
<input type = "text" name = "txtFile" size="50" />
<input type = "button" value = "Browse ..."
onClick="ChooseSaveFolder" />
<input type="button" value="Submit" name="run_button"
onClick="CheckMaster">
</form>

<input Type = "Button" Value = "Browse For Folder" Name = "Run_Button"
onClick = "TestSub"><p></td>

<input id="ddate1" type="text" value="click here"
onclick="GetDate(me)">
<input id="ddate2" type="text" value="click here"
onclick="GetDate(me)">

</div>
</div>

</body>

</html>

Mayayana

unread,

Apr 6, 2011, 9:54:23 AM4/6/11

to

It looks like you pretty much have it, but you've
commented out the line to add each item to the
listbox. ??
Did you just copy this code from somewhere?

There's a package of scripts here:

http://www.jsware.net/jsware/scripts.php5#explore

It's pretty much the code you want. One of the
files is a webpage that acts as a file system browser,
like the old style "Choose File" listboxes that one
still sees in hardware setup. You click a drive and
the folder list fills. Click a folder and the file list fills. Etc.

imaciscoguy

unread,

Apr 6, 2011, 7:45:43 PM4/6/11

to

Mayayana,

Yes and no, I am finding scripts that do somewhat what I want to do
then piece them together then edit to complete what I wanting to do.
I get error on what you returned. executed on an XP computer, do you
have any suggestions?
Thanks,
Cisco

Mayayana

unread,

Apr 6, 2011, 9:06:48 PM4/6/11

to

Yes and no, I am finding scripts that do somewhat what I want to do
then piece them together then edit to complete what I wanting to do.
I get error on what you returned. executed on an XP computer, do you
have any suggestions?
>

I don't know without knowing the error. I
don't even know which script you're having
trouble with!
It works fine for me. I'm on XP. But I'm using
IE6. In most cases with XP+ those webpage
utilities have to be renamed as HTAs to get
around security problems.

Dave "Crash" Dummy

unread,

Apr 7, 2011, 7:09:15 AM4/7/11

to

I run into that frequently. I have a lot of heavily scripted HTML pages
that I wrote and ran with Windows 2000/IE 6. I can't get them to do
anything in Windows 7/IE 7,8,9. I've have to convert them to HTA, which
isn't always satisfactory.
--
Crash

English is not my native tongue; I'm an American.

Mayayana

unread,

Apr 7, 2011, 9:28:43 AM4/7/11

to

| I run into that frequently. I have a lot of heavily scripted HTML pages
| that I wrote and ran with Windows 2000/IE 6. I can't get them to do
| anything in Windows 7/IE 7,8,9. I've have to convert them to HTA, which
| isn't always satisfactory.
| --

I should probably make that conversion with all
of my script downloads. The one I linked is something
I haven't looked at for awhile.

I used to include information
about how to fix IE security problems, but at some point
I lost track of that. It's become so convoluted that I
don't know whether it's even possible to make later versions
of IE behave as desired. At last count I had found 8
different Registry "mirrors" of IE security settings... 8
settings that need to be changed in order to assure
that 1 security-related value gets changed. And of
course that doesn't help other problems that are
built in, like the inability to open an IE instance offscreen,
etc.

Recently I was updating an Explorer Bar to run on
Vista/7. The bar is something I wrote to add various
functions to folder windows. One option is a panel
that's actually a webpage in an IE browser window.
It's customizable. As written it can open a calculator,
a view of all pictures in a folder, or a list of all files in
a folder -- all as a webpage in IE. But it's designed
to allow any sort of functionality to be added. On XP
SP3, IE6, it all works fine except for a warning bar
along the top of the pictures view. On Win7 nothing
works. Even the calculator is considered to be "dangerous
active script".

For the forseeable future I've taken the approach of
sticking with the damaged but still usable functionality
of IE6. To paraphrase Bill Gates: They have
hundreds of super smart people, working 24 hours a day,
to make sure that you can't control your IE security in
any way that might let risky functionality in, or that
might keep advertisers and corporate spyware out.

Life's too short to try keeping up with the mess that
Microsoft has made of IE. It would be nice if IE5/6 could
be installed on Vista/7, but MS seems to be going in
the opposite direction. With IE9 running only on
Windows and only on Vista/7, it looks to me like MS
has decided that they can safely return to the 90's
trick of locking IE to Windows. I wouldn't be surprised
if Windows 8 brings a return of Active Desktop, blurring
Explorer and IE together for an "integrated and optimized
cloud experience".

Dave "Crash" Dummy

unread,

Apr 7, 2011, 9:48:53 AM4/7/11

to

Let me pass along a question I posed (without response so far) in a
Windows 7 newsgroup:

"In Windows 2000 I was able to make the normally hidden "Local Zone"
visible and then change the security settings for local HTML files, like
allowing ActiveX and intrusive scripting. Is there a way to do that with
Windows 7?"

--
Crash

"In politics, stupidity is not a handicap."
~ Napoleon Bonaparte ~

Mayayana

unread,

Apr 7, 2011, 11:47:41 AM4/7/11

to

|
| "In Windows 2000 I was able to make the normally hidden "Local Zone"
| visible and then change the security settings for local HTML files, like
| allowing ActiveX and intrusive scripting. Is there a way to do that with
| Windows 7?"
|

It doesn't look good. What I do is to set the Zone 0 "Flags"
value to 1 instead of 33. I don't know if there are additional
settings in later versions, but that method works in IE6/XP
and earlier.

I just looked at a friend's PC using Win7 with IE8. For any
settings I now change it in all all of the following locations:

HKLM\Software\Microsoft\Windows\CurrentVersion\Internet
Settings\Lockdown_Zones\[zone number]\

HKCU\Software\Microsoft\Windows\CurrentVersion\Internet
Settings\Lockdown_Zones\[zone number]\

HKLM\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\[zone
number]\

HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\[zone
number]\

HKLM\Software\Policies\Microsoft\Windows\CurrentVersion\Internet
Settings\Lockdown_Zones\[zone number]\

HKCU\Software\Policies\Microsoft\Windows\CurrentVersion\Internet
Settings\Lockdown_Zones\[zone number]\

HKLM\Software\Policies\Microsoft\Windows\CurrentVersion\Internet
Settings\Zones\[zone number]\

HKCU\Software\Policies\Microsoft\Windows\CurrentVersion\Internet
Settings\Zones\[zone number]\

Having made all of those changes (or confirmed that no setting at all
existed in those locations), I find that the local zone icon
shows in IE security settings, but clicking on it brings no response.
Whatever zone was highlighted previously is still selected. In other
words, the PC icon gets selected, but the window shows that I'm
still selecting the Internet Zone, for instance. Then if I click
Custom Settings, the Internet Zone window opens. It's as though
the Local Zone icon is blocked from getting a mouse click.

I didn't try running a script to create the setting in all possible
locations. That might work, but I'd be surprised. MS seems to
have built a block into the Internet Options window itself.

...But, like I said before, I haven't researched all of this in
depth, since I don't have to use IE7+. It's just too much
work to sort it all out, given years of secret settings being
added on top of secret settings.

Dave "Crash" Dummy

unread,

Apr 7, 2011, 12:35:32 PM4/7/11

to

Thanks for the information. I'll save it, but don't think I'll try
anything until someone meets with more success. In the meantime, I'll
settle for working with HTA.
--
Crash

What happens online, stays online.