ASP FSO 파일 작동 기능 코드

저자：Eve Cole 업데이트 시간：2025-01-31 03:36:02

ASP에서 FSO 파일 작업 기능을 소개하겠습니다.

FSO 파일 (파일) 객체 속성

DateCreated 폴더의 생성 날짜 및 시간을 반환합니다.

DatelaastAccessed 파일 마지막 방문 날짜와 시간을 반환합니다.

DatelaastModify 파일의 마지막 수정 날짜와 시간을 반환합니다.

드라이브 파일이있는 드라이브의 드라이브 객체를 반환합니다.

이름 설정 또는 파일 이름을 반환합니다

Parentfolder 파일의 상위 폴더의 폴더 개체를 반환합니다.

PATH는 파일의 절대 경로를 반환하고 긴 파일 이름을 사용할 수 있습니다.

ShortName은 DOS -STYLE 8.3 파일 이름을 반환합니다.

ShortPath는 DOS -Style 8.3 파일 절대 경로 형태를 반환합니다.

크기는 파일의 크기를 반환합니다 (바이트)

유형이있을 경우 파일 유형 명령어 문자열을 반환하십시오

FSO 파일 (파일) 객체 메소드

FSO 파일 객체 메소드 사용

카피 파일 하나 이상의 파일을 새 경로로 복사합니다.

CreateTextFile 파일을 생성하고 텍스트 스트림 객체를 반환합니다

삭제 파일 삭제

OpenTextFile 파일을 열고 텍스트 스트림 객체를 반환하여 읽거나 추가합니다.

Rena 이름 파일 :

코드는 다음과 같습니다.

함수 Rename (sourcename, destname)

어두운, ofile

OFFSO = Server.CreateObject (Scripting.FilesyStemObject)

OFFOUR = Offso.getFile (Server.Mappath (source))))

ofile.name = destname

OFFSO = 아무것도 설정하지 않습니다

OFFOFILE = 아무것도 없습니다

엔드 기능

파일 삭제 :

코드는 다음과 같습니다.

기능 fsodel (파일 이름)

dim fso, f

set fso = server.createobject (scripting.filesystemobject)

f = server.mappath (파일 이름)

fso.fileExist (f)라면

fso.deletefile f, true

끝 If

f = 아무것도 설정하지 않습니다

FSO = 아무것도 설정하지 않습니다

엔드 기능

파일에서 문자열을 변경하십시오.

코드는 다음과 같습니다.

기능 fsoreplace (filename, target, repstring)

dim objfso, objcountfile, filetempdata

set objfso = server.createobject (scripting.filesystemobject)

set objcountfile = objfso.opentextfile (server.mappath (filename), 1, true)

filetempdata = objcountfile.readall

objcountfile.close

filetempdata = replace (filetempdata, target, repstring)

set objcountfile = objfso.createtextfile (server.mappath (filename), true)

objcountfile.writ filetempdata

objcountfile.close

objcountfile = 아무것도 설정하지 않습니다

OBJFSO = 아무것도 설정하지 않습니다

엔드 기능

'******************************************* ***************************************************************************************** 누군가 ***************************************************************************************** 누군가 ***************************************************************************************** 누군가 ***************************************************************************************** 누군가 **************, ******

'기능 이름 : CreateFolder (Spad)

'기능 : 디렉토리를 만듭니다

'매개 변수 : SPATH : 생성 된 상대 디렉토리 경로

'반환 가치 : 성공, 실패 허위

'응답. CreateFolder (/dgsunshine/uploadfile/demo1/)

기능 CreateFolder (SPI)

다음에 오류가 재개됩니다

dim fso, arrfolder, 폴더, i, j

SPACE = 그런 다음

CreateFolder = false

종료 기능

끝 If

남은 경우 (Spath, 1) = / then

폴더 = /

Spath = Mid (Spath, 2, Len (Spath)))))

또 다른

폴더 = ./

끝 If

오른쪽 인 경우 (spath, 1) = / 그런 다음 spath = 왼쪽 (Spad, Len (Spad) -1)

arrfolder = split (spath,/)

set fso = server.createobject (scripting.filesystemobject)

i = 0으로 Ubound (Arrfolder)

i = 0이면

폴더 = 폴더 & arrfolder (i) & /

또 다른

폴더 = 폴더 & arrfolder (i) & /

끝 If

fso.doldrexists (server.mappath (폴더)) = false 인 경우

response.write server.mappath (폴더)

fso.createfolder (Server.mappath (폴더))

끝 If

FSO = 아무것도 설정하지 않습니다

err.number <> 0 인 경우

err.clear ()

CreateFolder = false

또 다른

CreateFolder = true

끝 If

엔드 기능

함수 getfile (paramfylepath)

set fso = server.createobject (scripting.filesystemobject)

set fso_read = fso.opentextfile (server.mappath (paramfilepath), 1, false, -2)

getfile = fso_read.readall

fso_read = 아무것도 설정하지 않습니다

FSO = 아무것도 설정하지 않습니다

엔드 기능

'기능 이름 : CreateFile (paramfilecontent, paramfilepath)

'기능 : 파일을 만듭니다

'매개 변수 : paramfilecontent'파일 내용

'paramfylepath'파일 이름 (경로 제외)

'반환 가치 : 성공, 실패 허위

함수 createFile (paramfilecontent, paramfylepath)

다음에 오류가 재개됩니다

dim fso, fwrite

set fso = server.createobject (scripting.filesystemobject)

set fwrite = fso.creatextfile (Server.mappath (paramfylepath), true)

fwrite.write paramfilecontent

fwrite.close ()

fwrite = 아무것도 설정하지 않습니다

FSO = 아무것도 설정하지 않습니다

err.number <> 0 인 경우

err.clear ()

createFile = false

또 다른

createFile = true

끝 If

엔드 기능

'기능 이름 : Delfile (Filepath)

'기능 : 파일 삭제

'매개 변수 : Filepath'파일 경로 여러 파일에 대한 여러 파일 |

'반환 가치 : 성공, 실패 허위

함수 델리 테 (Filepath)

다음에 오류가 재개됩니다

Dim FSO, Arrfile, i

getSafest (filepath) = 그런 다음

CreateFolder = false

종료 기능

끝 If

arrfile = split (filepath, | |)

set fso = server.createobject (scripting.filesystemobject)

i = 0에서 ubound (Arrfile)의 경우

filepath = arrfile (i)

FSO.fileExist (Server.Mappath (FilePath)) 인 경우

fso.deletefile server.mappath (Filepath)

끝 If

FSO = 아무것도 설정하지 않습니다

그렇다면

err.clear ()

delfile = false

또 다른

delfile = true

끝 If

엔드 기능

'기능 이름 : Delfolder (FolderPath)

'기능 : 디렉토리를 삭제하십시오

'매개 변수 : FolderPath'디렉토리 Paths '다 방향 제거 |

'반환 가치 : 성공, 실패 허위

함수 Delfolder (FolderPath)

다음에 오류가 재개됩니다

Dim FSO, Arrfolder, i

getSafest (folderPath,) = 그런 다음

delfolder = false

종료 기능

끝 If

arrfolder = split (폴더 포트, |)

set fso = server.createobject (scripting.filesystemobject)

i = 0으로 Ubound (Arrfolder)

FolderPath = Arrfolder (I)

fso.doldrexists (Server.mappath (폴더 스팟)). 그렇다면

fso.deletefolder server.mappath (folderpath)

끝 If

그렇다면

err.clear ()

delfolder = false

'샤워러리 삭제 디렉토리 삭제 실패.

또 다른

delfolder = true

끝 If

엔드 기능

'기능 이름 : isexistfile (Filepath)

'기능 : 파일 또는 디렉토리가 존재하는지 확인하십시오

'매개 변수 : Filepath'파일 경로 여러 파일에 대한 여러 파일 |

'반환 가치 : 성공, 실패 허위

기능 ISExistFile (Filepath)

다음에 오류가 재개됩니다

Dim FSO, Arrfile, i

getSafest (filepath) = 그런 다음

ISExistFile = false입니다

끝 If

arrfile = split (filepath, | |)

set fso = server.createobject (scripting.filesystemobject)

i = 0에서 ubound (Arrfile)의 경우

filepath = arrfile (i)

FSO.fileExist (Server.Mappath (FilePath)) 인 경우

ISExistFile = true입니다

끝 If

fso.doldrexist (Server.mappath (Filepath)) 인 경우

ISExistFile = true입니다

끝 If

FSO = 아무것도 설정하지 않습니다

그렇다면

err.clear ()

ISExistFile = false입니다

'파일 또는 디렉토리가 실패하는지 판단하는 샤워러

또 다른

ISExistFile = true입니다

끝 If

엔드 기능

'기능 이름 : Delfile (Filepath)

'기능 : 파일 또는 디렉토리를 삭제합니다

'매개 변수 : Filepath'파일 경로 여러 파일에 대한 여러 파일 |

'반환 가치 : 성공, 실패 허위

함수 델리 테 (Filepath)

다음에 오류가 재개됩니다

Dim FSO, Arrfile, i

getSafest (filepath) = 그런 다음

CreateFolder = false

끝 If

arrfile = split (filepath, | |)

set fso = server.createobject (scripting.filesystemobject)

i = 0에서 ubound (Arrfile)의 경우

filepath = arrfile (i)

FSO.fileExist (Server.Mappath (FilePath)) 인 경우

fso.deletefile server.mappath (Filepath)

끝 If

fso.doldrexist (Server.mappath (Filepath)) 인 경우

fso.deletefolder server.mappath (Filepath)

끝 If

FSO = 아무것도 설정하지 않습니다

그렇다면

err.clear ()

delfile = false

'샤워러 삭제 파일 또는 디렉토리가 실패했습니다.

또 다른

delfile = true

끝 If

엔드 기능

'기능 이름 : RenameFile (OldName, NewName)

'기능 : 파일 또는 디렉토리 이름 바꾸기

'매개 변수 : stroldname'원본 파일 이름 Multi -use |

'strnewname'새 파일 이름 Multi -use |

'동일한 두 매개 변수를 일관성있게 유지하십시오

'반환 가치 : 성공, 실패 허위

기능 renamefile (stroldname, strnewname)

다음에 오류가 재개됩니다

Dim FSO, Arrold, Arrnew, I, OldName, NewName

old = getsafest (stroldname,)

newfile = getsafest (strnewname,)

old = 또는 newfile =이면

RenameFile = False

종료 기능

끝 If

arold = split (stroldname, |)

arrnew = split (strnewname, |)

Ubound (Arrold) <> ubound (Arrnew)라면

RenameFile = False

종료 기능

끝 If

set fso = server.createobject (scripting.filesystemobject)

i = 0에서 ubound (화살표)

Oldname = server.mappath (Arrold (i))

newname = server.mappath (arrnew (i))

fso.fileExist (OldName)가 아닌 경우 fso.fileExists (newname)가 아닌 경우

FSO.MoveFile OldName, NewName

'RenameFile = true

끝 If

FSO = 아무것도 설정하지 않습니다

err.number <> 0 인 경우

err.clear ()

RenameFile = False

또 다른

RenameFile = true

끝 If

엔드 기능

'기능 이름 : Copyfiles (Tempsource, Tempend)

'파일 : 파일 또는 디렉토리 복사

'매개 변수 : Tempsource'소스 파일 이름 다중 목적 |

'Tempend'Destable File Name Multi -Purpose |

'참고 : 위에 동일한 두 매개 변수를 보관하십시오. 둘 다 완전한 경로입니다.

'Server.mappath 메소드가 처리되었습니다

'반환 가치 : 성공, 실패 허위

기능 카피 파일 (Tempsource, Tempend)

다음에 오류가 재개됩니다

DIM COPYFSO, ARRSOURCE, HARREND

Copyfiles = false

copyfso = server.createobject (scripting.filesystemobject)

tempsource = 또는 tempend =이면

errraise 복사 파일 또는 디렉토리, 조건이 비어 있습니다

Copyfiles = false

종료 기능

끝 If

Arrsource = split (Tempsource, |)

rend = split (Tempend, |)

Ubound (Arrsource) <> ubound (Arbit) 인 경우

Copyfiles = false

종료 기능

끝 If

i = 0에서 ubound (Arrsource)

srcname = arrsource (i)

tarname = arcend (i)

Copyfso.filexists (srcname)이고 copyfso.fileExist (tarname)가 아닌 경우

COPYFSO.COPYFILE SRCNAME, TARNAME

Copyfiles = true

끝 If

COPYFSO.DODREXIST (SRCNAME)이고 COPYFSO.DODREXIST (TARNAME)가 아닌 경우

COPYFSO.COPYFOLDER SRCNAME, TARNAME

Copyfiles = true

끝 If

COPYFSO = 아무것도 설정하지 않습니다

그렇다면

'err.clear ()

Copyfiles = false

끝 If

엔드 기능