'Awalnya ditulis dalam VB untuk merangkumnya menjadi DLL untuk penggunaan ASP, dan kemudian ditingkatkan ke VB.NET
'Ini adalah bagian dari situs film yang saya tulis sebelumnya. Program ini cukup sederhana dan tidak ada komentar. Setiap orang bisa menghadapinya.
'Programbysomeeyes
'Memungkinkan untuk mendeklarasikan namespace importssystem.io
PublicFunctionMyFileExists (ByValpathNameAsstring) Astring'CHECKECEK apakah ada file
Iffile.exists (pathname) = falsethen
myfileexists = "<fontColor =" "red" "> Lost </font>"
Kalau tidak
myFileExists = "<fontColor =" "#0066ff" "> File ada </font>" "
Endif
Fungsi endfungsi
PrivatesubMyCreateDirectory (byvalpathnameasstring) 'create folder
Mencoba
Ifdirectory.exists (pathname) = falsethen
Direktori.createdirectory (pathname)
Endif
CatcheasException
myerrmsg = myerrmsg & "create" & pathname & "Terjadi kesalahan yang tidak terduga saat saya membuat folder"
myerrmsg = myerrmsg & e.tostring
Httpcontext.current.response.write ("Program ini mengalami kesalahan yang tidak terduga. Silakan periksa file log untuk detailnya! <br>")
Endtry
Endsub
Privatesubmydeldirectory (byvalpathnameasstring) 'hapus folder
Mencoba
Ifdirectory.exists (pathname) = truethen
Direktori.delete (pathname)
Endif
CatcheasException
Myerrmsg = myerrmsg & "delete" & pathname & "kesalahan yang tidak terduga terjadi ketika myerrmsg = myerrmsg &" folder. "