منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود للتحقق من وجود ملف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=41574)

كود للتحقق من وجود ملف - نيمو - 29-05-22

السلام عليكم


كود :
System.IO.File.Exists("file.txt")
نعرف هذا للتحقق من وجود ملف على الجهاز في مكان معين

طيب لو اريد اتحقق من وجود ملف على موقع معين كيف رح يكون الكود Huh

RE: كود للتحقق من وجود ملف - ﻧﻴﻤﻮ - 29-05-22

(29-05-22, 01:06 PM)نيمو كتب : السلام عليكم


كود :
System.IO.File.Exists("file.txt")
نعرف هذا للتحقق من وجود ملف على الجهاز في مكان معين

طيب لو اريد اتحقق من وجود ملف على موقع معين كيف رح يكون الكود Huh

وعليكم السلام
كود :
Public Function URLExists(ByVal url As String) As Boolean
   Net.ServicePointManager.SecurityProtocol = 3072
   Dim req = Net.WebRequest.Create(url)
   req.Method = "HEAD"
   Try
       Dim res As Net.HttpWebResponse = req.GetResponse
       Return (res.StatusCode.ToString = "OK")
   Catch
       Return False
   End Try
End Function

شرط أن يكون الملف عام
كود :
URLExists("https://website/file.txt")


RE: كود للتحقق من وجود ملف - نيمو - 29-05-22

عظيم ومبدع تسلم اخي

اسمك نيمو

Big Grin Big Grin 
تستحق الف شكر صار اسبوع احاول اصيغ الدالة ذي