ASP met en œuvre une fonction qui vérifie si le répertoire existe et crée un répertoire

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

'- 检查目录是否存在

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

FonctionCheckDir (ByValFolderPath)

dimfso

Setfso = server.createObject ("scripting.filesystemObject")

Iffso.folderexists (server.mappath (folderpath)) puis

'存在

CheckDir = true

Autre

'不存在

Checkdir = false

Endire

Setfso = rien

Finition de fin

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

'- 建立目录

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

Functionmakenewsdir (byValFolderName)

dimfso

Setfso = server.createObject ("scripting.filesystemObject")

fso.createfolder (server.mappath (foldername))

Iffso.folderexists (server.mappath (foldername)) puis

Makewsdir = vrai

Autre

Makewsdir = faux

Endire

Setfso = rien

Finition de fin