Code: Select all
Source For Drop Down Menu From File
'--==--==[ VBScript Source ]==--==--
Sub Window_Onload
ForReading = 1
strNewFile = "Phrases.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile _
(strNewFile, ForReading)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
Set objOption = Document.createElement("OPTION")
objOption.Text = strLine
objOption.Value = strLine
AvailablePhrases.Add(objOption)
Loop
objFile.Close
End Sub
Sub onthefly
Selection = AvailablePhrases.Value
MsgBox "You Selected:" & VBCRLF & Selection, 64,"On-The-Fly List Box"
End Sub 'onthefly
Sub OpenPhrases
ShellRun = objShell.Run ("%comspec% /c Start Notepad Phrases.txt", 0, 1)
End Sub
--==--==[ HTML Source ]==--==--
Drop Down Menu From File