I hope you understand my question so here it goes:
The following code is loading icons in a listview.
When i double click on an icon For Example a MS Word Icon, it starts the program.
My question is: How can i set the 'start in:' (Working directory) for each icon in the listview???
I've got some programs that needs to have their working directory beeing set to a specific path for example 'c:\workdir'.
Dim oLI As ListItem
Dim nIcon As Integer
Dim szLine As String
Open szFile For Input As #1
nIcon = 1
Do Until EOF(1)
Line Input #1, szLine
If InStr(1, szLine, "=") > 0 Then
ImageList1.ListImages.Add nIcon, , _
LoadPicture(ServerName & "Icon\" & Split(Replace(Split(szLine, _
"=")(1), Chr(34), ""), ",")(0))
Set oLI = ListView1.ListItems.Add(, , Split(szLine, "=")(0), nIcon, _
oLI.Tag = Split(Replace(Split(szLine, "=")(1), Chr(34), ""), ",")(1)
Set oLI = Nothing
nIcon = nIcon + 1