'Il a été écrit à l'origine en VB pour l'encapsuler dans DLL pour une utilisation ASP, puis mis à niveau vers VB.NET
«Cela fait partie du site de cinéma que j'ai écrit auparavant. Le programme est assez simple et il n'y a pas de commentaires. Tout le monde peut y faire face.
'Programme Gysomeeyes
'Activer de déclarer ImportsSystem.io
PublicFonctionMyfileExists (byValPathNameSsstring) Asstring 'Vérifiez si le fichier existe
Iffile.exists (pathname) = falsethhen
MyFileExists = "<FontColor =" "Red" "> Fichier perdu </font>"
Autre
MyFileExists = "<FontColor =" "# 0066FF" "> Le fichier existe </font>" "
Endire
Finition de fin
PrivatsubmycreatDirectory (ByValPathNameSsString) 'Créer un dossier
Essayer
Ifdirectory.exists (cheminement) = falsethhen
Directory.CreateDirectory (PathName)
Endire
CatchEasexception
myErrmsg = MyerRmsg & "Create" & Pathname & "Une erreur inattendue s'est produite lorsque j'ai créé le dossier"
myErrmsg = myerrmsg & e.tostring
Httpcontext.current.response.write ("Le programme a rencontré une erreur inattendue. Veuillez vérifier le fichier journal pour plus de détails! <br>")
Endurcir
Fin
PrivatsubmydelDirectory (ByValPathNameSsString) 'Supprimer le dossier
Essayer
Ifdirectory.exists (cheminement) = truethen
Directory.Delete (PathName)
Endire
CatchEasexception
MyErrmsg = myerrmsg & "delete" & pathname & "Une erreur inattendue s'est produite lorsque Myerrmsg = myerrmsg &" dossier ".