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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد لغات الويب (http://vb4arb.com/vb/forumdisplay.php?fid=119)
+---- الموضوع : معرفة طول الملف Asp (/showthread.php?tid=6413)



معرفة طول الملف Asp - RaggiTech - 17-10-12

كاتب الموضوع : AhmedEssawy


كود :
[COLOR=#000080]<%
Private Function FileLen(ByVal pathname)
Dim objFSO, objFile
On Error Resume Next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(pathname)
If Err Then
FileLen = Null
Else
FileLen = CLng( objFile.Size )
End If
Set objFile = Nothing
Set objFSO = Nothing
On Error GoTo 0
End Function
%>[/COLOR]