Opening Saved File Path

[wexhammer]

Me again! Basically the small program i have written below can browse for a file and then that file path name can be saved. I also have an open button which i am trying to get working but i receive an error. The whole point of the [open] sub is to open that saved file path, for example if the path was a word document, clicking open opens the word document. My 90% working code is below:

It can open .exe but nothing else........







[Initialize]
   Global hMain, hFind, dupNum, dupo, addName, recordIndex, contactCount
   Global filterCount, oldStage$
   Nomainwin
   Dim name$(1000), nameSearch$(1000), stage$(20), type$(20)
   Dim builder$(1000, 13), existInfo$(10,10), hContents$(20)

   If Not(exists("filter.lst")) Then
       Open "filter.lst" For Output As #filter
       Print #filter, 4
       Print #filter, "All"
       Print #filter, "Complete"
       Print #filter, "Incomplete"
       Print #filter, "Neutral"


       Close #filter
   End If

   Open "filter.lst" For Input As #filter
   Input #filter, filterCount
   For filterIndex=0 to filterCount-1
       Input #filter, filterName$
       stage$(filterIndex)=filterName$
   Next filterIndex
   Close #filter

    If Not(exists("filter2.lst")) Then
       Open "filter2.lst" For Output As #filter2
       Print #filter2, 4
       Print #filter2, "All"
       Print #filter2, "1"
       Print #filter2, "2"
       Print #filter2, "3"

       Close #filter2
   End If

   Open "filter2.lst" For Input As #filter2
   Input #filter2, filterCount
   For filterIndex=0 to filterCount-1
       Input #filter2, filterName$
       type$(filterIndex)=filterName$
   Next filterIndex
   Close #filter2

   dupo=0
   addName=1

   Call loadNames

[GUI]


   Stylebits #main, 0,_WS_MAXIMIZEBOX,0,0
   WindowWidth = 495 '595  695  795
   WindowHeight = 460
   UpperLeftX=Int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=Int((DisplayHeight-WindowHeight)/2)


   Statictext #main, "Shortcuts", 10, 10, 60, 20
     Listbox #main.contacts, name$(, modifyRecord, 10, 35, 140, 120
   Statictext #main.1, "Filter stage", 10, 170, 160, 20
     Combobox #main.filterstage, stage$(, loadNamesFiltered, 10, 190, 160, 120
     Statictext #main.2, "Filter type", 10, 220, 160, 20
     Combobox #main.filtertype, type$(, loadNamesFiltered, 10, 240, 160, 120

   Statictext #main, "File Path", 195, 10, 50, 20
     Textbox #main.name, 250, 10, 160, 25
   Statictext #main.3, "Number", 195, 40, 50, 20
     Textbox #main.number, 250, 40, 225, 25

     button #main.browse, "...", [browse], UL, 415, 10, 20, 20
     button #main.run, "Open", [open], UL, 435, 10, 40, 20

   Statictext #main.4, "Stage", 195, 70, 50, 20
     Combobox #main.stage, stage$(, [inputLoop], 250, 70, 225, 110
     Statictext #main.5, "Type", 195, 100, 50, 20
     Combobox #main.type, type$(, [inputLoop], 250, 100, 225, 110


   Button #main.new, "&New", addRecord, UL, 10, 360

       Listbox #main.namel, dup$(, pick, 490, 10, 190, 395
   Button #main.OK, "Save", acceptEntry, UL, 370, 360
   Open "Test" For Window As #main
   Print #main, "Trapclose endProgram"
   Print #main.filtertype, "Select All";
   Print #main.filterstage, "Select All";
   Print #main.contacts, "SingleClickSelect"
   Print #main.namel, "SingleClickSelect"
   #main.type "hide"
   #main.stage "hide"
   #main.number "!hide"
   #main.filterstage "hide"
   #main.filtertype "hide"
   #main.1 "!hide"
   #main.2 "!hide"
   #main.3 "!hide"
   #main.4 "!hide"
   #main.5 "!hide"

   hMain=hwnd(#main)

[Code]
   Call noResize

   Print #main.contacts, "Setfocus"

[inputLoop]
   Wait

[acceptEntry]
   Call acceptEntry handle$
   Wait

[addRecord]
   Call addRecord handle$
   Wait

[sortem]
   PopUpMenu "name sort", [byName], "city sort", [byCity]
   Wait

[browse]
FileDialog "Select a file", "*.*", nameoffile$

Print "FileDialog returned the following: ";nameoffile$
Print

Print
print #main.name, nameoffile$
Input a$
End

Function SeparateFile$(f$)
  fileindex = Len(f$)
  filelength = Len(f$)
  While Mid$(f$, fileindex,1) <> "\"
     fileindex = fileindex - 1
  Wend
  SeparateFile$ = Right$(f$, filelength - fileindex)
End Function

Function SeparatePath$(f$)
  fileindex = Len(f$)
  While Mid$(f$, fileindex,1) <> "\"
     fileindex = fileindex - 1
  Wend
  SeparatePath$ = Left$(f$, fileindex)
End Function



wait


[open]
#main.name, "!Contents? openfilename$"
run openfilename$
wait










[endProgram]
   Call endProgram handle$
   Wait

Sub endProgram handle$
   close #main
   end
End Sub

Sub loadNames
   If exists("contact4old.bak") Then
       Kill "contact4old.bak"
   End If
   If exists("contact4.bak") Then
       Name "contact4.bak" As "contact4old.bak"
   End If
   Open "contact4.dat" For Random As #contacts Len = 410
   Field #contacts, 335 As name$, 35 As number$, 20 As stage$, 20 As type$

   Open "contact4.bak" For Random As #contactsCopy Len = 410
   Field #contactsCopy, 335 As name$, 35 As number$, 20 As stage$, 20 As type$

   If Eof(#contacts) <> 0 Then
       Close #contacts
       Close #contactsCopy
       Call initializeNames
       Goto [skipIt]
   End If

   Get #contacts, 1
   Put #contactsCopy, 1

   contactCount = Val(name$)
   If contactCount = 0 Then
       Close #contacts
       Close #contactsCopy
       Goto [skipIt]
   End If
   For index = 2 To contactCount + 1
       Gettrim #contacts, index
       Put #contactsCopy, index
       name$(index - 1) = str$(index-1)+") "+name$

   Next index
   Close #contacts
   Close #contactsCopy
[skipIt]
End Sub

Sub initializeNames

   Open "contact4.dat" For Random As #contacts Len = 410
   Field #contacts, 335 As name$, 35 As number$, 20 As stage$, 20 As type$
   name$ = "0"
   Put #contacts, 1
   Close #contacts
End Sub

Sub noResize

   Open "user32.dll" For Dll As #user

   Calldll #user, "GetSystemMenu", _
   hMain As Ulong, 0 As Ulong, hmenu As Ulong

'    sysmenu.Restore=GetMenuItemID(hmenu,0)
'    sysmenu.Move=GetMenuItemID(hmenu,1)
   sysmenu.Size=GetMenuItemID(hmenu,2)
'    sysmenu.Minimize=GetMenuItemID(hmenu,3)
   sysmenu.Maximize=GetMenuItemID(hmenu,4)
'    sysmenu.sep1=GetMenuItemID(hmenu,5)
'    sysmenu.Close=GetMenuItemID(hmenu,6)
'    sysmenu.sep2=GetMenuItemID(hmenu,7)
'    sysmenu.KillApps=GetMenuItemID(hmenu,8)

   Calldll #user, "DeleteMenu", hmenu As Ulong, sysmenu.Size As Ulong, _
   _MF_BYCOMMAND As Ulong, re As Ulong
   Calldll #user, "DeleteMenu", hmenu As Ulong, sysmenu.Maximize As Ulong, _
   _MF_BYCOMMAND As Ulong, re As Ulong

   Close #user
End Sub

Function GetMenuItemID(hmenu,index)
   Calldll #user, "GetMenuItemID", hmenu As Ulong, index As Ulong, GetMenuItemID As Ulong
End Function

Sub loadNamesFiltered handle$
redim name$(1000)
'show records matching filter
Call addRecord handle$
Print #main.filterstage, "selection? filter$"
Print #main.filtertype, "selection? filter2$"
Open "contact4.dat" For Random As #contacts Len = 410
Field #contacts, 335 As name$, 35 As number$, 20 As stage$, 20 As type$
Get #contacts, 1
contactCount = Val(name$)
If contactCount = 0 Then
Close #contacts
Goto [moveOn]
End If
   'compare stage to filter

For index = 2 To contactCount + 1
Gettrim #contacts, index
If filter$ = stage$ or filter$ = "All" Then
If filter2$ = type$ or filter2$ = "All" Then
name$(index - 1) = str$(index-1)+") "+name$
Else
name$(index - 1) = ""
End If
end if

Next index

Close #contacts

Print #main.contacts, "Reload"

[moveOn]

End Sub

Sub modifyRecord handle$
   addName = 0

   Print #main.contacts, "Selection? selection$"
   If selection$ = "" Then [noName]

   Print #main.contacts, "SelectionIndex? index"
   If index = 0 Then [noName]  'This should never need to happen
   recordIndex=val(selection$)
[getContactRecord]
   getIndex=recordIndex+1
   Open "contact4.dat" For Random As #contacts Len = 410
   Field #contacts, 335 As name$, 35 As number$, 20 As stage$, 20 As type$
   Gettrim #contacts, getIndex
   Close #contacts
   Print #main.name, name$
   Print #main.number, number$

   Print #main.stage, "SelectIndex 20"
   Print #main.type, "SelectIndex 20"
   For stageIndex = 0 To filterCount-1
       If stage$(stageIndex) = stage$ Then

       Print #main.stage, "SelectIndex "; stageIndex + 1
end if



If type$(stageIndex) = type$ Then
       Print #main.type, "SelectIndex "; stageIndex + 1


end if

   Next stageIndex



   oldStage$=stage$
[noName]
End Sub

Sub addRecord handle$
   addName = 1
   Print #main.contacts, "SelectIndex 0"
   Print #main.name, ""
   Print #main.number, ""

   Print #main.stage, "SelectIndex 20"
   Print #main.type, "SelectIndex 20"

   Print #main.name, "!SetFocus"

End Sub



Sub acceptEntry handle$
   Print #main.name, "!contents? name$";
   If name$<>"" Then
       Print #main.name, "!contents? number$";
       Print #main.number, "!contents? number$";
       Print #main.type, "Selection? type$";
Print #main.stage, "Selection? stage$";
       If addName = 1 Then
           contactCount = contactCount + 1
           recordIndex = contactCount
       End If
       name$(recordIndex) = Str$(recordIndex)+") "+name$
       Print #main.contacts, "Reload"
       date$=Date$()
       If oldStage$="Opening Mailer" And stage$="Follow Up Call" then
           mailDate$=Date$()
       End If
[saveContactRecord]
       Open "contact4.dat" For Random As #contacts Len = 410
       Field #contacts, 335 As name$, 35 As number$, 20 As stage$, 20 As type$
       Put #contacts, recordIndex + 1
       Close #contacts
       If addName = 0 Then [goBack]
       Open "contact4.dat" For Random As #contacts Len = 410
       Field #contacts, 35 As count$, 375 As fill$
       count$ = Str$(contactCount)
       Put #contacts, 1
       Close #contacts
       addName = 0
       Call loadNamesFiltered " "
[goBack]
       Print #main.contacts, "SelectIndex ";recordIndex
       Call addRecord handle$
   Else
       Notice "NO BUSINESS NAME"+Chr$(13)+"The business name must be entered, "_
       +Chr$(13)+"before a record can be saved. "
   End If
End Sub



Sub populateList
   Open "contact4.dat" For random As #contacts3 Len = 410
   Field #contacts3, 335 As name$, 35 As number$, 20 As stage$, 20 As type$

   Open "contact.dat" For Random As #contacts Len = 410
   Field #contacts, 335 As name$, 35 As number$, 20 As stage$, 20 As type$


   Get #contacts3, 1
   contactCount = Val(name$)
   Put #contacts, 1

   For index2 = 2 To contactCount + 1
       Gettrim #contacts3, index2
       For column=1 To 4
           Select Case column
               Case 1
                   builder$(index2, column)=name$
               Case 2
                   builder$(index2, column)=number$

               Case 3
                   builder$(index2, column)=stage$
                     Case 4
                   builder$(index2, column)=type$

           End Select
       Next column
   Next index2
End Sub

Sub saveList
   For index2 = 2 To contactCount + 1
       For column=1 To 4
           Select Case column
               Case 1
                   name$=builder$(index2, column)
               Case 2
                   number$=builder$(index2, column)
             Case 3
                   stage$=builder$(index2, column)
                   Case 4
                   type$=builder$(index2, column)

           End Select
       Next column
       Put #contacts, index2
   Next index2

   Close #contacts3
   Close #contacts
   If exists("contact4recoverold.bak") Then
       Kill "contact4recoverold.bak"
   End If
   If exists("contact4recover.bak") Then
       Name "contact4recover.bak" As "contact4recoverold.bak"
   End If
   Name "contact4.dat" As "contact4recover.bak"
   Name "contact.dat" As "contact4.dat"
End Sub

Function exists(a$)
   Files DefaultDir$, a$, existInfo$()
   exists=val(existInfo$(0,0))
End Function

Sub removeEntry
   Print #main.filtertype, "selection? filter$"
       If addName=0 Then
           Confirm "YOU ARE ABOUT TO DELETE THIS RECORD"+Chr$(13)+" "+Chr$(13)+Chr$(34)_
               +name$(recordIndex)+Chr$(34)+Chr$(13)+" "+Chr$(13)+"Do you want to proceed?";delAns$
           If Lower$(delAns$)="no" Then [noDelete]
           WindowWidth=150
           WindowHeight=75
           StaticText #patience, "PLEASE WAIT...", 10, 15, 100, 25
           Open "DELETING...", For Dialog_Modal As #patience

           Open "contact4.dat" For Random As #contacts Len = 410
           Field #contacts, 335 As name$, 35 As number$, 20 As stage$, 20 As type$

           For moveRecords=recordIndex+1 To contactCount
               Get #contacts, moveRecords+1
               Put #contacts, moveRecords
           Next moveRecords

           Get #contacts, 1
           name$(Val(name$))=""
           name$=Str$(Val(name$)-1)
           Put #contacts, 1

           Close #contacts
           Close #patience
           Call loadNames
           Call loadNamesFiltered handle$
           Notice "RECORD DELETED"+Chr$(13)+"Names reloaded"
       Else
           Notice "NO RECORD SELECTED!"+Chr$(13)+"Please select a record," _
               +Chr$(13)+"then select delete from the menu."
       End If

[noDelete]
End Sub




[Rod]

The run command needs to be told what program to use to open any particular file.

run "c:\paint shop pro 5\psp.exe c:\atemp\test.png"
run "c:\program files (x86)\microsoft office\office12\winword.exe c:\atemp\rod.docx"


To use the default windows program for any particular .extension you would need to resort to API and shell execute. For that you really need to get hold of a copy of Alyce's book.


www.lulu.com/shop/alyce-watson/apis-for-liberty-basic/ebook/product-18586977.html

[wexhammer]

Yahoooooo! Managed to get it working! Not sure if its the right way of doing this, could the code be neater perhaps? I have simplified it for others to learn from anyway. Thanks Rod!

Also there is an error when not selecting a file and just exiting the filedialog, why is this?





nomainwin

   Stylebits #main, 0,_WS_MAXIMIZEBOX,0,0
   WindowWidth = 300 '595  695  795
   WindowHeight = 150
   UpperLeftX=Int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=Int((DisplayHeight-WindowHeight)/2)






   Statictext #main, "File", 0, 10, 50, 20
     Textbox #main.filename, 60, 10, 160, 25
   Statictext #main.3, "Run File", 0, 40, 50, 20
     Textbox #main.fileexepath, 60, 40, 160, 25

     button #main.browse, "...", [browse], UL, 230, 10, 20, 20
    ' button #main.run, "Open", [open], UL, 435, 10, 40, 20
     button #main.run2, "Open", [openrun], UL, 230, 40, 40, 20




   Open "Test" For Window As #main
   Print #main, "Trapclose [endProgram]"




   hMain=hwnd(#main)

[Code]


wait

[endProgram]
close #main

wait
end

[browse]
filedialog "Open file...","*.*",file$
if file$="" then end

index=len(file$) : length=len(file$)

while mid$(file$,index,1)<>"\"
index=index-1
wend

lpszFile$=right$(file$,length-index)

'print #main.name, trim$(lpszFile$)

'print #main.name, trim$(lpszFile$)

lpszDirectory$ = left$(file$,index)

print #main.filename, lpszDirectory$+lpszFile$

lpszResult$ = space$(255) + chr$(0)

calldll #shell32, "FindExecutableA",_
  lpszFile$ as ptr,lpszDirectory$ as ptr,lpszResult$ as ptr,_
  result as long


  associatedFile$ = trim$(lpszResult$)



print #main.fileexepath, associatedFile$
wait







[openrun]
#main.fileexepath, "!Contents? openfilename$"
run openfilename$+" ";lpszDirectory$+lpszFile$
wait


open "shell32" for dll as #shell
calldll #shell, "ShellExecuteA", _
hWindow as long, _ 'parent window
lpOperation$ as ptr, _ 'open or print
RunFile$ as ptr, _ 'file name
lpParameters$ as ptr, _ 'null
lpDirectory$ as ptr, _ 'default directory
nShowCmd as long, _ 'show window flag
result as long
close #shell












[wexhammer]

Ok, fixed the the other error but.....

Been playing around with the code below and have finally found an error and i don't know how to fix it. I get an error when opening word or excel files with spaces in their file name. The path cannot be found! Its not an error within LB, so how would i get this to work properly? Word & Excel files open perfectly when there are no spaces in their filenames so why the error with spaces?




nomainwin

   Stylebits #main, 0,_WS_MAXIMIZEBOX,0,0
   WindowWidth = 300 '595  695  795
   WindowHeight = 150
   UpperLeftX=Int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=Int((DisplayHeight-WindowHeight)/2)






   Statictext #main, "File", 0, 10, 50, 20
     Textbox #main.filename, 60, 10, 160, 25
   Statictext #main.3, "Run File", 0, 40, 50, 20
     Textbox #main.fileexepath, 60, 40, 160, 25

     button #main.browse, "...", [browse], UL, 230, 10, 20, 20
    ' button #main.run, "Open", [open], UL, 435, 10, 40, 20
     button #main.run2, "Open", [openrun], UL, 230, 40, 40, 20




   Open "Test" For Window As #main
   Print #main, "Trapclose [endProgram]"




   hMain=hwnd(#main)

[Code]


wait

[endProgram]
close #main

wait
end

[browse]
filedialog "Open file...","*.txt;*.rtf;*.doc;*.pdf;*.jpg;*.gif;*.xls;*.html;*.htm",file$
if file$="" then wait

index=len(file$) : length=len(file$)

while mid$(file$,index,1)<>"\"
index=index-1
wend

lpszFile$=right$(file$,length-index)

'print #main.name, trim$(lpszFile$)

'print #main.name, trim$(lpszFile$)

lpszDirectory$ = left$(file$,index)

print #main.filename, lpszDirectory$+lpszFile$

lpszResult$ = space$(255) + chr$(0)

calldll #shell32, "FindExecutableA",_
  lpszFile$ as ptr,lpszDirectory$ as ptr,lpszResult$ as ptr,_
  result as long


  associatedFile$ = trim$(lpszResult$)



'print #main.fileexepath, associatedFile$
wait







[openrun]
'#main.fileexepath, "!Contents? openfilename$"
'run openfilename$+" ";lpszDirectory$+lpszFile$
run associatedFile$+" ";lpszDirectory$+lpszFile$
wait


open "shell32" for dll as #shell
calldll #shell, "ShellExecuteA", _
hWindow as long, _ 'parent window
lpOperation$ as ptr, _ 'open or print
RunFile$ as ptr, _ 'file name
lpParameters$ as ptr, _ 'null
lpDirectory$ as ptr, _ 'default directory
nShowCmd as long, _ 'show window flag
result as long
close #shell











[Rod]

If the path has spaces you need to surround it with quote characters chr$(34). The question has been asked many times. Just one of those wrinkles. Use the search or google to see examples.

[wexhammer]

So i have added some chr$(34), i can open some files i could not before. But i am now unable to open some of what could be opened before and still cant open others with spaces. What could be missing here? An If Else statement perhaps?





nomainwin

   Stylebits #main, 0,_WS_MAXIMIZEBOX,0,0
   WindowWidth = 300 '595  695  795
   WindowHeight = 150
   UpperLeftX=Int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=Int((DisplayHeight-WindowHeight)/2)

   Statictext #main, "File", 0, 10, 50, 20
     Textbox #main.filename, 60, 10, 160, 25
   Statictext #main.3, "Run File", 0, 40, 50, 20
     Textbox #main.fileexepath, 60, 40, 160, 25

     button #main.browse, "...", [browse], UL, 230, 10, 20, 20
    ' button #main.run, "Open", [open], UL, 435, 10, 40, 20
     button #main.run2, "Open", [openrun], UL, 230, 40, 40, 20

   Open "Test" For Window As #main
   Print #main, "Trapclose [endProgram]"

   hMain=hwnd(#main)

[Code]


wait

[endProgram]
close #main

wait
end

[browse]
filedialog "Open file...","*.txt;*.rtf;*.doc;*.pdf;*.jpg;*.gif;*.xls;*.html;*.htm",file$
if file$="" then wait

index=len(file$) : length=len(file$)

while mid$(file$,index,1)<>"\"
index=index-1
wend

lpszFile$=right$(file$,length-index)

'print #main.name, trim$(lpszFile$)

'print #main.name, trim$(lpszFile$)

lpszDirectory$ = left$(file$,index)

print #main.filename, lpszDirectory$+lpszFile$

lpszResult$ = space$(255) + chr$(0)

calldll #shell32, "FindExecutableA",_
  lpszFile$ as ptr,lpszDirectory$ as ptr,lpszResult$ as ptr,_
  result as long

  associatedFile$ = trim$(lpszResult$)

'print #main.fileexepath, associatedFile$
wait






[openrun]
'#main.fileexepath, "!Contents? openfilename$"
'run openfilename$+" ";lpszDirectory$+lpszFile$
'if openfilename$ = associatedFile$+" ";lpszDirectory$+lpszFile$ then

'run associatedFile$+" ";lpszDirectory$+lpszFile$
'else
run associatedFile$+" ";lpszDirectory$+chr$(34)+lpszFile$+chr$(34)
'end if
wait

open "shell32" for dll as #shell
calldll #shell, "ShellExecuteA", _
hWindow as long, _ 'parent window
lpOperation$ as ptr, _ 'open or print
RunFile$ as ptr, _ 'file name
lpParameters$ as ptr, _ 'null
lpDirectory$ as ptr, _ 'default directory
nShowCmd as long, _ 'show window flag
result as long
close #shell












[Rod]

Can you simplify the problem by showing us specific paths that don’t work..

[wexhammer]

This path used to open now it doesnt: C:\Users\User\Desktop\Visual Smalltalk.pdf

This path still doesn't open, instead it opens a xlsx document for each space. For example it tries to open my then data then log etcc instead of the actual file:
C:\Users\User\Desktop\My Data Log Checker.xlsx

This path now opens though when before it didnt: C:\Users\User\Desktop\Instuction Version 2.docx

[Rod]

I wonder if you are trying to open desktop icons. That won’t work. Right click on the icon and select open file location. That’s the path you need in the run command argument. In my examples I had the direct path to the application used for the .extension type.

[wexhammer]

I dont think its trying to open icons. The path name is here:

C:\Users\User\Desktop\Tinctures In Extraction Process.xlsx

For some reason the code is reading the opening of; 'Tinctures In Extraction Process.xlsx' as 3 seperate files, them being: 'Tinctures.xlsx', 'In.xlsx', 'Process.xlsx', this is all really weird because i can open word documents...

Here are some error messages:

C:\Users\User\Desktop\Tinctures.xlsx could not be found.

'In.xlsx' could not be found.

and so on......

[Rod]

try this, Windows sees the space as a delimiter so wrap the argument in quotes.

"C:\Users\User\Desktop\"+chr$(34)+"Tinctures In Extraction Process.xlsx"+chr$(34)


from the help file

Command Line - The examples above that run liberty4.hlp and newfor403.txt show how to send information to the executable to be run. If the executable has command line capability, it will use this additional information when it starts up. Notepad will start with the designated file loaded. To insure that a filename is accepted through the command line argument of executables invoked with the RUN command, place such arguments inside of quotation marks. Quotation marks are designated with chr$(34). Be sure to preserve the blank space in the string that occurs between the name of the executable and the additional arguments. Here is an example:

However I think we still have a problem because you are still trying to run a.xlsx directly. You nee to tell RUN which .exe to open to actually process the .xlsx. That would be excel.exe?

[wexhammer]

The "FindExecutableA" is working and know's to open excel or whatever file is associated with its .exe

It seems to still be a problemb

run associatedFile$+" ";lpszDirectory$+chr$(34)+;lpszFile$;+chr$(34)

[Rod]

Instead of using the run command use the print command so that we can see that actual string you are passing to run. What do associatedFile$,lpszDirectory$ and lpszFiles$ actually contain? We also don't need the ; + is all you need to concatenate the strings together.

[wexhammer]

Here is amended version of the code: You can now see the full path in the third textbox.

C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.EXE C:\Users\User\Desktop\"Tinctures In Extraction Process.xlsx"





nomainwin

   Stylebits #main, 0,_WS_MAXIMIZEBOX,0,0
   WindowWidth = 300 '595  695  795
   WindowHeight = 150
   UpperLeftX=Int((DisplayWidth-WindowWidth)/2)
   UpperLeftY=Int((DisplayHeight-WindowHeight)/2)






   Statictext #main, "File", 0, 10, 50, 20
     Textbox #main.filename, 60, 10, 160, 25
   Statictext #main.3, "Run File", 0, 40, 50, 20
     Textbox #main.fileexepath, 60, 40, 160, 25

Statictext #main.3, "Whole Path:", 0, 80, 50, 20
     Textbox #main.wholepath, 60, 80, 160, 25

     button #main.browse, "...", [browse], UL, 230, 10, 20, 20
    ' button #main.run, "Open", [open], UL, 435, 10, 40, 20
     button #main.run2, "Open", [openrun], UL, 230, 40, 40, 20




   Open "Test" For Window As #main
   Print #main, "Trapclose [endProgram]"




   hMain=hwnd(#main)

[Code]


wait

[endProgram]
close #main

wait
end

[browse]
filedialog "Open file...","*.txt;*.rtf;*.doc;*.pdf;*.jpg;*.gif;*.xls;*.html;*.htm",file$
if file$="" then wait

index=len(file$) : length=len(file$)

while mid$(file$,index,1)<>"\"
index=index-1
wend

lpszFile$=right$(file$,length-index)

'print #main.name, trim$(lpszFile$)

'print #main.name, trim$(lpszFile$)

lpszDirectory$ = left$(file$,index)

print #main.filename, lpszDirectory$+lpszFile$
print #main.wholepath, associatedFile$+" ";lpszDirectory$+chr$(34)+lpszFile$+chr$(34)

lpszResult$ = space$(255) + chr$(0)

calldll #shell32, "FindExecutableA",_
  lpszFile$ as ptr,lpszDirectory$ as ptr,lpszResult$ as ptr,_
  result as long


  associatedFile$ = trim$(lpszResult$)



'print #main.fileexepath, associatedFile$
wait






[openrun]
'#main.fileexepath, "!Contents? openfilename$"
'run openfilename$+" ";lpszDirectory$+lpszFile$
'if openfilename$ = associatedFile$+" ";lpszDirectory$+lpszFile$ then

'run associatedFile$+" ";lpszDirectory$+lpszFile$
'else
run associatedFile$+" ";lpszDirectory$+chr$(34)+lpszFile$+chr$(34)

'end if
wait


open "shell32" for dll as #shell
calldll #shell, "ShellExecuteA", _
hWindow as long, _ 'parent window
lpOperation$ as ptr, _ 'open or print
RunFile$ as ptr, _ 'file name
lpParameters$ as ptr, _ 'null
lpDirectory$ as ptr, _ 'default directory
nShowCmd as long, _ 'show window flag
result as long
close #shell












[Rod]

Ok, the "argument" is everything after associatedFiles$ so I moved the first chr$(34) I didn't explain that very well, I was confused by the missing app.exe in the examples we discussed. Re read the help file now its understood a little better.






[browse]
filedialog "Open file...","*.txt;*.rtf;*.doc;*.pdf;*.jpg;*.gif;*.xls;*.html;*.htm",file$
if file$="" then wait

index=len(file$) : length=len(file$)
while mid$(file$,index,1)<>"\"
   index=index-1
wend
lpszFile$=right$(file$,length-index)
print lpszFile$
lpszDirectory$ = left$(file$,index)
print lpszDirectory$+lpszFile$

lpszResult$ = space$(255) + chr$(0)
calldll #shell32, "FindExecutableA",_
  lpszFile$ as ptr,lpszDirectory$ as ptr,lpszResult$ as ptr,_
  result as long

associatedFile$ = trim$(lpszResult$)






print associatedFile$+" "+chr$(34)+lpszDirectory$+lpszFile$+chr$(34)
run associatedFile$+" "+chr$(34)+lpszDirectory$+lpszFile$+chr$(34)
wait


open "shell32" for dll as #shell
calldll #shell, "ShellExecuteA", _
hWindow as long, _ 'parent window
lpOperation$ as ptr, _ 'open or print
RunFile$ as ptr, _ 'file name
lpParameters$ as ptr, _ 'null
lpDirectory$ as ptr, _ 'default directory
nShowCmd as long, _ 'show window flag
result as long
close #shell