كود البحث عن ملف في الهارد :
إخوتي يلزمكم الكثير من الأحيان العثور على ملف في الهارد إما للقراءة منه أو للكتابة فيه أو للتحقق من أي شئ ....والكثير فهذا الكود يفيدكم إذا كان الملف موجود أم لا .......
1- ضع هذا الكود في وحدة نمطية module
Dim strReturnDir As String
Dim strFoundFile As String
Dim strAllFolders As String
Dim strTestPath As String
Dim iI As Integer
If Right(strStartingPath, 1) <> "" Then strStartingPath = strStartingPath + ""
strStartingPath = UCase(strStartingPath)
strFileName = UCase(strFileName)
strFoundFile = Dir(strStartingPath + strFileName, vbNormal + vbHidden + vbArchive + vbSystem + vbReadOnly)
If strFoundFile <> "" Then
mofak = strStartingPath + strFileName
Exit Function
End If
strReturnDir = Dir(strStartingPath + "*.*", vbDirectory)
Debug.Print strStartingPath
Do While strReturnDir <> ""
DoEvents
If GetAttr(strStartingPath + strReturnDir) = vbDirectory Then
If strReturnDir <> "." And strReturnDir <> ".." Then
strAllFolders = strAllFolders + strReturnDir + ";"
End If
End If
strReturnDir = Dir
Loop
Do
iI = iI + 1
If Mid(strAllFolders, iI, 1) = ";" Then
strTestPath = Left(strAllFolders, iI - 1)
If strTestPath <> "" Then
strFoundFile = mofak(strStartingPath + strTestPath, strFileName)
If strFoundFile <> "" Then
mofak = strFoundFile
Exit Function
End If
End If
strAllFolders = Right(strAllFolders, Len(strAllFolders) - iI)
iI = 0
End If
DoEvents
If strAllFolders = "" Then Exit Function
Loop
End Function
Public Function mofak(strStartingPath As String, strFileName As String) As String
ثم أنشئ زر واكتب فيه الكود التالي :
[ALIGN=LEFT]
Private Sub Command1_Click()
MsgBox mofak("C:", "HOUT.CDF")
End Sub[/ALIGN]فإذا أعطاك رسالة فيكون الملف موجود وإذا لم يعطك الملف لايكون موجود...
الفانكشن الذي إسمه mofak يقبل برامتريين الأول إسم الهارد التي تبحث فيه والثاني إسم الملف ولاحقته ....
أرجو الإفادة أخوكم : موفق جمال زكريا