كيفية اكتشاف ما إذا كان هناك مجلد أم لا ، سيتم إنشاؤه تلقائيًا.

سوف أشارككم الرمز الذي يمكن استخدامه بشكل طبيعي عند اختبار موقع الويب الخاطئ لمشرف المواقع الجديد ، ويدعم إنشاء الدليل متعدد المستويات

الرمز 1

 الوظيفة CreateMultifolder (byval coldder) dim objfso ، phcreatefolder ، createfolderArray ، إنشاء dim i ، ii ، createfoldersub ، phcreatefoldersub ، blinfo blinfo = false createfolder = cold on error set set abjfso = server.createObject يمين (createfolder ، 1) = "/" ثم إنشاء folder = left (createfolder ، len (createfolder) -1) end إذا createfolderArray = split (createfolder ، "/") for i = 0 to ubound (createFolderArray) createfoldersub = "for ii = 0 to i createfoldersub = createFolderRay & server.mappath (createfoldersub) إذا لم يكن objfso.folderexists (phcreatefoldersub) ثم objfso.createfolder (phcreatefoldersub) ينتهي إذا كان بعد ذلك err.clear () else blinfo = true end if createMultifolder = blinfo end function

كيفية استخدام:

CreateMultifolder ("/202003/أدوات/")

الرمز 2 ، اختبار موافق

 "قم بإنشاء Directory'Code تلقائيًا بواسطة JB51 ReterryFunction CreateIt (path) dim fsofo ، cinfo ، thepatharraydim i ، ii ، binfobinfo = falsethepath = pathset fsofo = createObject (" scripting.filesystemoBject يسار (thepath ، 1) = "/" thepath = ritle (thepath ، len (thepath) -1) end ifif evif (thepath ، 1) = "/ ubund (thePatharray) createFoldersUB1 = createfoldersub1 & thepatharray (i) & "/" createfoldersub = server.mappath (createFoldersUB1) إذا لم يكن fsofo.folderexists (createfoldersub)

رمز الاختبار

CreateIt ("/202004/أدوات/")

إذا تعذر تشغيل الرمز أعلاه ، فيرجى التحقق مما إذا كانت أذونات مستخدم IIS Run لديها وظيفة كتابة. أثناء الاختبار اليوم ، لا يمكن تشغيل IIS7.5 الافتراضي.

رمز التنفيذ التالي بسيط ومناسب للتعلم

 كيف تكتشف ما إذا كان هناك مجلد؟ إذا لم يكن موجودًا ، فسيقوم تلقائيًا بإنشاء Folder = server.mappath ("/imagess") set fso = createObject ("scripting.filesystemObject") if fso.filexist = server.createObject ("scripting.filesystemObject") إذا كان objfso.folderexists (server.mappath (savepath)) = false theroBjfso.createfolder (server.mappath (savepath)) inffoLder = server.mapt.mappath (/"doys") set fso = createObject fso.filexists (server.mappath (filepath)) therreSpnse.write ("ماذا يمكن بناؤه بعد كل شيء") ollesfso.createfolder (المجلد) end ifset fso = لا شيء