منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كيف يمكنني ان اضع امر اذا هذا الملف موجود يتم الامر هذا - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيف يمكنني ان اضع امر اذا هذا الملف موجود يتم الامر هذا (/showthread.php?tid=3080)



كيف يمكنني ان اضع امر اذا هذا الملف موجود يتم الامر هذا - hassan - 02-06-14

السلام عليكم


شباب انا حاب اسال بخصوص هذا الشي


انا عندي ملف تكست

بحط كود في الفورم لود

if
وبعده ابغى كود يشيك على ملف التكست اذا في داخله مكتوب 1234 يبداء يشغل الفورم 2


اتوقع الكود سهل الكن انا مو عارف وش الطريقة


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

اني احط تكست بوكس

واحط كود في الفورم لود انه يستدعي التكست في التكست بوكس واحط شرط if انه يشيك اذا مكتوب 1234 يبداء يضهر الفورم 2


اتمنى احد يجاوب علي


RE: كيف يمكنني ان اضع امر اذا هذا الملف موجود يتم الامر هذا - الشاكي لله - 02-06-14

PHP كود :
Dim fileData As String System.IO.File.ReadAllText("Your Txt file...").Trim

Dim number 
As Integer Integer.Parse(fileData)
If (
number 1234Then
       Form2
.Show()
End If 

سامحني اذا فيه خطأ الكود كاتبنه من الذاكرة


RE: كيف يمكنني ان اضع امر اذا هذا الملف موجود يتم الامر هذا - vb_net - 02-06-14

ساساعدك بما اعرف بخصوص تاكد من ان الملف موجود

PHP كود :
' مسار الملف الدي تريد التاكد منه
        Dim filname As String = "C:\order.txt"

        ' 
شرط ادا كان الملف موجود
        
If File.Exists(filname) = True Then

            MsgBox
("الملف موجود")

        Else

            
MsgBox("الملف غير موجود")

        
End If 



RE: كيف يمكنني ان اضع امر اذا هذا الملف موجود يتم الامر هذا - hassan - 02-06-14

(02-06-14, 03:27 PM)vb_net كتب :
ساساعدك بما اعرف بخصوص تاكد من ان الملف موجود

PHP كود :
' مسار الملف الدي تريد التاكد منه
        Dim filname As String = "C:\order.txt"

        ' 
شرط ادا كان الملف موجود
        
If File.Exists(filname) = True Then

            MsgBox
("الملف موجود")

        Else

            
MsgBox("الملف غير موجود")

        
End If 

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


الكود ضبط وكل شي تمام


وشكرا