✔ Fehler nach EXE Erstellung

[Amo8]

Hi !
Ich habe eine EXE erstellt und zwei Aufrufe funktionieren nicht. Es handelt sich um eine TxT, aus der Daten gelesen werden sollen und die auf Click eines Command Button angezeigt werden soll zum editieren.
Cod des Command Button:

Private Sub Command5_Click() 'Animierungs Text aufrufen zum ändern

                    
 Call ShellExecute(Me.hWnd, "Open", "\Ani.txt", _
                    "", App.Path, 1)

End Sub

Cod im Pogrammaufruf zum auslesen:

Private Sub Animation()  

Dim App As String
Dim FNr    As Integer
Dim lCount As Long
Dim sRows() As String


App = "\Ani.txt"  'das ist der Aufruf, um den es geht, 
                         'die "\Ani.txt" ist im selben Ordner wie die EXE

FNr = FreeFile

lCount = 0
ReDim sRows(lCount)
Open App For Input As #FNr 'Datei öffnen zum lesen
Do While (Not (EOF(FNr)))
      lCount = lCount + 1
      ReDim Preserve sRows(lCount)
      Line Input #FNr, sRows(lCount)
Loop
Close #FNr

Frage warum geht das nicht?

 

[Alex F.]

gib es mal absolut ein

App = App.path &"\Ani.txt"

Grüsse bb

 

[Amo8]

Nein gut gedacht, aber das geht schon mal gar nicht. da kommt sofort ein Fehler im Aufruf.
Aber ich habe es raus bekommen durch probieren. Das weglassen des \ -Strichs hats gebracht.

Call ShellExecute(Me.hWnd, "Open", "Ani.txt", _
"", App.Path, 1)

Allso nur "Ani.txt" ist richtig.

 

[Alex F.]

den hat ich nicht gesehen ;-(