كود التاكد من وجود ملف

بعد استيراد فضاء الأسماء System.IO بكتابة السطر Imports System.IO

استخدم الأسطر التالية في حدث التحميل للنموذج مثلاً:

        If File.Exists(FILE_NAME) Then
            MsgBox("already exists." & vbCrLf & FILE_NAME)
            Return
        End If
        Dim sr As StreamWriter = File.CreateText(FILE_NAME)
        sr.WriteLine("This is my file.")
        sr.WriteLine("I can write ints {0} or floats {1}, and so on.", 1, 4.2)
        sr.Close()

وللعلم فالكود مقتبس من MSDN مع تحوير بسيط من قبلي.

نعم كما قال لك الأخ المزيني الدالة System.IO.File تمكنك عن طريقة ال Function المسماة Exists من ارجاع قيمة True اذا كان الملف الممرر اليها موجودا و False اذا لم يكن موجودا

و أريد ان أقول ان الطريقة التي تتبعها في الفيجوال بيسك 6 غير عملية اطلاقا الأحسن استعمال الدالة Dir و استعمالها كالتالي :

if Dir("c:\test.exe") <>"" then
msgbox "File Exists"
Else
 MsgBox("file doesn't exists")
End If

و طبعا هذا الاستعمال فعال في الفيجوال 6 و كذلك في الدوت نت

اخوي المزيني وcrazy-man

يعطيكم العافيه

crazy-man كودك عجبني وعملي مره

الأخ المزيني هل هذا الكود سوف يبحث في جميع الهاردسكات والبارتشن ام في الملفات الموجودة في مجلدbin??

اخي Romantic الكود الذي كتبه الأخ المزيني يتطلب مسار الملف المراد التأكد من وجوده

File.Exists("c:\test.exe")

if file.exist(file_path) then

بسم الله الرحمن الرحيم

في أمر في 2005 لـلتأكد من وجود ملف وهو

fileio.filesystem.fileexites(path of file)