'Es wurde ursprünglich in VB geschrieben, um es für die ASP -Verwendung in DLL zu verkapulieren, und später auf vb.net aktualisiert wurde
'Dies ist Teil der Filmseite, die ich zuvor geschrieben habe. Das Programm ist recht einfach und es gibt keine Kommentare. Jeder kann damit umgehen.
'ProgramBysomeeyes
'Ermöglichen Sie, ImportsSystem.io -Namespace zu deklarieren
PublicFunctionMyFileExists (byvalpathnameasString) Asstring'Check, ob die Datei vorliegt
IFFILE.EXISTS (PATHNAME) = FALSETHEN
myFileExists = "<fontcolor =" "Red" "> Datei verloren </font>"
Anders
myFileExists = "<fontcolor =" "#0066ff" "> Datei existiert </font>" ""
Endif
Endfunktion
PrivateSubmycreatDirectory (ByvalpathnameAsString) 'Ordner erstellen
Versuchen
Ifdirectory.exists (pathname) = falsethen
Verzeichnis.Createdirectory (Pathname)
Endif
Catchexception
myermsg = myerrmsg & "erstellen" & pathname & "Es ist ein unerwarteter Fehler aufgetreten, als ich den Ordner erstellt habe."
myerrmsg = myerrmsg & e.tostring
Httpcontext.current.response.write ("Das Programm hat einen unerwarteten Fehler gestoßen. Bitte überprüfen Sie die Protokolldatei für Details! <br>").
Endtrei
Ende
PrivateSubmydeldirectory (byvalpathnameAsString) 'Ordner löschen
Versuchen
Ifdirectory.exists (pathname) = truethen
Verzeichnis.Delete (Pathname)
Endif
Catchexception
Myerrmsg = myerrmsg & "löschen" & pathname & "Ein unerwarteter Fehler trat auf, wenn myermsg = myerrmsg &" Ordner ".