FileSystem 대상 이 자주 사용 하 는 파일 조작 함 수 는 어떤 것 이 있 습 니까?루트 함수 형식 루트()기능 설명 은 경로 문자열 변수 응용 코드'sample string=c:\intels\\jingcaichunfeng\\'Public Function root()root=Request.server Variables("ApplePhysical_Path")End Function 2,url 함수 형식 url()기능 설명 은 URL 문자열 변수 응용 코드'sample string='을 되 돌려 줍 니 다.http://www.intels.net/filesys.asp' Public Function url() url ="http://"&Request.ServerVariables("Server_Name") &Request.ServerVariables("Script_Name")End Function 3,mkdir 함수 형식 mkdir(DIrName)기능 설명 디 렉 터 리 를 만 들 고 정보 응용 코드 를 되 돌려 줍 니 다.Public Function mkdir(xVar)Set Sys=Server.CreateObject("Scripting.FileSystem Object")If Sys.FolderExists(xVar)Then msg="죄송합니다.이 디 렉 터 리 가 이미 존재 합 니 다!"Else Sys.CreateFolder( xVar ) msg="축하합니다.디 렉 터 리 생 성 성공!"End If Set Sys=Nothing mkdir=msg End Function 4,rmdir 함수 형식 rmdir(DirName)기능 설명 은 디 렉 터 리 를 삭제 하고 정보 응용 코드 를 되 돌려 줍 니 다.Public Function rmdir(xVar)Set Sys=Server.CreateObject("Scripting.FileSystem Object")If Sys.FolderExists(xVar)Then Sys.DeleteFolder( xVar ) msg="축하합니다.디 렉 터 리 삭제 성공!"Else msg="죄송합니다.이 디 렉 터 리 는 아직 만 들 지 않 았 습 니 다!"End If Set Sys=Nothing rmdir=msg End Function 5,isdir 함수 형식 isdir(DirName)기능 설명 은 디 렉 터 리 가 존재 하 는 지 확인 하고 정보 응용 코드 를 되 돌려 줍 니 다.Public Function isdir(xVar)Set Sys=Server.CreateObject("Scripting.FileSystem Object")If Sys.FolderExists(xVar)Then msg = True Else msg=False End If Set Sys=Nothing isdir=msg End Function 6,cpdir 함수 형식 cpdir(DirName,Destination,OverWrite)기능 설명 복사 폴 더 를 되 돌려 주 고 정보 응용 코드 공공 기능 cpdir(xVar,yVar,zVar)Set Sys=Server.CreateObject("Scripting.FileSystem Object")If Sys.FolderExists(xVar) Sys.CopyFolder xVar, root&yVar, zVar msg="축하합니다.디 렉 터 리 복사 성공!"Else msg="원 하 는 디 렉 터 리 를 찾 지 못 해서 죄송합니다!"End If Set Sys=Nothing cpdir=msg End Function 7,mvdir 함수 형식 mvdir(DirName,Destination)기능 설명 폴 더 를 이동 하고 정보 응용 코드 를 되 돌려 줍 니 다.Public Function mvdir(xVar,yVar)Set Sys=Server.CreateObject("Scripting.FileSystem Object")If Sys.FolderExists(xVar)Then Sys.MoveFolder xVar, root&yVar msg="축하합니다.디 렉 터 리 폴 더 가 이동 되 었 습 니 다!"Else msg="원 하 는 디 렉 터 리 를 찾 지 못 해서 죄송합니다!"End If Set Sys=Nothing mvdir=msg End Function 8,isfile 함수 형식 isfile(FileName)기능 설명 파일 이 존재 하 는 지 확인 하고 정보 응용 코드 를 되 돌려 줍 니 다.Public Function isfile(xVar)Set Sys=Server.CreateObject("Scripting.FileSystem Object")If Sys.FileExists(xVar)그런 다음 msg = True Else msg=False End If Set Sys=Nothing isfile=msg End Function 9,wfile 함수 형식 wfile(FileName,OverWrite,String)기능 설명 을 파일 에 기록 하고 정보 응용 코드 Public Function wfile(xVar,yVar,zVar)Set Sys=Server.CreateObject("Scripting.FileSystem Object")If yVar Then Set Txt = Sys.OpenTextFile( xVar, 2 ) Txt.Write( zVar ) Txt.Close msg="축하합니다.파일 생 성 성공 및 저장!"Else If Sys.FileExists( xVar ) Then msg="죄송합니다.파일 이 이미 존재 합 니 다!" End If Set Sys=Nothing wfile=msg End Function 10,rfile 함수 형식 rfile(FileName)기능 설명 에서 파일 을 읽 고 정보 응용 코드 를 되 돌려 줍 니 다.Public Function rfile(xVar)Set Sys=Server.CreateObject("Scripting.FileSystem Object")If Sys.FileExists(xVar)Then Set Txt = Sys.OpenTextFile( xVar, 1 ) msg = Txt.ReadAll Txt.Close Else msg="죄송합니다.파일 이 존재 하지 않 습 니 다!"End If Set Sys=Nothing rfile=msg End Function 11,afile 함수 형식 afile(FileName,String)기능 설명 을 파일 에 추가 하고 정보 응용 코드 Public Function afile(xVar,zVar)Set Sys=Server.CreateObject("Scripting.FileSystem Object")If Sys.FileExists(xVar)Then Set Txt = Sys.OpenTextFile( xVar, 8 ) Txt.Write( zVar ) Txt.Close msg="축하합니다.파일 추가 성공 및 저장!"Else msg="죄송합니다.파일 이 존재 하지 않 습 니 다!"End If Set Sys=Nothing afile=msg End Function 12,cpfile 함수 형식 cpfile(FileName,Destination,OverWrite)기능 설명 은 파일 을 복사 하고 정보 응용 코드 를 되 돌려 줍 니 다.Public Function cpfile(xVar,yVar,zVar)Set Sys=Server.CreateObject("Scripting.FileSystem Object")If Sys.FileExists(xVar)Then Sys.CopyFile xVar, root&yVar, zVar msg="축하합니다.파일 복사 성공!"Else msg="죄송합니다.파일 복사 에 실 패 했 습 니 다!"End If Set Sys=Nothing cpfile=msg End Function 13,mvfile 함수 형식 mvfile(FileName,Destination)기능 설명 파일 을 이동 하고 정보 응용 코드 를 되 돌려 줍 니 다.Public Function mvfile(xVar,yVar)Set Sys=Server.CreateObject("Scripting.FileSystem Object")If Sys.FileExists(xVar)Then Sys.MoveFile xVar, root&yVar msg="파일 이동 성공 을 축하합니다!"Else msg="죄송합니다.파일 이동 이 실 패 했 습 니 다!"End If Set Sys=Nothing mvfile=msg End Function 14,rmfile 함수 형식 rmfile(FileName)기능 설명 에서 파일 을 삭제 하고 정보 응용 코드 를 되 돌려 줍 니 다.Public Function rmfile(xVar)Set Sys=Server.CreateObject("Scripting.FileSystem Object")If Sys.FileExists(xVar)Then Sys.DeleteFile( xVar ) msg="파일 삭제 성공 을 축하합니다!"Else msg="죄송합니다.파일 삭제 에 실 패 했 습 니 다!"End If Set Sys = Nothing rmfile = msg End Function
