سوال در مورد كار با فايلها

ببين احمد يه كد داده بودي به اين صورت

کد:

---

Private Sub Form_Load()
Dim hsearch As Long
Dim findinfo As WIN32_FIND_DATA
Dim success As Long
Dim buffer As String
Dim retval As Long

Me.AutoRedraw = True
hsearch = FindFirstFile("C:\*.* ", findinfo)
If hsearch = -1 Then
  Me.Print "(no files matched search parameter)"
End If
Do
  buffer = Left(findinfo.cFileName, InStr(findinfo.cFileName, vbNullChar) - 1)
  Me.Print buffer
  success = FindNextFile(hsearch, findinfo)
Loop Until success = 0
retval = FindClose(hsearch)
End Sub

---

البته من از نوشتن api هاش صرف نظر كردم. تو اين كد هر چي فايل و فولدر تو آدرسي كه بهش ميدي رو تو فرم برات چاپ ميكنه. حالا من كدي ميخوام كه فقط فولدرارو بهم بده . فايل هارو نميخوام يا اينكه فايل و فولدر رو جدا كنه .
ممنون

اينم براي ديدن فولدرهاي تنها البته ديكه همه كار ميتوني باهاش بكني يعني هر خاصيتي رو كه خواستي چك كني و روش تصميم بگيري

کد:

---

Private Type FILETIME
  dwLowDateTime As Long
  dwHighDateTime As Long
End Type

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 Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const FILE_ATTRIBUTE_TEMPORARY = &H100

Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
Private Declare Function FindFirstFile Lib "kernel32.dll" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32.dll" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32.dll" (ByVal hFindFile As Long) As Long

Private Sub Form_Load()
Dim hsearch As Long
Dim findinfo As WIN32_FIND_DATA
Dim success As Long
Dim buffer As String
Dim retval As Long
Me.AutoRedraw = True
hsearch = FindFirstFile("C:\*.*", findinfo)
If hsearch = -1 Then
  Me.Print "(no files matched search parameter)"
End If
Do
  buffer = Left(findinfo.cFileName, InStr(findinfo.cFileName, vbNullChar) - 1)
  If (GetFileAttributes("c:\" & buffer) And FILE_ATTRIBUTE_DIRECTORY) <> 0 Then
      Me.Print buffer
  End If

  success = FindNextFile(hsearch, findinfo)

Loop Until success = 0

retval = FindClose(hsearch)
End Sub

---

براي ديدن فايلها هم كه كافيه اون شرط مخالف 0 رو بكني مساوي 0

آقا احمد !
جواب ما را هم بده

احمد جون خيلي ممنونم برم چك كنم.

نقل قول:

---

نوشته شده توسط mehdi_7070

شما ميشه يه توضيح كوچك بديد ... يا اينكه خودتون يه نمونه اش را برام درست كنيد ... ممنون .

---

ببين يه فايل درست ميكني و يه سري اطلاعات ميريزي توش و توي برنامت هم براي اجرا شدن اول دنبال اون فايل روي سي دي ميگردي بعد اگه بود پيداش ميكني و ميخونيش البته بايد اين فايل غير قابل خوندن براي بقيه و غير قابل كپي شدن باشه بعدش هم اون اطلاعتو چك ميكني و ادامه كار

آقا احمد عزیز !
خوب برام توضیح بدهید ... یعنی سورس کد ... مثال هم باشه خوبه ...
منتظرم

والا سورسي چيزي ندارم ميگردم اگه پيدا كردم چشم

منتظرم !
لطفا اگه میشه زودتر !

نقل قول:

---

نوشته شده توسط ahmad_h

البته بايد اين فايل غير قابل خوندن براي بقيه و غير قابل كپي شدن باشه

---

ميشه بگي چه جوري اون فايل رو غير قابل خواندن و غير قابل كپي كنيم.

مهدی جان میتوانی جواب همه این سوالهارا در
MSDN 2000
پیدا کنی
ثانیا
برای بیشتر این کارها توابع مخصوص وجود دارد و نیاز به کئهای طولانی نمیباشد

EEart