تحقق أولا ما إذا كان الدليل موجود بالفعل. إذا كانت موجودة ، فلن يتم إجراء أي معالجة ، وإذا لم تكن موجودة ، فسيتم إنشاؤها.
آمل أن يكون من المفيد أن تتطور بسرعة.
checkfolder.asp
<٪
'*****************************************************************************************************
'المؤلف: Zhao min [email protected]
اسم الصفحة: CreateFolder.asp
وظيفة الصفحة: إنشاء مجلدات لأدلة مستوى N
"طريقة الاستخدام: وظيفة Call CheckFolder () ، على سبيل المثال: CheckFolder (Path)
"المقطع: المسار النسبي للملف ليتم تحميله ، على سبيل المثال: path = ./upload/bbb/ccc/ddd
"العيب: يجب إحضار مجلد التحميل في مسار المعلمة
'*****************************************************************************************************
Sub Checkfolder (Path)
Splitpath (المسار)
نهاية الفرعية
splitpath sub (path)
الطريق الجسدي الطريق الخافت
الطريق = server.mappath (./ تحميل)
المسار الحالي لوقوع Curroad '
الطريق = الانقسام (الطريق ،/،-1،1)
Curroad = Road (Ubound (Road))
مجلد قاتم ، FSO
set fso = server.createObject (scripting.filesystemObject)
المجلد = انقسام (المسار ،/،-1،1)
ل I = 0 إلى Ubound (المجلد) الخطوة 1
إذا كان المجلد (i) = curroad ثم
ي = أنا
الخروج ل
إنهاء إذا
التالي
i = j + 1
إذا كنت <= ubound (مجلد) ثم
قاتمة الميداني
myroad = server.mappath (./ تحميل)
ل I = J + 1 إلى Ubound (المجلد) الخطوة 1
Createfolder Myroad ، مجلد (أنا)
myroad = myroad &/& folder (i)
التالي
إنهاء إذا
نهاية الفرعية
Sub Createfolder (MyPath ، FolderName)
قاتمة FSO ، و
set fso = server.createObject (scripting.filesystemObject)
إذا لم يكن (fso.folderexists (MyPath+/+FolderName)) ثم
set f = fso.createfolder (mypath+/+foldername)
إنهاء إذا
نهاية الفرعية
تعيين fso = لا شيء
٪>