Pertama periksa apakah direktori sudah ada. Jika ada, tidak ada pemrosesan yang akan dilakukan, dan jika tidak ada, itu akan dibuat.
Saya harap akan berguna bagi Anda untuk berkembang dengan cepat.
Checkfolder.asp
<%
'*************************************************************************************************************************
'Penulis: Zhao min [email protected]
'Nama Halaman: CreateFolder.asp
'Fungsi Halaman: Hasilkan Folder untuk Direktori N-Level
'Metode Penggunaan: Fungsi Panggilan CheckFolder (), misalnya: Checkfolder (PATH)
'Passage: jalur relatif file yang akan diunggah, misalnya: path = ./upload/bbb/ccc/ddd
'Kerugian: Anda harus membawa folder unggahan di jalur parameter
'*************************************************************************************************************************
Sub -checkfolder (jalur)
Splitpath (jalan)
Akhir sub
Sub splitpath (jalur)
Jalur Fisik Jalan Redup
Road = server.mappath (./ Unggah)
Jalur saat ini redup saat ini
Road = Split (Road,/,-1,1)
Curroad = Road (Ubound (Road))
folder redup, fso
Atur fso = server.createObject (scripting.filesystemObject)
folder = split (path,/,-1,1)
untuk i = 0 ke ubound (folder) Langkah 1
if folder (i) = Curroad Lalu
j = i
keluar untuk
akhiri jika
Berikutnya
i = j + 1
Jika saya <= ubound (folder) lalu
redup myroad
myroad = server.mappath (./ Unggah)
untuk i = j + 1 ke ubound (folder) Langkah 1
CreateFolder myroad, folder (i)
myroad = myroad &/& folder (i)
Berikutnya
akhiri jika
Akhir sub
Sub CreateFolder (MyPath, FolderName)
Redup fso, f
Atur fso = server.createObject (scripting.filesystemObject)
Jika tidak (fso.folderexists (mypath+/+foldername)) lalu
atur f = fso.createFolder (mypath+/+foldername)
akhiri jika
Akhir sub
Atur fso = tidak ada
%>