asp+fso는 파일 또는 폴더의 존재, 생성 및 삭제를 감지하는 기능을 구현합니다.'/////////////////////////////// // /////////////////FSO 작업///////////////////////////// ///// /////
'폴더가 존재하는지 확인하세요.
기능 FolderExits(폴더)
폴더=Server.Mappath(폴더)
FSO 설정 = Server.CreateObject(Scripting.FileSystemObject)
IF FSO.FolderExists(폴더) Then
폴더 종료=true
또 다른
폴더 종료=false
IF 종료
기능 종료
'파일이 존재하는지 확인하세요.
함수 FileExits(파일 이름)
파일 이름=Server.Mappath(파일 이름)
FSO 설정 = Server.CreateObject(Scripting.FileSystemObject)
IF FSO.FileExists(파일 이름) 그러면
파일 종료=true
또 다른
파일 종료=false
IF 종료
기능 종료
'폴더 생성
기능 CreateFolder(폴더)
오류 발생 시 다음 재개
폴더=Server.Mappath(폴더)
FSO = Server.CreateObject(Scripting.FileSystemObject) 설정
FSO.CreateFolder(폴더)
오류>0이면
오류가 발생했습니다.지우기
폴더 생성=거짓
또 다른
폴더 생성=참
종료하면
기능 종료
'파일 생성
함수 CreateFile(파일 이름, 내용)
오류 발생 시 다음 재개
파일 이름=Server.Mappath(파일 이름)
FSO = Server.CreateObject(Scripting.FileSystemObject) 설정
fd=FSO.createtextfile(파일 이름,true) 설정
fd.writeline 내용
오류>0이면
오류가 발생했습니다.지우기
CreateFile=거짓
또 다른
CreateFile=참
종료하면
기능 종료
'파일 삭제
함수 삭제파일(파일 이름)
오류 발생 시 다음 재개
FSO = Server.CreateObject(Scripting.FileSystemObject) 설정
FSO.FileExists(파일 이름)이면
FSO.삭제파일 파일 이름,true
종료하면
오류>0이면
오류가 발생했습니다.지우기
파일 삭제=거짓
또 다른
파일 삭제=참
종료하면
함수 종료
'폴더 삭제
기능 삭제폴더(폴더)
오류 발생 시 다음 재개
폴더=server.MapPath(폴더)
FSO = Server.CreateObject(Scripting.FileSystemObject) 설정
FSO.FolderExists(폴더)인 경우
FSO.폴더 삭제 폴더,참
종료하면
오류>0이면
오류가 발생했습니다.지우기
폴더 삭제=거짓
또 다른
폴더 삭제=참
종료하면
함수 종료