وظيفة تقوم تلقائيًا بإنشاء أدلة متعددة المستويات

<٪

"إنشاء دليل متعدد المستويات ، يمكنك إنشاء دليل جذر غير موجود

'المعلمة: اسم الدليل المراد إنشاؤه ، يمكن أن يكون متعدد المستويات

"إرجاع القيمة المنطقية ، تنجح True ، فشل False

"إنشاء دليل الجذر للدليل يبدأ من الدليل الحالي

'-----------------------------------------------

وظيفة createMultifolder (byvalcfolder)

Dimobjfso ، phcreatefolder ، CreateFolderArray ، CreateFolder

Dimi ، II ، creatfoldersub ، phcreatefoldersub ، blinfo

blinfo = خطأ

CreateFolder = coLdder

onerrorresumenext

setobjfso = server.createBject ("scripting.filesystemObject")

iferrthen

err.clear ()

exitfunction

Endif

CreateFolder = استبدال (CreateFolder ، "" ، "/")

ifleft (إنشاء folder ، 1) = "/" ثم

CreateFolder = Right (CreateFolder ، Len (CreateFolder) -1)

Endif

ifright (createfolder ، 1) = "/" ثم

CreateFolder = Left (CreateFolder ، Len (CreateFolder) -1)

Endif

CreateFolderArray = split (createfolder ، "/")

fori = 0toubound (CreateFolderArray)

CreateFoldersub = ""

forii = 0toi

CreateFoldersUB = createfoldersub & createFolderArray (II) و "/"

التالي

phcreatefoldersub = server.mappath (createfoldersub)

ifnotobjfso.folderexists (phcreatefoldersub) ثم

objfso.createfolder (phcreatefoldersub)

Endif

التالي

iferrthen

err.clear ()

آخر

blinfo = صحيح

Endif

createMultifolder = blinfo

الوظيفية

٪>

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