[نيمو]

السلام عليكم

كود :

System.IO.File.Exists("file.txt")

نعرف هذا للتحقق من وجود ملف على الجهاز في مكان معين

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

[ﻧﻴﻤﻮ]

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

كود :

System.IO.File.Exists("file.txt")

نعرف هذا للتحقق من وجود ملف على الجهاز في مكان معين

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

وعليكم السلام

كود :

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")

[نيمو]

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

اسمك نيمو

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