«Первоначально он был написан в VB, чтобы инкапсулировать его в DLL для использования ASP, а затем обновлен до VB.NET
«Это часть сайта фильма, который я писал ранее. Программа довольно проста, и нет никаких комментариев. Каждый может с этим справиться.
'Programbysomeeyes
'Позвольте объявить ImportSsystem.io пространство имен
Publicfunctionmyfileexists (byvalpathnameasstring) Appling'ceck, есть ли файл
Iffile.exists (pathname) = falsethen
myfileexists = "<fontcolor =" "red" "> File Lost </font>"
Еще
myfileexists = "<fontcolor =" "#0066ff" "> file существует </font>" "
Эндиф
Конечная функция
Privatesubmycreatdirectory (byvalpathnameasstring) 'создать папку
Пытаться
Ifdirectory.exists (pathname) = falsethen
Directory.createdirectory (pathname)
Эндиф
Catcheasexception
myerrmsg = myerrmsg & "create" & pathname & "Неожиданная ошибка произошла, когда я создал папку"
myerrmsg = myerrmsg & e.tostring
Httpcontext.current.response.write («Программа столкнулась с неожиданной ошибкой. Пожалуйста, проверьте файл журнала для получения подробной информации! <br>»)
Эндтри
Заканчивая
Privatesubmydeldirectory (byvalpathnameasstring) 'удалить папку
Пытаться
Ifdirectory.exists (pathname) = truethen
Directory.delete (pathname)
Эндиф
Catcheasexception
Myerrmsg = myerrmsg & "delete" & pathname & "Неожиданная ошибка произошла, когда папка myerrmsg = myerrmsg &".