تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طريقة للبحث عن الملفات
#1
كاتب الموضوع : AhmedEssawy

*** الكود منقول من المنتدى القديم .


نكتب في الموديول

كود :
Declare Function SearchTreeForFile Lib "IMAGEHLP.DLL" _
(ByVal lpRootPath As String, _
ByVal lpInputName As String, _
ByVal lpOutputName As String) As Long
Public Const MAX_PATH = 260
Public Function FindFile(RootPath As String, _
FileName As String) As String
Dim lNullPos As Long
Dim lResult As Long
Dim sBuffer As String
On Error GoTo FileFind_Error
'Allocate buffer
sBuffer = Space(MAX_PATH * 2)
'Find the file
lResult = SearchTreeForFile(RootPath, FileName, sBuffer)
'Trim null, if exists
If lResult Then
lNullPos = InStr(sBuffer, vbNullChar)
If Not lNullPos Then
sBuffer = Left(sBuffer, lNullPos - 1)
End If
'Return filename
FindFile = sBuffer
Else
'Nothing found
FindFile = vbNullString
End If
Exit Function
FileFind_Error:
FindFile = vbNullString
End Function
وفي زر الأمر

كود :
Folder = FindFile("d:\", "win.com")
حيث ما بين علامتي التنصيص الأولى المكان ، والثانية اسم الملف وامتداده
ثم نقوم بتشغيله

كود :
Shell Folder,VbNormalFoucs
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مطلوب طريقة عمل scrollbar على الفورم Emad Nashaat 0 120 13-07-17, 10:39 AM
آخر رد: Emad Nashaat
  طريقة لجعل الفورم او البرنامج في مقدمة البرامج Ahmad Jawad 0 988 28-10-12, 11:39 AM
آخر رد: Ahmad Jawad
  طريقة سهلة للحذف من جدولين في قاعدة البيانات RaggiTech 0 720 17-10-12, 03:39 PM
آخر رد: RaggiTech
  طريقة تصفير الجدوال في قواعد البيانات (تصفير قاعدة البيانات) RaggiTech 0 1,031 17-10-12, 03:37 PM
آخر رد: RaggiTech
  كود للبحث في تكست بواسطة Ctrl + F RaggiTech 0 632 17-10-12, 02:52 PM
آخر رد: RaggiTech
  أكواد التعامل مع الملفات RaggiTech 0 785 17-10-12, 02:44 PM
آخر رد: RaggiTech
  طريقة تكبير الصور عند المرور على Label بالماوس... سهلة وبسيطة RaggiTech 0 977 17-10-12, 02:34 PM
آخر رد: RaggiTech
  لنسخ الملفات RaggiTech 0 523 17-10-12, 02:23 PM
آخر رد: RaggiTech
  طريقة لعمل فورم دائري RaggiTech 0 674 17-10-12, 12:45 AM
آخر رد: RaggiTech
  طريقة عمل Scroll bars للفورم RaggiTech 0 691 17-10-12, 12:45 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم