FileListBox simpel vraagje (hoop ik)

Status
Niet open voor verdere reacties.
XenomX

XenomX

Gebruiker
Lid geworden
27 apr 2002
Berichten
822
Ik heb een soort Adressenboek gemaakt... wanneer je dus een adres en naam enz. opslaat staat ie em op in een .txt bestand in C:\japie.dir (bijv.)
Mijn vraag:

Ik heb nu dit:

Private Sub Form_Load()
File1.Path = "C:\Program Files\Adressenboek\contacten\"
End Sub

Hij laat nu alle .txt bestanden zien die in die map staan. Dat wil allemaal perfect. Maar nu wil ik als ik op een knop druk hij het geslelecteerde bestand in de FileListBox opent... dit wil dus niet.

Zegmaar: In de lijst staat Kees.txt (info over Kees) ik selecteer em en druk dan op de knop Bekijk om het bestand te bekijken, heb het met het SHELL cmd gedaan maar het werkt niet.

Weet iemand hoe ik iets uit een ListDriveBox open ?

Mvg/Bvd, Xenom
 
Wat voor shell commando heb je gebruikt ?

Nico
 
euh

Ik heb het zo gedaan.
Had em al weer verwijderd om dat ie niet werkte maar zo had ik em:

SHELL "C:\Program Files\Adressenboek\contacten\" + File1.Selected

Maar dit werkt niet zeg ie dat er een fout is kan Selected niet vinden ofzo...

Mvg
 
Pak in plaats van file1.selected eens File1.FileName

Nico
 
THNX

Thnx, had het al wel zien staan maar ik d8 dat dat voor de bestanden was die hij zoet zoals .txt maar hij werkt in iede geval :p thnx !

Weet jij ook hoe je kan lezen uit een .txt bestand. Regel voor regel ?


Mvg
 
Maak gebruik van de FollowHyperlink methode.
De preciese aanroep is afhankelijk van de omgeving die je gebruikt (VB, Access, VBA in Word of Excel, Visio, Outlook). Helaas heb je dat niet verteld....
Zoek de FollowHyperlink methode even op in de help van het programma dat je gebruikt, dan kun je zien hoe je het moet gebruiken.
Ook kun je deze link gebruiken voor meer hulp:
http://www.google.nl/search?q=followhyperlink+method&ie=UTF-8&oe=UTF-8&hl=nl&lr=
 
huh

Snap er geen snars van :) is er geen andere manier ?

ps ik gebruik VBA 5.0



Mvg
 
probeer dit eens :
Code: 
Option Explicit

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

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_DblClick()
Dim filename, temp  As String
filename = File1.Path + "\" + File1.filename
Open filename For Input As #1
Text1.Text = ""
Do While Not EOF(1)
Line Input #1, temp
Text1.Text = Text1.Text + temp + vbCrLf
Loop
Text1.SelStart = Len(Text1.Text) - 1
Close #1


End Sub

Ik gebruik in bovenstaand voorbeeld een textbox (multiline on), een filelist, een dirlist en een drivelist

Hier werkt het ok .

Nico :)
 
yo

het is gelukt beetje laat gereageerd maarja beter laat dan nooit. Thnx all !
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan