Visual Basic

Push start directory onto stack
loop while stack is non-empty
pop last element off the stack (directory)
do action on element (here: find all *.pdf files)
list all subdirectories and for each push full subdirectory path on the stack
end loop

dineshp123 wrote:

HOW TO MAKE SIMPLE WEB SERVICES IN VB6.0 ANY ONE KNOWS PLEASE EXPLAIN!!!!!!!!

Nanda_MR wrote:

Menu in Toolba

Nanda_MR wrote:

Is it possible to add multi level sub menu ?

Dim msi,database,view1,record,productCode

Set msi = CreateObject("WindowsInstaller.Installer")
Set database = msi.OpenDatabase(WScript.Arguments(0), 1)

Set view1 = database.OpenView("SELECT `Value` FROM `Property` WHERE `Property` = 'ProductCode'")
Call view1.Execute

Set record = view1.Fetch
If record Is Nothing Then
	MsgBox "Unable to find a ProductCode in the MSI database!"
	WScript.Quit
End if

productCode = record.StringData(1)

Set record = view1.Fetch
If record Is Nothing Then
	RecordsReturned = 1
Else
	RecordsReturned = 2
End If

Set record = Nothing
view1.Close
Set view1 = Nothing
Set database = Nothing
Set msi = Nothing

If RecordsReturned = 1 Then
	InputBox "The ProductCode is:", WScript.Arguments(0), productCode
Else
	MsgBox "There was more than one 'ProductCode' record returned from the MSI database!!"
End If

.Verb = "printto"
.Arguments = """printerName"""

dim psi as new processstartinfo("c:\quote.pdf")

for each verb as string in psi.verbs
 debug.print(verb)
next