ich möchte dir gerne helfen, aber ich werd aus deinem posting nicht ganz schlau... bzw aus dem (pseudo)code.

Dir(Paht,vbDirectory) liefert dir die verzeichniseinträge, aber für was willst du dann name1=Dir() aufrufen?
vllt kannst ja deinen code posten.

hallo,
hab jetzt selber ein wenig probiert aber dann hab ich das gefunden:

Zitat

Aufgrund der Natur der dir-Funktion (siehe Hilfe) ist ein direkter rekursiver Aufruf nicht möglich. Aber natürlich kann man die Ergebnisse zwischenspeichern und darauf wieder zurückgreifen, so dass sich ein rekursiver Aufruf simulieren lässt. Für die Zwischenspeicherung bietet sich ein Array an.

das hab ich von hier.
aber vllt hilft dir folgendes codebeispiel weiter:
http://www.activevb.de/tipps/vb6tipps/tipp0128.html

mfg seHaas

was mir noch eingefallen ist, du könntest ja einfach ein c#-classlibrary machen mit einer klasse die eben diese file-funktionen die du brauchst enthält.
da gehts sicher mit rekursionen:

private int searchDir(string path)
             {
                 DirectoryInfo di = new DirectoryInfo(path);
                 FileInfo[] fi = di.GetFiles("*.mp3");
                 for (int i=0; i<fi.Length;i++)
                 {
     //dateien: fi[i].Name
                 }
  DirectoryInfo[] dil = di.GetDirectories();
                 for (int i=0; i<dil.Length; i++)
                 {
                    this.searchDir(path+Path.DirectorySeparatorChar+dil[i].Name);
     //ordner durchsuchen
                 }
                 return fi.Length;
             }

Zitat von epi.um

Jep... hatte den org. Code nicht bei der Hand

Code

Function seekdir(ByVal Pfad1 As String) As String

  		Dim Name1 As String
  		Dim Name2 As String
  		Dim SucheText As String = TextBox2.Text
  		Dim lenStext As Integer = Len(SucheText)

  		' Ersten Eintrag abrufen.	    
  		Name1 = FileSystem.Dir(Pfad1, FileAttribute.Directory)

  		Do While Name1 <> ""	' Schleife beginnen.
  			' Aktuelles und übergeordnetes Verzeichnis ignorieren.

  			If Name1 <> "." And Name1 <> ".." Then
 			 ' Mit bit-weisem Vergleich sicherstellen, daß Name1 ein
  				' Verzeichnis ist.
 			 If (GetAttr(Pfad1 & Name1) And vbDirectory) = vbDirectory Then
 				 seekdir(Pfad1 & Name1 & "\")
  				Else
  				    Dim x As Integer
 				 x = InStr(1, Name1, SucheText)
 				 Dim y As Integer = x + lenStext - 1
 				 Name2 = Name1.Substring(0, x - 1) & Name1.Substring(y, Len(Name1) - y)
 					MsgBox(Name2)
 			 End If	' um ein Verzeichnis handelt.
  			End If
  			Name1 = Dir() ' Nächsten Eintrag abrufen.
  		Loop
  	End Function

Alles anzeigen

Thx...

ajo, jetzt weiß ich wieder warum ich c# und net vb.net mach