skrive fil bane til textbox

Hej.

dir1.path = drive1.path

file1.path = dir1.path

text1.text = file1.filename

M.v.h. Jørn

Hej Jørn,
Tak for det, jeg fek det forkert men har prøvd lit selv sådan:

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

og så videre med:

Private Sub File1_Click()
Text3.Text = File1.Path & "\" & File1.FileName
End Sub
' den siste giver mig alt jeg trenger menn ... kan jeg gjøre det enklere?
' jeg får det forkert med: Dir1.Path = Drive1.Path og kan ikke endre til en andet driver en C:\. Dir1 åbner og viser altid appl.path .
Hva gjør jeg fejl?

Terra

Hej.

Hvis du vil kunne ændre drev, må du oprette en drivelistbox.

Hvis det er fast drev e: f.eks. kan du indstille dirlistbox:

dir1.path = "e:\"

M.v.h. Jørn

->Jørn
Jeg la til en Drive1 og det går bra nu med:

Private Sub Drive1_Change()
Dir1 = Drive1
End Sub

Jeg ska browse til en 'fil.txt' og jeg skrive i 'Pattern' af fileListBoxe -> fil.txt da viser den bare fil.txt file.
Kan jeg lave i Private Sub Dir1_Change() en:  'If...' fileListBoxe blir endret
MsgBox "Den er her?" Hvordan kan jeg lave den her?

Terra

Hej.

Du kan ændre pattern dynamisk, dvs. i run-time.  file1.pattern = *.txt vil vise alle txt-filer.  file1.pattern  *.mp3 vil vise alle MP3-filer

file1.pattern t*.txt vil vise alle tekst-filer, hvis første tegn i navnet er t.

file1.pattern  ????.txt vil vise alle tekst-filer, hvor navner er på 4 tegn.

Læs om joker-tegn i hjælpen.

M.v.h. Jørn

Tak for det Jørn.
Ja,... jeg removed *.* meed vilje for da viser den bare den filen jeg trenger.
Jeg skal lave en if file exist her og skal søge bare efter en fil.
Jeg mener ska ha fileListBoxe blanc til jeg finder filen.
Kan jeg lave en 'Sub' here hvis den endres?

Den virker nu :)

Private Sub Dir1_Change()
File1.Path = Dir1.Path
If File1.ListCount <> 0 Then
MsgBox "den er ok"
'Else
'MsgBox "er ikke"
End If
End Sub

Ups..., Jørn..., jeg har prøvd at give deg 40 here man den bare counted sådan
Tusind tak for helpen :)

Jørn -> http://www.eksperten.dk/spm/599805