'Originalmente se escribió en VB para encapsularlo en DLL para uso de ASP, y luego se actualizó a VB.NET
'Esto es parte del sitio de la película que escribí antes. El programa es bastante simple y no hay comentarios. Todos pueden lidiar con eso.
'ProgramBySomeyes
'Habilitar para declarar el espacio de nombres importssystem.io
PublicFunctionMyFileExists (byvalpathnameAsstring) astring'chek si el archivo existe
Iffile.exists (PathName) = falsethen
myFileExists = "<fontcolor =" "rojo" "> archivo perdido </font>"
Demás
myFileExists = "<fontcolor =" "#0066ff" "> El archivo existe </font>" "
Endif
Función final
PrivateUbmyCreatDirectory (byvalPathNameAsstring) 'Crear carpeta
Intentar
Ifdirectory.exists (rathName) = falsethen
Directorio.CreateDirectory (PathName)
Endif
CACTAECHEECHECTIVE
myErRmsg = myErRmsg & "Crear" y PathName & "Se produjo un error inesperado cuando creé la carpeta"
myerrmsg = myerrmsg y e.toString
Httpcontext.current.response.write ("El programa encontró un error inesperado. Verifique el archivo de registro para más detalles! <br>")
Endry
Endsub
Privatesubmydeldirectory (byvalpathnameasstring) 'Eliminar carpeta
Intentar
Ifdirectory.exists (rathName) = TrueThen
Directorio.Delete (PathName)
Endif
CACTAECHEECHECTIVE
MyErRmsg = myErRmsg & "Eliminar" y PathName & "Se produjo un error inesperado cuando myErRmsg = myErrmsg &" carpeta ".