Código de função de operação de arquivo FSO ASP

Autor：Eve Cole Data da Última Atualização：2025-01-31 03:36:02

Vamos introduzir a função de operação de arquivos FSO no ASP.

Atributo do objeto FSO (arquivo) FSO

O DATecreated retorna a data e a hora da criação da pasta

DatelaastAcced Retorna a data e a hora da última visita ao arquivo

DatelaastModify Retorna a data e a hora da última modificação do arquivo

A unidade retorna o objeto de unidade da unidade onde o arquivo está localizado

Configurações de nome ou retorno nomes de arquivos

ParentFolder retorna o objeto da pasta da pasta pai do arquivo

Path retorna o caminho absoluto do arquivo, você pode usar o nome longo do arquivo

Shortname retorna a forma do estilo 8.3 do nome do arquivo

Shortpath Retorna Dos -Style 8.3 Formulário de Arquivo Caminho Absoluto

O tamanho retorna o tamanho do arquivo (byte)

Se o tipo pode, retornar uma string de instrução do tipo de arquivo

Método do objeto de arquivo fso (arquivo)

Método do objeto de arquivo FSO Use

Copyfile copie um ou mais arquivos para o novo caminho

CreateTextFile cria um arquivo e retorna um objeto Textstream

Deletefile exclua um arquivo

OpenExtFile abre o arquivo e retorna o objeto Textstream para ler ou adicionar

Arquivo de nome de rena:

O código é o seguinte:

Função Renomear (SourceName, DestName)

Dim OfSo, Ofile

set offso = server.createObject (script.filesystemoBject)

Conjunto Ofile = Offso.getFile (Server.mappath (fonte)))

ofile.name = DestName

Definir Offso = nada

Conjunto de Ayile = Nada

Função final

Excluir arquivos:

O código é o seguinte:

Função fsodel (nome do arquivo)

Dim fso, f

set fso = server.createObject (script.filesystemoBject)

F = server.mappath (nome do arquivo)

se fso.fileExist (f) então

Fso.DeleteFile F, Verdadeiro

final se

Definir F = nada

Definir FSO = nada

Função final

Altere a string no arquivo:

O código é o seguinte:

Função fsoreplace (nome do arquivo, alvo, repstring)

Dim objfso, objcountFile, fileTempData

Set objfso = server.createObject (script.filesystemoBject)

Definir objCountFile = objfso.opentExtfile (server.mappath (nome do arquivo), 1, true)

FileTempData = objCountFile.readall

objCountFile.Close

FileTempData = Substitua (FileTempData, Target, Repstring)

Set objCountFile = objfso.createTextFile (server.mappath (nome do arquivo), true)

objCountFile.Writ FileTempData

objCountFile.Close

Definir objCountFile = nada

Defina objfso = nada

Função final

'***************************************************** **************************************************** **************************************************** **************************************************** **************************************************** **************, ******

'Nome da função: CreateFolder (SPAD)

'Função: Crie um diretório

Parâmetros: Spath: o caminho do diretório relativo criado

'Valor de retorno: sucesso verdadeiro, falha falsa

'Response.Write CreateFolder (/dgsUnshine/UPLOPFILE/Demo1/)

Função createfolder (spi)

Em erro de erro em seguida

Dim FSO, ArrFolder, Pasta, i, J

Se espaço = então

Createfolder = false

Função de saída

Final se

Se deixado (spath, 1) = / então

Pasta = / /

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

Outro

Pasta = ./

Final se

Se à direita (spath, 1) = / então spath = esquerda (spad, len (spad) -1)

ArrFolder = Split (Spath,/)

Set fso = server.createObject (script.filesystemoBject)

Para i = 0 para ubound (arrFolder)

Se eu = 0 então

Pasta = pasta & arrFolder (i) e /

Outro

Pasta = pasta & arrFolder (i) e /

Final se

Se fso.foldrexists (server.mappath (pasta)) = false então

Response.Write Server.mappath (pasta)

Fso.createfolder (server.mappath (pasta))

Final se

Definir FSO = nada

Se err.number <> 0 então

Err.clear ()

Createfolder = false

Outro

Createfolder = true

Final se

Função final

Função getfile (paramfilepath)

Set fso = server.createObject (script.filesystemoBject)

Set fso_read = fso.opentExtfile (server.mappath (paramfilepath), 1, false, -2)

getfile = fso_read.readall

Definir fso_read = nada

Definir FSO = nada

Função final

'Nome da função: createfile (paramFilEcontent, paramfilepath)

'Função: Crie um arquivo

'Parâmetro: ParamFilEcontent' Conteúdo do arquivo

Nome do arquivo 'paramfilepath' (excluindo o caminho)

'Valor de retorno: sucesso verdadeiro, falha falsa

Função createfile (paramFilEcontent, paramfilepath)

Em erro de erro em seguida

Dim FSO, FWRITE

Set fso = server.createObject (script.filesystemoBject)

Set fwrite = fso.createTextFile (server.mappath (paramfilepath), true)

fwrite.Write paramFilEcontent

fwrite.close ()

Definir fwrite = nada

Definir FSO = nada

Se err.number <> 0 então

Err.clear ()

Createfile = false

Outro

Createfile = true

Final se

Função final

'Nome da função: Delfile (filepath)

'Função: Exclua arquivos

'Parâmetro: FilePath' Path vários arquivos para vários arquivos |

'Valor de retorno: sucesso verdadeiro, falha falsa

Função delfile (filepath)

Em erro de erro em seguida

Dim FSO, Arfile, eu

Se getSafeST (filepath) = então

Createfolder = false

Função de saída

Final se

Acrfile = split (filepath, | |)

Set fso = server.createObject (script.filesystemoBject)

para i = 0 para ubound (arrfile)

Filepath = arrfile (i)

Se fso.FileExist (Server.mappath (filepath), então) então)

FSO.DeleteFile Server.Mappath (FilePath)

Final se

Definir FSO = nada

Se errar então

Err.clear ()

Delfile = Falso

Outro

Delfile = Verdadeiro

Final se

Função final

'Nome da função: Delfolder (FolderPath)

'Função: exclua o diretório

'Parâmetro: PastaPath' Caminhos de diretório 'Eliminação multi -diretora | Separação

'Valor de retorno: sucesso verdadeiro, falha falsa

Função Delfolder (FolderPath)

Em erro de erro em seguida

Dim FSO, ArrFolder, eu

Se getSafeST (pastaPath) = então

Delfolder = false

Função de saída

Final se

ArrFolder = Split (FolderPath, |)

Set fso = server.createObject (script.filesystemoBject)

Para i = 0 para ubound (arrFolder)

PastaPath = arrFolder (i)

Se fso.foldrexists (server.mappath (pastaPath), então) então)

FSO.DeleteFolder Server.mappath (FolderPath)

Final se

Se errar então

Err.clear ()

Delfolder = false

'Showerror excluir o diretório falhou,

outro

Delfolder = true

Final se

Função final

'Nome da função: isexistfile (filepath)

'Função: determine se o arquivo ou diretório existe

'Parâmetro: FilePath' Path vários arquivos para vários arquivos |

'Valor de retorno: sucesso verdadeiro, falha falsa

Função isexistfile (filepath)

Em erro de erro em seguida

Dim FSO, Arfile, eu

Se getSafeST (filepath) = então

Isexistfile = false

Final se

Acrfile = split (filepath, | |)

Set fso = server.createObject (script.filesystemoBject)

para i = 0 para ubound (arrfile)

Filepath = arrfile (i)

Se fso.FileExist (Server.mappath (filepath), então) então)

Isexistfile = true

Final se

Se fso.foldrexist (server.mappath (filepath)) então

Isexistfile = true

Final se

Definir FSO = nada

Se errar então

Err.clear ()

Isexistfile = false

'Showerror julgando se o arquivo ou diretório falha,

outro

Isexistfile = true

Final se

Função final

'Nome da função: Delfile (filepath)

'Função: Exclua arquivos ou diretório

'Parâmetro: FilePath' Path vários arquivos para vários arquivos |

'Valor de retorno: sucesso verdadeiro, falha falsa

Função delfile (filepath)

Em erro de erro em seguida

Dim FSO, Arfile, eu

Se getSafeST (filepath) = então

Createfolder = false

Final se

Acrfile = split (filepath, | |)

Set fso = server.createObject (script.filesystemoBject)

para i = 0 para ubound (arrfile)

Filepath = arrfile (i)

Se fso.FileExist (Server.mappath (filepath), então) então)

FSO.DeleteFile Server.Mappath (FilePath)

Final se

Se fso.foldrexist (server.mappath (filepath)) então

Fso.deletefolder server.mappath (filepath)

Final se

Definir FSO = nada

Se errar então

Err.clear ()

Delfile = Falso

'SHOWSROR DELETE FILE OU DIRETORY falhou,

outro

Delfile = Verdadeiro

Final se

Função final

'Nome da função: renamefile (Oldname, newname)

'Função: renomear arquivo ou diretório

'Parâmetro: StroldName' Nome do arquivo original Multi -Use |

'StrNewName' Nome do arquivo Multi -Use |

'Por favor, mantenha os mesmos dois parâmetros consistentes

'Valor de retorno: sucesso verdadeiro, falha falsa

Função renamefile (stroldname, strnewname)

Em erro de erro em seguida

Dim FSO, Arrold, ArrNew, I, Oldname, NewName

Antigo = getSafeST (stroldname,)

Newfile = getSafeST (strNewName,)

Se antigo = ou newFile = então

Renamefile = false

Função de saída

Final se

arold = split (stroldname, |)

ArrNew = Split (StrNewName, |)

Se Ubound (Arrold) <> Ubound (ArrNew) então

Renamefile = false

Função de saída

Final se

Set fso = server.createObject (script.filesystemoBject)

para i = 0 para ubound (seta)

OldName = server.mappath (Arrold (i))

newname = server.mappath (arrNew (i))

Se fso.FileExist (Oldname) e não fso.FileExists (newName) então

FSO.MoveFile Oldname, NEWNOME

'Renamefile = true

Final se

Definir FSO = nada

Se err.number <> 0 então

Err.clear ()

Renamefile = false

Outro

Renamefile = true

Final se

Função final

'Nome da função: copyfiles (tempsource, tempend)

'Arquivo: copiar arquivo ou diretório

'Parâmetro: Tempsource' Nome do arquivo Multi -Purpose |

'Tempende' Nome do arquivo Destable Multi -Purpose |

'Nota: mantenha os mesmos dois parâmetros acima, e ambos são o caminho completo,

'O método server.mappath foi processado

'Valor de retorno: sucesso verdadeiro, falha falsa

Função CopyFiles (Tempsource, Tempend)

Em erro de erro em seguida

Dim copyfso, arsource, prenda

Copyfiles = false

Set copyfso = server.createObject (script.filesystemoBject)

Se tempsource = ou tempend = então

ErrRaise Copy File ou diretório, a condição está vazia

Copyfiles = false

Função de saída

Final se

ArrSource = Split (Tempsource, |)

Arrend = Split (tempend, |)

Se ubound (Arrsource) <> ubound (arbit) então

Copyfiles = false

Função de saída

Final se

para i = 0 para ubound (arrsource)

srcname = arrsource (i)

Tarname = Arrend (i)

Se copyfso.filexists (srcname) e não copyfso.fileExist (Tarname) então

Copyfso.copyfile srcname, Tarname

Copyfiles = true

Final se

Se copyfso.foldrexist (srcname) e não copyfso.foldrexist (Tarname) então

Copyfso.copyFolder srcName, Tarname

Copyfiles = true

Final se

Definir copyfso = nada

Se errar então

'Err.clear ()

Copyfiles = false

Final se

Função final