+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : كم البرمجة مريحة لو نعرفها (/showthread.php?tid=21569)
كم البرمجة مريحة لو نعرفها - سعود - 04-09-17
السلام عليكم ورحمة الله و بركاته
كنت حين اود معرفة اسم ملف لتحميله اكتب اكوادا كثيرة ثم استخدم Regex لاستخلاص اسم الملف وشغل كثير ...في حين ان الحل بكود بسيط جدا !!!!!!!
كود :
Private Function getfilename(ByVal url As String) As String
Dim wc2 As New WebClient
wc2.OpenRead(url)
Dim cd As String = wc2.ResponseHeaders("Content-Disposition").ToString
Return New ContentDisposition(cd).FileName
End Functionاجراءات مهمة باكواد بسيطة
