Ada metode di FSO yang disebut CreateFolder, tetapi metode ini hanya dapat membuat folder baru jika folder tingkat atasnya ada, jadi saya menulis fungsi yang secara otomatis membuat folder multi-level dan menghasilkan halaman statis, dll. Sangat nyaman untuk gunakan.Fungsi
:
'--------------------------------
' Secara otomatis membuat folder multi-level tertentu
'strPath adalah jalur absolut
' Harap simpan hak cipta untuk kutipan
' oleh im286_Anjer
'2005-4-3
Fungsi AutoCreateFolder(strPath) ' Sebagai Boolean
Pada Kesalahan Lanjutkan Berikutnya
Redupkan astrPath, ulngPath, i, strTmpPath
Redupkan objFSO
Jika InStr(strPath, "") <=0 Atau InStr(strPath, ":") <= 0 Lalu
FolderBuat Otomatis = Salah
Fungsi Keluar
Akhiri Jika
Setel objFSO = Server.CreateObject("Scripting.FileSystemObject")
Jika objFSO.FolderExists(strPath) Lalu
AutoCreateFolder = Benar
Fungsi Keluar
Akhiri Jika
astrPath = Pisahkan(strPath, "")
ulngPath = UBound(astrPath)
strTmpPath = ""
Untuk i = 0 Ke ulngPath
strTmpPath = strTmpPath & astrPath(i) & ""
Jika Bukan objFSO.FolderExists(strTmpPath) Lalu
'Membuat
objFSO.CreateFolder(strTmpPath)
Akhiri Jika
Berikutnya
Setel objFSO = Tidak Ada
Jika Err = 0 Maka
AutoCreateFolder = Benar
Kalau tidak
FolderBuat Otomatis = Salah
Akhiri Jika
Fungsi Akhir
Metode pemanggilan:
MyPath = "C:abc"
Jika AutoCreateFolder(MyPath) Lalu
Response.Tulis “Folder berhasil dibuat”
Kalau tidak
Response.Tulis "Gagal membuat folder"
Akhiri Jika