لقد تم كتابته في الأصل في VB لتغليفه في DLL لاستخدام ASP ، وتم ترقيته لاحقًا إلى VB.NET
هذا جزء من موقع الفيلم الذي كتبته من قبل. البرنامج بسيط للغاية ولا توجد تعليقات. يمكن للجميع التعامل معها.
'BOGRAMBYBYSOEYES
"تمكين من إعلان الاستيراد. مساحة الاسم
publicfunctionMyMifileXists (ByvalPathnameasString) Asstring'check ما إذا كان الملف موجودًا
iffile.exist (pathname) = falsethen
myfilexists = "<fontcolor =" "" red ""> ملف فقد </font> "
آخر
myfilexists = "<fontcolor =" ""#0066ff ""> ملف موجود </font> "" "
Endif
الوظيفية
privatesubmycreatdirectory (ByvalPathnameasString) "إنشاء مجلد
يحاول
ifdirectory.exist (pathname) = falsethen
دليل. createdirectory (اسم المسار)
Endif
Conversexce
myerrmsg = myerrmsg & "إنشاء" & pathname و "حدث خطأ غير متوقع عندما أنشأت المجلد"
myerrmsg = myerrmsg & e.toString
httpcontext.current.response.write ("واجه البرنامج خطأ غير متوقع. يرجى التحقق من ملف السجل للحصول على التفاصيل! <br>")
النهائي
ينتهي
privatesubmydeldirectory (ByvalPathnameasString) 'حذف المجلد
يحاول
ifdirectory.exist (pathname) = truethen
Directory.Delete (PathName)
Endif
Conversexce
myerrmsg = myerrmsg & "delete" & pathname و "حدث خطأ غير متوقع عند myerrmsg = myerrmsg &" folder. "