سلام
متاسفانه و با شرمندگی من VB9 را نصب دارم اگر بخواهم کمک هم کنم فقط میتوانم کد 2008 بذارم که در 2005 هم کار خواهد کرد.
ولی سعی میکنم کمکتان کنم:
شما نیاز به این تعریف های پایه دارید
بعد روند کار برای هر پوشه چنین است که باید یک نمونه از ساختار WIN32_FIND_DATA تولید کنید و به FindFirstFile بدهید یک اشاره گر Long خواهید گرفت که برای ادامه کار دیگر FindNextFile را با این عدد اجرا خواهید کرد و در نهایت FindClose را برای بستن اشاره گر استفاده خواهید کرد.کد:Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * 260
cAlternate As String * 14
End Type
Private Declare Function FindClose Lib "kernel32" Alias "FindClose" (ByVal hFindFile As Long) As Long
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
اگر با توابع خودفراخان هم مشکل دارید میتوانم توضیح دهم.
موفق باشید.
