App.Path & "\" & "Kunden" & "\" & File1 Fehler ?

[Witec]

Bitte nicht lachen...
Ich schon wieder so einen fehler den ich nicht finden kann..

Open App.Path & "\" & "Kunden" & "\" & File1 For Input As #1

Der will angeblich die Datei nicht finden.
thx

[Stoneriver]

hi,
mit drin im Source ??

On Error Resume Next
Open App.Path & "\" & "Kunden" & "\" & File1 For Input As #1

cu

[NetworkBoy]

On Error Resume Next bringt doch irgendwie auch nicht so viel, wenn er keine Datei findet, oder? Naja, ich weiß es nicht

steht in 'File1' denn ganz sicher auch der volle Dateiname + Dateiendung??

Open App.Path & "\Kunden\" & File1 For Input As #1

ist übrigens ein bischen kürzer

mfg NetworkBoy

[Luemmel]

lass mich raten das dir "Kunden" liegt nicht zufällig direkt auf der HD z.B. C?
falls doch

Open App.Path & "Kunden\" & File1 For Input As #1

liegt daran das der backslash in diesem fall schon dabei steht ("C:\")

[Witec]

Nope geht nicht...

MsgBox App.Path & "\Kunden\" & File1
Open App.Path & "\Kunden\" & File1 For Input As #1
Input #1, a
Close #1
MsgBox a

Erste Msgbox Sagt:
E:\xv\bb\kunden\test.text

[HellBird]

machs mal so:

if dir(app.path+"\kunden\"+file1)<>"" then
...
endif

wenn das nicht geht liegt der fehler nicht im code