هناك طريقة في FSO تسمى CreateFolder، ولكن هذه الطريقة لا يمكنها إنشاء مجلد جديد إلا في حالة وجود مجلد المستوى الأعلى الخاص به، لذلك كتبت وظيفة تقوم تلقائيًا بإنشاء مجلدات متعددة المستويات وإنشاء صفحات ثابتة، وما إلى ذلك. الوظيفة
:
'--------------------------------
'إنشاء مجلدات محددة متعددة المستويات تلقائيًا
'strPath هو المسار المطلق
يرجى الاحتفاظ بحقوق الطبع والنشر للاستشهادات
' بواسطة im286_Anjer
'2005-4-3
الدالة AutoCreateFolder(strPath) 'As Boolean
عند ظهور خطأ في استئناف التالي،
قم بتعطيل astrPath، ulngPath، i، strTmpPath
Dim objFSO
إذا كان InStr(strPath, "") <=0 أو InStr(strPath, ): ") <= 0 ثم
AutoCreateFolder = خطأ
وظيفة الخروج
نهاية إذا
تعيين objFSO = Server.CreateObject("Scripting.FileSystemObject")
إذا كان objFSO.FolderExists(strPath) إذن
AutoCreateFolder = صحيح
وظيفة الخروج
نهاية إذا
astrPath = سبليت (strPath، "")
ulngPath = UBound(astrPath)
strTmpPath = ""
لأني = 0 إلى ulngPath
strTmpPath = strTmpPath & astrPath(i) & ""
إذا لم يكن objFSO.FolderExists(strTmpPath) إذن
'يخلق
objFSO.CreateFolder(strTmpPath)
نهاية إذا
التالي
تعيين objFSO = لا شيء
إذا كان الخطأ = 0 ثم
AutoCreateFolder = صحيح
آخر
AutoCreateFolder = خطأ
نهاية إذا
وظيفة النهاية
طريقة الاتصال:
MyPath = "C:abc"
إذا كان AutoCreateFolder(MyPath) إذن
الاستجابة.اكتب "تم إنشاء المجلد بنجاح"
آخر
الاستجابة.كتابة "فشل إنشاء المجلد"
نهاية إذا