'Foi originalmente escrito em VB para encapsulá -lo em DLL para uso do ASP e, posteriormente, atualizado para o VB.NET
'Isso faz parte do site do filme que escrevi antes. O programa é bastante simples e não há comentários. Todos podem lidar com isso.
'ProgramBysomeeyes
'Ativar declarar o espaço de nome de importação.io
PublicFunctionMyFileExists (ByValPathnameasstring) Assumindo se o arquivo existe
Iffile.Exists (PathName) = falseten
myfileExists = "<fontcolor =" "vermelho" "> arquivo perdido </font>"
Outro
myfileExists = "<fontcolor =" "#0066ff" "> existe um arquivo </font>" ""
Endif
Função final
Privatesubmycreatdirectory (byvalpathnameasstring) 'Criar pasta
Tentar
Ifdirectory.exists (pathname) = falsethen
Directory.CreateDirectory (Pathname)
Endif
CatchEasexception
Myerrmsg = Myerrmsg & "Create" & Pathname & "Um erro inesperado ocorreu quando eu criei a pasta"
myerrmsg = myerrmsg & e.toString
Httpcontext.current.Response.write ("O programa encontrou um erro inesperado. Verifique o arquivo de log para obter detalhes! <br>")
Final
Endsub
Privatesubmydeldirectory (byvalpathnameasstring) 'excluir pasta
Tentar
IfDirectory.Exists (PathName) = Truethen
Directory.Delete (nome do caminho)
Endif
CatchEasexception
Myerrmsg = myerrmsg & "delete" e pathname & "Um erro inesperado ocorreu quando myerrmsg = myerrmsg &" pasta ".