In FileListBox .txt nicht anzeigen!

[TheLuCKer]

Hallo,

ich möchte, dass in eine FileListBox nicht angezeigt wird, dass es eine txt Datei ist. Zum Beispielt steht in der FileListbox:

Annmarie.txt

und der Dateityp soll nicht angezeigt werden, sodass nur Annmarie dort steht. Geht das ihrgentwie Danke Im Vorruas

Jonny

 

[MAN]

Da ich keine möglichkeit kenne, das Steuerelement so zu verändern, dass er den Typ der Datei nicht anzeigt, würde ich es folgendermaßen machen.

Sicherlich hast du zu dienem File-Control noch ein Dir-Control. Da du ja durch dein Dir-Control, den Pfad der Dateien für dein File-Control festlegst, sollte es nach dieser Methode ganz gut funktionieren.

Du erstellst dir erst einmal zu deinem Dir- und File-Control noch ein List-Control (List1) und schreibst noch folgenden Code:

Private Sub Form_Load()
   Call Dir1_Change
End Sub

Private Sub Dir1_Change()
   File1.Path = Dir1.Path
   
   Dim i As Integer
   Dim position As Integer
   
   List1.Clear
   
   For i = 0 To File1.ListCount - 1
      position = InStrRev(File1.List(i), ".txt")
      
      If position Then
         List1.AddItem Left(File1.List(i), position - 1)
      Else
         List1.AddItem File1.List(i)
      End If
   Next i
End Sub

Private Sub List1_Click()
   MsgBox File1.Path & "\" & File1.List(List1.ListIndex)
End Sub

Danach kannst du getrost die Visible-Eigenschaft von dem File-Control auf False setzen.


mfG,
MAN