سوال در مورد VB یا Gambas

[meshkin]

سلام دوستان.
از کسانی که با VB یا احیانا Gambas کار کرده اند، یه سوال داشتم:
می خواستم ببینم چگونه می شود درون یه دایرکتوری دنبال یک فایل گشت؟ البته از طریق کد! نه از طریق اشیای گرافیکی!
اگه میشه کدش رو بنویسید!
ممنون.

[z.k]

کد: [انتخاب]

Sub DirWalk(ByVal sPattern As String, ByVal CurrDir As String, sFound()
As String)
Dim i As Integer
Dim sCurrPath As String
Dim sFile As String
Dim ii As Integer
Dim iFiles As Integer
Dim iLen As Integer

If Right$(CurrDir, 1) <> "\" Then
    Dir1.Path = CurrDir & "\"
Else
    Dir1.Path = CurrDir
End If
For i = 0 To Dir1.ListCount
    If Dir1.List(i) <> "" Then
        DoEvents
        Call DirWalk(sPattern, Dir1.List(i), sFound)
    Else
        If Right$(Dir1.Path, 1) = "\" Then
            sCurrPath = Left(Dir1.Path, Len(Dir1.Path) - 1)
        Else
            sCurrPath = Dir1.Path
        End If
        File1.Path = sCurrPath
        File1.Pattern = sPattern
        If File1.ListCount > 0 Then 'matching files found in the
directory
            For ii = 0 To File1.ListCount - 1
                ReDim Preserve sFound(UBound(sFound) + 1)
                sFound(UBound(sFound) - 1) = sCurrPath & "\" &
File1.List(ii)
            Next ii
        End If
        iLen = Len(Dir1.Path)
        Do While Mid(Dir1.Path, iLen, 1) <> "\"
            iLen = iLen - 1
        Loop
        Dir1.Path = Mid(Dir1.Path, 1, iLen)
    End If
Next i
End Sub


[meshkin]

مرسی.

[مهدی پیشگوی]

در پایتون . برای مثال می خواییم دنبال فایل m3.txt  بگردیم

کد: [انتخاب]

import os.path
myfile="m3.txt"
def print_dir(path):
  for x in os.listdir(path):
    full_adr=os.path.join(path,x)
    file1=os.path.split(x)
    if os.path.isdir(full_adr):
      print_dir(full_adr) 
print_dir ("/tmp")