Finde filer i en mappe

Hej.

Du kan bruge kontrollen FileListBox og dér sætte pattern til *.vbr.

M.v.h.  Jørn

Det kan kombineres med en dirlistbox og drivelistbox
og måske en combobox til at vælge filtyper i

her er et eksempel:

Private Sub Form_Load()
Combo1.Text = "*.*"
Combo1.AddItem ("*.*"), 0
Combo1.AddItem ("*.exe"), 1
Combo1.AddItem ("*.dll"), 2
Combo1.AddItem ("*.vbr"), 3
End Sub

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

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

Private Sub Combo1_Click()
File1.Pattern = Combo1.Text
End Sub

hej igen
kan ikke lige finde den omtalte komponent(filListBox), men har ikke brug for at for det visualiseret, men bare at få en liste med alle de filnavne, der ender på .vbr

Kan du ikke finde filelistbox? Den er på dit panel over kontroller. Det er klart det nemmeste, det fylder EN linie kode:

  File1.pattern = "*.vbr"

Hvis du ikke vil have det visualiseret, kan du sætte

  file1.visible=false

Hvis du ikek vil have det visualiseret, hvordan vil du så have listen over alle filerne - i et array, i en string, i en textfil, i hvad?

Hej Anders.

"Jesus er svaret, men hvad var spørgsmålet"?

Du må ikke bruge så svære ord.  Når du vil 'læse' vbr-filer, er det så en automatisk funktion der læser den ene efter den anden?  Og hvad gør programmet med det som er læst?
Du har nu fået svar på dit spørgsmål - med uddybende spørgsmål.  Forklar hvis du vil have hjælp.

M.v.h.  Jørn

hehe..... Ja Jesus var sq god nok ;)

Men ok, jeg skal bruge den specifikke sti på alle de .vbr filer der ligge i en given mappe. At få disse referencer i et array, ville være fint.

lige nu fungere min komponent fint med en statisk reference til en .vbr fil

Eks. -->  FSO.OpenTextFile(App.Path & "\APP_SRV_adm.VBR")

så jeg mangler bare at kunne løbe mappen igennem og fylde et array med navnene på alle de .vbr filer der er.

Jeg vil gerne ungå at have en form, så en løsning uden visuelle komponenter ville være at fedt.

hej så længe ;)

Hej.

Tak for uddybning.  Jeg har aldrig arbejdet med VB uden synlige forms.  Måske en anden kan foreslå en løsning, nu hvor opgaven er beskrevet.

M.v.h.  Jørn

Jeg holder nu fast i Jørns løsning:

  Dim filarray() As String
  Dim i As Long
  File1.Path = "C:\"
  File1.Pattern = "*.vbr"
  If File1.ListCount > 0 Then
    For i = 0 To File1.ListCount
      ReDim Preserve filarray(i)
      filarray(i) = File1.List(i)
    Next i
  End If

Så er dit filarray() fyldt af alle de *.vbr filer der findes på c:\

PS: Du kan jo oprette en filelist runtime, hvis du ønsker det.

Hvis du ikek har en form, hvor skriver du så al din kode - i et modul?

Du kan jo også bruge FSO:


Opret reference til MicroSoft Scripting Runtime (Project -> References)

Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
FindFile "vbr", fso.GetFolder("c:\")


'--- Søgerutine---
Private Sub FindFile(SearchEXT as String, folder As Scripting.folder)

Dim tmpFolder As Scripting.folder
Dim tmpFile As Scripting.File

If folder.Files.Count > 0 Then
  For Each tmpFile In folder.Files
    If lcase(right(tmpFile.Name,3)) = lcase(searchEXT) Then
      msgbox "Fil fundet : " & tmpfile.name
        'Mere kode - f.eks. smid den over i et array
      End If
    Next
  End If
End Sub

Drop linien

  Dim tmpFolder As Scripting.folder

Den bruges ikke

hej igen.

så kom det til at virke..... 1000 tak.

sådan ser det ud
--------------------------------------------------
Private Sub FindFile(folder As Scripting.folder)
Dim i As Integer

Dim tmpFolder As Scripting.folder
Dim tmpFile As Scripting.File
ReDim FilesToDelete(0)
i = 0

 
  If folder.Files.Count > 0 Then
    For Each tmpFile In folder.Files
      If InStr(1, tmpFile.Name, ".VBR") Then
      ReDim Preserve FilesToDelete(i)
      FilesToDelete(i) = tmpFile.Name
        i = i + 1
        'MsgBox "Fil fundet : " & tmpFile.Name
      End If
    Next
  End If
 
End Sub
-------------------------------------------------------
så her lige nogle points ;)