FSO는 파일 시스템 개체인 FileSystemObject를 의미합니다. FSO 개체 모델은 스크립팅 유형 라이브러리(Scrrun.Dll)에 포함되어 있으며 Drive, Folder, File, FileSystemObject 및 TextStream의 5개 개체가 포함되어 있어 파일 및 폴더 개체 속성을 조작하는 데 매우 편리합니다.
DateCreated는 폴더 생성 날짜와 시간을 반환합니다.
DateLastAccessed는 파일에 마지막으로 액세스한 날짜와 시간을 반환합니다.
DateLastModified는 파일이 마지막으로 수정된 날짜와 시간을 반환합니다.
Drive는 파일이 있는 드라이브의 Drive 개체를 반환합니다.
이름은 파일 이름을 설정하거나 반환합니다.
ParentFolder는 파일 상위 폴더의 Folder 객체를 반환합니다.
Path는 파일의 절대 경로를 반환하며, 긴 파일 이름을 사용할 수 있습니다.
ShortName은 DOS 스타일 8.3 형식의 파일 이름을 반환합니다.
ShortPath는 DOS 스타일 8.3 스타일의 파일 절대 경로를 반환합니다.
크기는 파일의 크기(바이트)를 반환합니다.
Type 가능한 경우 파일 형식을 설명하는 문자열을 반환합니다.
FSO 파일(파일) 객체 메소드
FSO 파일 객체 메소드 사용법
CopyFile은 하나 이상의 파일을 새 경로로 복사합니다.
CreateTextFile은 파일을 생성하고 TextStream 객체를 반환합니다.
DeleteFile은 파일을 삭제합니다.
OpenTextFile은 파일을 열고 읽거나 추가하기 위해 TextStream 개체를 반환합니다.
파일 이름을 바꿉니다.
다음과 같이 코드 코드를 복사합니다.
함수 reName(sourceName,destName)
희미한 Fso,o파일
oFso=server.createobject(Scripting.FileSystemObject) 설정
oFile=oFso.getFile(Server.mappath(sourceName)) 설정
o파일.이름=대상이름
ofFso=아무것도 설정하지 않음
oFile=아무것도 설정하지 않음
기능 종료
파일 삭제:
다음과 같이 코드 코드를 복사합니다.
함수 FSOdel(파일 이름)
희미한 fso,f
fso = server.CreateObject(scripting.filesystemobject) 설정
f=서버.MapPath(파일 이름)
fso.FileExists(f)이면
fso.삭제파일 f,true
종료하면
f = 아무것도 설정하지 않음
fso = 아무것도 설정하지 않음
기능 종료
파일의 문자열을 바꾸십시오.
다음과 같이 코드 코드를 복사합니다.
함수 FSReplace(fileName,Target,repString)
희미한 objFSO,objCountFile,FiletempData
objFSO = Server.CreateObject(Scripting.FileSystemObject) 설정
objCountFile = objFSO.OpenTextFile(Server.MapPath(fileName),1,True) 설정
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData=바꾸기(FiletempData,대상,repString)
objCountFile=objFSO.CreateTextFile(Server.MapPath(fileName),True) 설정
objCountFile.Write FiletempData
objCountFile.Close
objCountFile=아무것도 설정하지 않음
objFSO = 없음 설정
기능 종료
<%
'************************************************ * ***
'함수 이름: CreateFolder(sPath)
'기능: 디렉토리 생성
'매개변수: sPath: 상대 디렉터리 경로가 생성되었습니다.
'반환값: 성공하면 true, 실패하면 false
'************************************************ * ***
'response.Write createfolder(/dgsunshine/UploadFile/demo1/)
함수 CreateFolder(sPath)
오류 발생 시 다음 재개
Dim Fso, 폴더, 폴더, i, j
sPath=이면
폴더 생성 = 거짓
종료 기능
종료 조건
If Left(sPath,1) = / 그런 다음
폴더 = /
sPath = Mid(sPath,2,Len(sPath))
또 다른
폴더 = ./
종료 조건
if Right(sPath,1) = / then sPath = Left(sPath,Len(sPath)-1)
ArrFolder = 분할(sPath,/)
Fso = Server.CreateObject(Scripting.FileSystemObject) 설정
i = 0인 경우 Ubound(ArrFolder)로
i = 0이면
폴더 = 폴더 & ArrFolder(i) & /
또 다른
폴더 = 폴더 & ArrFolder(i) & /
종료 조건
Fso.folderExists(Server.MapPath(Folder)) = False인 경우
응답.쓰기 서버.MapPath(폴더)
Fso.createFolder(Server.MapPath(폴더))
종료 조건
다음
Fso = 없음 설정
Err.Number <> 0이면
Err.clear()
폴더 생성 = 거짓
또 다른
CreateFolder = 참
종료 조건
기능 종료
함수 getFile(paramFilePath)
Fso = Server.CreateObject(Scripting.FileSystemObject) 설정
Fso_Read = fso.OpenTextFile(Server.MapPath(paramFilePath),1,false,-2) 설정
getFile = Fso_Read.readall
Fso_Read = 없음으로 설정
Fso = 없음 설정
기능 종료
'************************************************ * ***
'함수 이름: CreateFile(paramFileContent,paramFilePath)
'기능: 파일 생성
'매개변수: paramFileContent '파일 내용
' paramFilePath '파일 이름(경로 제외)
'반환값: 성공하면 true, 실패하면 false
'************************************************ * ***
함수 CreateFile(paramFileContent,paramFilePath)
오류 발생 시 다음 재개
희미한 Fso,fWrite
Fso = Server.CreateObject(Scripting.FileSystemObject) 설정
fWrite = Fso.CreateTextFile(Server.Mappath(paramFilePath),true) 설정
fWrite.write paramFileContent
fWrite.close()
fWrite = 없음으로 설정
Fso = 없음 설정
Err.number <> 0이면
Err.clear()
CreateFile = 거짓
또 다른
CreateFile = 참
종료 조건
기능 종료
'************************************************ * ***
'함수 이름: DelFile(FilePath)
'기능: 파일 삭제
'매개변수: FilePath' 파일 경로 |로 구분된 여러 파일
'반환값: 성공하면 true, 실패하면 false
'************************************************ * ***
함수 DelFile(파일 경로)
오류 발생 시 다음 재개
희미한 fso,arrFile,i
GetSafeStr(FilePath,)=인 경우
폴더 생성 = 거짓
종료 기능
종료 조건
arrFile = 분할(파일 경로,|)
Fso = Server.CreateObject(Scripting.FileSystemObject) 설정
i=0에서 UBound(arrFile)까지
파일 경로 = arrFile(i)
Fso.FileExists(Server.MapPath(FilePath)) 인 경우
Fso.Delete파일 서버.MapPath(파일 경로)
종료 조건
다음
fso = 아무것도 설정하지 않음
그렇다면 오류가 발생하면
Err.clear()
델파일 = 거짓
또 다른
델파일 = 참
종료 조건
기능 종료
'************************************************ * ***
'함수명 : DelFolder(FolderPath)
'기능: 디렉토리 삭제
'매개변수: FolderPath '디렉토리 경로' 여러 디렉토리는 |로 구분됩니다.
'반환값: 성공하면 true, 실패하면 false
'************************************************ * ***
함수 DelFolder(폴더 경로)
오류 발생 시 다음 재개
Dim Fso,arrFolder,i
GetSafeStr(FolderPath,)=인 경우
델폴더 = 거짓
종료 기능
종료 조건
arrFolder = 분할(폴더 경로,|)
Fso = Server.CreateObject(Scripting.FileSystemObject) 설정
i=0에서 UBound(arrFolder)까지
FolderPath = arrFolder(i)
Fso.folderexists(Server.MapPath(FolderPath))인 경우
Fso.deleteFolder 서버.MapPath(FolderPath)
종료 조건
다음
그렇다면 오류가 발생하면
Err.clear()
델폴더 = 거짓
'ShowError 디렉터리를 삭제하지 못했습니다.
또 다른
델폴더 = 참
종료 조건
기능 종료
'************************************************ * ***
'함수 이름: IsExistFile(FilePath)
'기능: 파일이나 디렉터리가 존재하는지 확인
'매개변수: FilePath' 파일 경로 |로 구분된 여러 파일
'반환값: 성공하면 true, 실패하면 false
'************************************************ * ***
함수 IsExistFile(FilePath)
오류 발생 시 다음 재개
희미한 fso,arrFile,i
GetSafeStr(FilePath,)=인 경우
IsExistFile = 거짓
종료 조건
arrFile = 분할(파일 경로,|)
Fso = Server.CreateObject(Scripting.FileSystemObject) 설정
i=0에서 UBound(arrFile)까지
파일 경로 = arrFile(i)
Fso.FileExists(Server.MapPath(FilePath)) 인 경우
IsExistFile = 참
종료 조건
Fso.folderexists(Server.MapPath(FilePath))가 있는 경우
IsExistFile = 참
종료 조건
다음
fso = 아무것도 설정하지 않음
그렇다면 오류가 발생하면
Err.clear()
IsExistFile = 거짓
'ShowError 파일이나 디렉터리가 존재하는지 확인하지 못했습니다.
또 다른
IsExistFile = 참
종료 조건
종료 기능
'************************************************ * ***
'함수 이름: DelFile(FilePath)
'기능: 파일 또는 디렉토리 삭제
'매개변수: FilePath' 파일 경로 |로 구분된 여러 파일
'반환값: 성공하면 true, 실패하면 false
'************************************************ * ***
함수 DelFile(파일 경로)
오류 발생 시 다음 재개
희미한 fso,arrFile,i
GetSafeStr(FilePath,)=인 경우
폴더 생성 = 거짓
종료 조건
arrFile = 분할(파일 경로,|)
Fso = Server.CreateObject(Scripting.FileSystemObject) 설정
i=0에서 UBound(arrFile)까지
파일 경로 = arrFile(i)
Fso.FileExists(Server.MapPath(FilePath)) 인 경우
Fso.Delete파일 서버.MapPath(파일 경로)
종료 조건
Fso.folderexists(Server.MapPath(FilePath))가 있는 경우
Fso.deleteFolder 서버.MapPath(파일 경로)
종료 조건
다음
fso = 아무것도 설정하지 않음
그렇다면 오류가 발생하면
Err.clear()
델파일 = 거짓
'ShowError 파일 또는 디렉터리 삭제에 실패했습니다.
또 다른
델파일 = 참
종료 조건
기능 종료
'************************************************ * ***
'함수 이름: ReNameFile((oldName,newName)
'기능: 파일 또는 디렉토리 이름 바꾸기
'매개변수: strOldName '여러 개의 원본 파일 이름은 |
' strNewName ' 여러 개의 새 파일 이름은 |로 구분됩니다.
' 위의 두 매개변수를 일관되게 유지하세요.
'반환값: 성공하면 true, 실패하면 false
'************************************************ * ***
함수 ReNameFile(strOldName,strNewName)
오류 발생 시 다음 재개
희미한 fso,arrOld,arrNew,i,oldName,newName
old = GetSafeStr(strOldName,)
새 파일 = GetSafeStr(strNewName,)
old = 또는 Newfile =이면
ReNameFile = 거짓
종료 기능
종료 조건
arrOld = 분할(strOldName,|)
arrNew = 분할(strNewName,|)
UBound(arrOld)<> UBound(arrNew)이면
ReNameFile = 거짓
종료 기능
종료 조건
Fso = Server.CreateObject(Scripting.FileSystemObject) 설정
i=0에서 UBound(arrOld)까지
oldName = Server.MapPath(arrOld(i))
newName = Server.MapPath(arrNew(i))
Fso.FileExists(oldName)가 Fso.FileExists(newName)가 아닌 경우
fso.MoveFile 이전 이름, 새 이름
'ReNameFile = 참
종료 조건
다음
fso = 아무것도 설정하지 않음
Err.Number <> 0이면
Err.clear()
ReNameFile = 거짓
또 다른
ReNameFile = 참
종료 조건
기능 종료
'************************************************ * ***
'함수 이름: CopyFiles((TempSource,TempEnd)
'기능: 파일 또는 디렉터리 복사
'매개변수: TempSource' 여러 소스 파일 이름은 |
'TempEnd' 여러 대상 파일 이름은 |로 구분됩니다.
' 참고: 위의 두 매개 변수를 일관되게 유지하고 둘 다 전체 경로입니다.
'Server.MapPath 메소드에 의해 처리되었습니다.
'반환값: 성공하면 true, 실패하면 false
'************************************************ * ***
함수 CopyFiles(TempSource,TempEnd)
오류 발생 시 다음 재개
희미한 CopyFSO,arrSource,arrEnd
CopyFiles = 거짓
CopyFSO = Server.CreateObject(Scripting.FileSystemObject) 설정
TempSource = 또는 TempEnd =인 경우
ErrRaise 파일 또는 디렉터리를 복사합니다. 조건이 비어 있습니다.
CopyFiles = 거짓
종료 기능
종료 조건
arrSource = 분할(온도 소스,|)
arrEnd = 분할(TempEnd,|)
UBound(arrSource) <> UBound(arrEnd)이면
CopyFiles= 거짓
종료 기능
종료 조건
i=0에서 UBound(arrSource)까지
srcName = arrSource(i)
tarName = arrEnd(i)
CopyFSO.FileExists(srcName)가 아닌 경우 CopyFSO.FileExists(tarName)
CopyFSO.Copy파일 srcName,tarName
CopyFiles = 참
종료 조건
CopyFSO.FolderExists(srcName)가 아닌 경우 CopyFSO.FolderExists(tarName)
CopyFSO.CopyFolder srcName,tarName
CopyFiles = 참
종료 조건
다음
CopyFSO = 없음 설정
그렇다면 오류가 발생하면
'Err.clear()
CopyFiles = 거짓
종료 조건
기능 종료
%>