رجوكم ساعدوني وبسرعه ......................قبل يوم الاحد رجاءا

zoom · 14 نوفمبر 2003، 22:25

السلام عليكم ورحمة الله وبركاته
ارجوا ان تساعدوني في برمجة الفجوال بيسك فانا طالبة في كورس التخرج ومشروعي بلغة فجوال بيسك
اريد كود البحث(search )
بس قبل الاحد لانة يوم تسليم الواجب واو عمل المكتبة(مع العلم اني بحث في الكتب ولم اجد شئ)
شكراً لكم....

The Master · 14 نوفمبر 2003، 23:44

اتمنى يكون هذا الكود هو اللي تبحثي عنه،،

امر بحث عن الملفات
*كود برمجي*

'ضعي هذا الكود في ملف باس bas

كود المصدر

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

'البحث عن ملف

'هذا الكود ضعيه في الحدث الضغط على زر كوماند او غيره

MsgBox FindFile("c:\", "win.com")

عرض الكل

هل الملف موجود أم لا؟
*كود برمجي*

كود المصدر

If Dir("c:\test.txt", vbNormal or vbReadOnly or vbHidden or vbSystem or vbArchive) = "" then

Msgbox "الملف غير موجود"

Else

Msgbox "الملف موجود"

End If

abu_jasim · 14 نوفمبر 2003، 23:55

اذا تقصد كود البحث عن ملف في الجهاز هذا كود

من هنا

وهذا كود آخر للبحث داخل النصوص

هنا

بامكانك البحث في المواقع الي تهتم بالفجوال بسك ومنها مثلا :

vb4arab.com
freevbcode.com
codeguru.com/vb/index.shtml

The Master · 15 نوفمبر 2003، 0:01

اذا كان الكود غير واضح،،
بامكانك تحميله من الملف المرفق،،،،

zoom · 18 نوفمبر 2003، 9:03

شكراااااااااااااااااااااااااااااا لكم اخواني ..............
بصراحة وبدون مجاملة كان الحل الاخير عندي هو الساحة ولم اتوقع من احد الاهتمام ولكنكم عند حسن الظن دائما
شكرا خاص لthe master and abu_jasim

No_One · 18 نوفمبر 2003، 11:41

اووه تأخرت كنت بساعدك بعد
المهم بعطيج موقع عربي بعد فيه الكثير من كودات البرمجة
وهو

vbzoom.com

zoom · 20 نوفمبر 2003، 21:35

شكرا على موقعvbzoom
وايد عجبنييييييييييييييييييييييييييي

كود المصدر

كود المصدر

مشاركة