VB6- Extensie verwijderen in FileListBox

[satriano17]

Private Sub Form_Load()
File1.Pattern = "*.txt"
File1.Path = App.Path & "\Archief"
End Sub

ik lees een Text File in een FileListBox.
Maar daar wordt ook de extensie getoont.

Hoe verwijder ik die? dus enkel de extensie.

Bedankt

 

[edmoor]

Zo?

Replace(Bestand, ".txt", "")

 

[satriano17]

Dag, Edmoor.

Ik heb zo geprobeerd

File1.Pattern = "*.txt"
File1.Path = App.Path & "\Archief"
 File1.Path = Replace(bestand, ".txt", "")

maar dat werkt niet. Extensie wordt niet verwijdert.
En inderdaad het is voor mij een ding niet duidelijk.
wat wordt bedoeld met 'bestand"? In mijn voorbeeld is bestand ARCHIEF ?

Zeker niet elke Text file

 

[edmoor]

Met Bestand bedoel ik de de naam van het bestand waar je de extensie van wilt verwijderen.

 

[satriano17]

ah zo. Maar als veel bestand zijn moet dan voor elke bestand?
In mijn 'ARCHIEF ' zijn vele bestanden, natuurlijk.

 

[edmoor]

Uiteraard voor elk bestand die je in de ListBox plaatst.
Dat wil je toch?

 

[satriano17]

die code moet dan niet in Form_load maar wel in de module waar de file load?

 

[edmoor]

Ja, daar waar je de naam van het bestand ophaalt uiteraard.

 

[satriano17]

ok, nu is het duidelijk. ik ga nu proberen

 

[satriano17]

Ik heb zo geprobeerd. maar nee
Private Sub File1_Click()
LoadFile (File1.Path & "" & File1.FileName)

File1.FileName = Replace(File1.FileName, ".txt", "")

End Sub

 

[edmoor]

Ik heb geen idee wat daar gebeurd natuurlijk.
Wat is File1.FileName?

 

[satriano17]

Dit staat normaal in Form_load

File1.Pattern = "*.txt"
File1.Path = App.Path & "\Archief"

en dit onder de FileListBox

Private Sub File1_Click()
LoadFile (File1.Path & "\" & File1.FileName)
End Sub

van daar worden alle de bestanden in 'ARCHIEF' gelezen en geplaats in de FileListBox control met de extensie

 

[edmoor]

en wat zegt MsgBox(File1.Path & "\" & File1.FileName) ?

 

[satriano17]

als ik een Msgbox plaats en ik klikt op de bestand in FileListBox dan geeft mij de pad + map + de naam van de bestand met de extensie
Alles klopt dus

 

[edmoor]

Doe dan dit:

Bestand = Replace(File1.Path & "\" & File1.FileName, ".txt". "")

Gebruik dan verderop in je code de variabele Bestand.

 

[satriano17]

Ik zal straks verder proberen. Bedankt, Edmoor