---

Hallo : )

ich eine simple Frage, für die Profis ; )

Case "V-"
filDateiAuswahl.Path = "\\nnitfs02\acad\Archiv\Vorrichtungen\Allgemein\"

In diesem Falls greift er direkt unter dem Ordner Allgemein.
Was muss man da zusätzlich einfügen, damit er auch auf die Unterordner zugreift?!

Danke im voraus
Feyza

------------------
 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Feyza,

dafür ist das FileSystemObject zu empfehlen, in Verweise Microsoft Scripting Runtime auswählen, mit untenstehendem Code kannst du alle Unterordner auslesen.

Option Explicit

Private Sub Form_Load()
Dim fso As Scripting.FileSystemObject
Dim myfo As Folder

Set fso = New Scripting.FileSystemObject
Set myfo = fso.GetFolder("C:\Programme")
GetSubFolders myfo
End Sub

Public Sub GetSubFolders(ByVal fo As Folder)
Dim subfo As Folder
  If fo.SubFolders.Count > 0 Then
    For Each subfo In fo.SubFolders
      If subfo.SubFolders.Count > 0 Then
        GetSubFolders subfo
      End If
      Debug.Print subfo.Name
    Next
  End If
End Sub

HTH pablo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen Pablo,

in diesem Fall funktioniert es nicht.
Worauf muss ich da noch achten?!

Private Sub cmdSuchen_Click()

'  lblFehler.Caption = " "
  filDateiAuswahl.Visible = True

      If txtEingabe02.Text <> "" Then
      txtEingabe02.Text = UCase(txtEingabe02.Text)
      filDateiAuswahl.Pattern = txtEingabe02.Text & "*"
      Else
      lblFehler.Caption = "Fehlende Eingabe!!"
      txtEingabe02.SetFocus
      End If

If Com02.Visible = True Then
'lblFehler.Caption = " "
End If

End Sub

Private Sub Form_Load()
Dim fso As Scripting.FileSystemObject
Dim myfo As Folder

Set fso = New Scripting.FileSystemObject
Set myfo = fso.GetFolder("O:\Messmittel_fertig")
GetSubFolders myfo
End Sub

Public Sub GetSubFolders(ByVal fo As Folder)
Dim subfo As Folder
  If fo.SubFolders.Count > 0 Then
    For Each subfo In fo.SubFolders
      If subfo.SubFolders.Count > 0 Then
        GetSubFolders subfo
      End If
      Debug.Print subfo.Name
    Next
  End If
End Sub

Danke
Feyza

------------------
   

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Feyza,

schwer zu sagen, vielleicht hast du keinen Lesezugriff auf einen Unterordner, hast du es mit dem Netzwerkpfad probiert?

pablo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

AlleFiles.zip

Hallo Zusammen,

ich hatte mal vor kurzem ein Aehnliches Problem - Stefan Berlitz hat mir dann ein paar links zu entsprechenden Seiten angegeben. Ich habe die Anfrage hier von Feyza gelesen und mal schnell ein VB-Projekt zusammengenagelt (... es regnet ja heute...). Das Tool hat ein UI, auf dem mittels 'suchen' ein Ordner ausgewaehlt werden kann. Desweiteren eine Check-Box, um auch alle Unterordner in die Dateisuche miteinzubeziehen. Dann noch eine Textfeld fuer den Dateifilter. ACHTUNG: Syntax immer z.B. '*.txt' oder '*.*' - allfaellige Fehleingaben sind nicht abgefangen... wie gesagt, nur mal schnell zusammengenagelt...
Zu guter Letzt einen  'Start' - Button, um die Suche zu beginnen.

Die gefundenen Dateien werden in einer ListBox aufgelistet.

An dieser Stelle nochmals Danke an Stefan Berlitz.

HAVE FUN !

Gruesse,

Paul

www.morecam.ch/cad.htm

@Feyza: bist Du bei MAN in Muenchen ?

[Diese Nachricht wurde von PaulSchuepbach am 19. Dez. 2004 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen,

danke für dein Projekt.
Leider klappt es noch nicht ganz.

Fehler beim Kompilieren:
Projekt oder Biblothek nicht gefunden.

Markiert das SPace bei:
Bei Privat Sub cmdBrowse_Click()
..
..
sBuffer = Space(MAX-Path)

Muss ich da noch ein Verweis aktivieren?!
Wenn ja, welches : )

Schönen Gruß
Feyza

PS: Bin bei der MAN - Nürnberg

------------------
   

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

sorry, abe rkleiner Fehler:

da ist noch ein FileSystemObject drin (wird nicht gebraucht) - also entweder einen Verweis auf 'Microsoft Scripting Runtime' setzten oder alle 'fso' suchen und loeschen.

Sorry.

Gruesse,

Paul

www.morecam.ch/cad.htm

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Noch eion Nachtrag:

ev. ist noch ein Verweis auf 'Autodesk Inventor Object Library' drin - den entfernen.

Gruesse,

Paul

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Jetzt funktioniert das Projekt auch.
Nur, ich möchte nicht den Ordner auswählen, sondern den Dateinamen in ein Textfeld schreiben, und er soll diese mir dann suchen und in einem FileListBox ausgeben : )

Danke.
Feyza

------------------
   

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Paul und Pablo,

habe die Testscript von VB.FUN angewendet.
Ist wirklich eine saubere Sache.

Hier arbeitet man mit einem DirListbox und einem DriveListbox.

Wenn man den DriveListbox/DirListbox die Variablen fest eingibt,
kann man bei Suchen seinen Dateinamen eingeben und er sucht in allen Ordnern : ))

Danke nochmals an Euch.

Bis bald
Feyza : ))

------------------
   

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP