تقييم الموضوع :
  • 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
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة لجعل الفورم او البرنامج في مقدمة البرامج Ahmad Jawad 0 817 28-10-12, 11:39 AM
آخر رد: Ahmad Jawad
  طريقة سهلة للحذف من جدولين في قاعدة البيانات RaggiTech 0 566 17-10-12, 03:39 PM
آخر رد: RaggiTech
  طريقة تصفير الجدوال في قواعد البيانات (تصفير قاعدة البيانات) RaggiTech 0 810 17-10-12, 03:37 PM
آخر رد: RaggiTech
  كود للبحث في تكست بواسطة Ctrl + F RaggiTech 0 497 17-10-12, 02:52 PM
آخر رد: RaggiTech
  أكواد التعامل مع الملفات RaggiTech 0 643 17-10-12, 02:44 PM
آخر رد: RaggiTech
  طريقة تكبير الصور عند المرور على Label بالماوس... سهلة وبسيطة RaggiTech 0 760 17-10-12, 02:34 PM
آخر رد: RaggiTech
  لنسخ الملفات RaggiTech 0 418 17-10-12, 02:23 PM
آخر رد: RaggiTech
  طريقة لعمل فورم دائري RaggiTech 0 518 17-10-12, 12:45 AM
آخر رد: RaggiTech
  طريقة عمل Scroll bars للفورم RaggiTech 0 515 17-10-12, 12:45 AM
آخر رد: RaggiTech
  طريقة تشغيل شاشة التوقف RaggiTech 0 317 17-10-12, 12:45 AM
آخر رد: RaggiTech

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


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