FSO significa FileSystemObject, que é o objeto do sistema de arquivos. O modelo de objeto FSO está incluído na biblioteca de tipos de script (Scrrun.Dll). Ele também contém cinco objetos: Drive, Folder, File, FileSystemObject e TextStream, o que é muito conveniente para operar arquivos e pastas.
Propriedades do objeto arquivo FSO (Arquivo)
DateCreated retorna a data e hora de criação da pasta
DateLastAccessed retorna a data e hora em que o arquivo foi acessado pela última vez
DateLastModified retorna a data e hora em que o arquivo foi modificado pela última vez
Drive retorna o objeto Drive da unidade onde o arquivo está localizado.
Name define ou retorna o nome do arquivo
ParentFolder retorna o objeto Folder da pasta pai do arquivo
Path retorna o caminho absoluto do arquivo, nomes de arquivo longos podem ser usados
ShortName retorna a forma 8.3 do nome do arquivo no estilo DOS.
ShortPath retorna um caminho absoluto no estilo DOS 8.3 para um arquivo
Size retorna o tamanho do arquivo (bytes)
Type Se possível, retorna uma string descrevendo o tipo de arquivo.
Métodos de objeto de arquivo FSO (arquivo)
Uso do método de objeto de arquivo FSO
CopyFile copia um ou mais arquivos para um novo caminho
CreateTextFile cria um arquivo e retorna um objeto TextStream
DeleteFile exclui um arquivo
OpenTextFile abre um arquivo e retorna um objeto TextStream para leitura ou acréscimo
Renomeie o arquivo:
Copie o código do código da seguinte forma:
Função reName(nomeorigem,Nomedest)
escurecer oFso,oFile
definir oFso=server.createobject("Scripting.FileSystemObject")
definir oFile=oFso.getFile(Server.mappath(sourceName))
oFile.Name=destName
Definir oFso=Nada
Definir oFile=Nada
Função final
Excluir arquivos:
Copie o código do código da seguinte forma:
Função FSOdel(nomeArquivo)
dim fso,f
definir fso = server.CreateObject("scripting.filesystemobject")
f = servidor.MapPath (nome do arquivo)
se fso.FileExists(f) então
fso.DeleteFile f, verdadeiro
terminar se
definir f = nada
definir fso = nada
Função final
Substitua uma string em um arquivo:
Copie o código do código da seguinte forma:
Função FSOreplace(nomeArquivo,Target,repString)
Dim objFSO,objCountFile,FiletempData
Definir objFSO = Server.CreateObject("Scripting.FileSystemObject")
Definir objCountFile = objFSO.OpenTextFile(Server.MapPath(fileName),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData=Substituir(FiletempData,Target,repString)
Definir objCountFile = objFSO.CreateTextFile (Server.MapPath (nome do arquivo), True)
objCountFile.Write FiletempData
objCountFile.Close
Definir objCountFile=Nada
Definir objFSO = Nada
Função final
<%
'********************************************** ***
'Nome da função: CreateFolder(sPath)
'Função: Criar diretório
'Parâmetro: sPath: caminho relativo do diretório criado
'Valor de retorno: verdadeiro em caso de sucesso, falso em caso de falha
'********************************************** ***
'response.Write createfolder("/dgsunshine/UploadFile/demo1/")
Função CreateFolder(sPath)
Em caso de erro, retomar o próximo
Dim Fso,Arrfolder,Folder,i,j
Se sPath="" então
CriarPasta = Falso
Função de saída
Terminar se
Se Esquerda(sPath,1) = "/" Então
Pasta = "/"
sPath = Mid(sPath,2,Len(sPath))
Outro
Pasta = "./"
Terminar se
se Direita(sPath,1) = "/" então sPath = Esquerda(sPath,Len(sPath)-1)
ArrFolder = Dividir(sPath,"/")
Definir Fso = Server.CreateObject("Scripting.FileSystemObject")
Para i = 0 para Ubound (ArrFolder)
Se eu = 0 então
Pasta = Pasta & ArrFolder(i) & "/"
Outro
Pasta = Pasta & ArrFolder(i) & "/"
Terminar se
Se Fso.folderExists(Server.MapPath(Folder)) = False então
resposta.Write server.MapPath (pasta)
Fso.createFolder(Server.MapPath(Pasta))
Terminar se
Próximo
Definir Fso = nada
Se Err.Number <> 0 então
Err.claro()
CriarPasta = Falso
Outro
CriarPasta = Verdadeiro
Terminar se
Função final
Função getFile(paramFilePath)
Definir Fso = Server.CreateObject("Scripting.FileSystemObject")
Definir Fso_Read = fso.OpenTextFile(Server.MapPath(paramFilePath),1,false,-2)
getArquivo = Fso_Read.readall
Definir Fso_Read = Nada
Definir Fso = Nada
Função final
'********************************************** ***
'Nome da função: CreateFile(paramFileContent,paramFilePath)
'Função: Criar arquivo
'Parâmetro: paramFileContent 'O conteúdo do arquivo
' paramFilePath 'Nome do arquivo (excluindo caminho)
'Valor de retorno: verdadeiro em caso de sucesso, falso em caso de falha
'********************************************** ***
Função CreateFile(paramFileContent,paramFilePath)
Em caso de erro, retomar o próximo
Dim Fso,fWrite
Definir Fso = Server.CreateObject("Scripting.FileSystemObject")
Definir fWrite = Fso.CreateTextFile(Server.Mappath(paramFilePath),true)
fWrite.write paramFileContent
fWrite.close()
Defina fWrite = nada
Definir Fso = nada
Se Err.number <> 0 Então
Err.claro()
CriarArquivo = Falso
Outro
CriarArquivo = Verdadeiro
Terminar se
Função final
'********************************************** ***
'Nome da função: DelFile(FilePath)
'Função: excluir arquivos
'Parâmetro: FilePath 'Caminho do arquivo vários arquivos separados por "|"
'Valor de retorno: verdadeiro em caso de sucesso, falso em caso de falha
'********************************************** ***
Função DelFile(FilePath)
Em caso de erro, retomar o próximo
Dim fso,arrFile,i
Se GetSafeStr(FilePath,"")="" então
CriarPasta = falso
Função de saída
Terminar se
arrArquivo = Dividir(CaminhoDoArquivo,"|")
Definir Fso = Server.CreateObject("Scripting.FileSystemObject")
para i = 0 para UBound (arrFile)
Caminho do arquivo = arrArquivo(i)
Se Fso.FileExists(Server.MapPath(FilePath)) então
Fso.DeleteFile Server.MapPath(FilePath)
Terminar se
Próximo
Definir fso = nada
Se errar então
Err.claro()
DelArquivo = falso
Outro
DelFile = verdadeiro
Terminar se
Função final
'********************************************** ***
'Nome da função: DelFolder(FolderPath)
'Função: excluir diretório
'Parâmetro: FolderPath 'Caminho do diretório' Vários diretórios são separados por "|"
'Valor de retorno: verdadeiro em caso de sucesso, falso em caso de falha
'********************************************** ***
Função DelFolder(FolderPath)
Em caso de erro, retomar o próximo
Dim Fso,arrFolder,i
Se GetSafeStr(FolderPath,"")="" então
DelFolder = falso
Função de saída
Terminar se
arrFolder = Dividir(PastaPasta,"|")
Definir Fso = Server.CreateObject("Scripting.FileSystemObject")
Para i=0 para UBound(arrFolder)
CaminhoDaPasta = arrFolder(i)
Se Fso.folderexiste(Server.MapPath(FolderPath)) então
Fso.deleteFolder Servidor.MapPath(FolderPath)
Terminar se
Próximo
Se errar então
Err.claro()
DelFolder = falso
'ShowError "Falha ao excluir diretório",""
outro
DelFolder = verdadeiro
Terminar se
Função final
'********************************************** ***
'Nome da função: IsExistFile(FilePath)
'Função: Determina se o arquivo ou diretório existe
'Parâmetro: FilePath 'Caminho do arquivo vários arquivos separados por "|"
'Valor de retorno: verdadeiro em caso de sucesso, falso em caso de falha
'********************************************** ***
Função IsExistFile(FilePath)
Em caso de erro, retomar o próximo
Dim fso,arrFile,i
Se GetSafeStr(FilePath,"")="" então
IsExistFile = falso
Terminar se
arrArquivo = Dividir(CaminhoDoArquivo,"|")
Definir Fso = Server.CreateObject("Scripting.FileSystemObject")
para i = 0 para UBound (arrFile)
Caminho do arquivo = arrArquivo(i)
Se Fso.FileExists(Server.MapPath(FilePath)) então
IsExistFile = Verdadeiro
Terminar se
Se Fso.folderexiste(Server.MapPath(FilePath)) então
IsExistFile = Verdadeiro
Terminar se
Próximo
Definir fso = nada
Se errar então
Err.claro()
IsExistFile = falso
'ShowError "Falha ao determinar se o arquivo ou diretório existe",""
outro
IsExistFile = verdadeiro
Terminar se
Função final
'********************************************** ***
'Nome da função: DelFile(FilePath)
'Função: excluir arquivos ou diretórios
'Parâmetro: FilePath 'Caminho do arquivo vários arquivos separados por "|"
'Valor de retorno: verdadeiro em caso de sucesso, falso em caso de falha
'********************************************** ***
Função DelFile(FilePath)
Em caso de erro, retomar o próximo
Dim fso,arrFile,i
Se GetSafeStr(FilePath,"")="" então
CriarPasta = falso
Terminar se
arrArquivo = Dividir(CaminhoDoArquivo,"|")
Definir Fso = Server.CreateObject("Scripting.FileSystemObject")
para i = 0 para UBound (arrFile)
Caminho do arquivo = arrArquivo(i)
Se Fso.FileExists(Server.MapPath(FilePath)) então
Fso.DeleteFile Server.MapPath(FilePath)
Terminar se
Se Fso.folderexiste(Server.MapPath(FilePath)) então
Fso.deleteFolder Servidor.MapPath(FilePath)
Terminar se
Próximo
Definir fso = nada
Se errar então
Err.claro()
DelArquivo = falso
'ShowError "Falha ao excluir arquivo ou diretório",""
outro
DelFile = verdadeiro
Terminar se
Função final
'********************************************** ***
'Nome da função: ReNameFile((oldName,newName)
'Função: Renomear arquivos ou diretórios
'Parâmetro: strOldName 'Vários nomes de arquivos originais são separados por "|"
' strNewName ' Vários novos nomes de arquivos são separados por "|"
'Por favor, mantenha os dois parâmetros acima consistentes
'Valor de retorno: verdadeiro em caso de sucesso, falso em caso de falha
'********************************************** ***
Função ReNameFile(strOldName,strNewName)
Em caso de erro, retomar o próximo
Dim fso,arrOld,arrNew,i,oldName,newName
antigo = GetSafeStr(strNomeOld,"")
Novo arquivo = GetSafeStr(strNewName,"")
Se antigo = "" ou Newfile = "" então
ReNomeArquivo = falso
Função de saída
Terminar se
arrOld = Split(strOldNome,"|")
arrNovo = Dividir(strNovoNome,"|")
Se UBound(arrOld)<> UBound(arrNew) então
ReNomeArquivo = falso
Função de saída
Terminar se
Definir Fso = Server.CreateObject("Scripting.FileSystemObject")
para i=0 para UBound(arrOld)
nomeantigo = Server.MapPath(arrOld(i))
novoNome = Servidor.MapPath(arrNew(i))
Se Fso.FileExists(oldName) e não Fso.FileExists(newName) então
fso.MoveFile nome antigo, novo nome
'ReNomeArquivo = Verdadeiro
Terminar se
Próximo
Definir fso = nada
Se Err.Number <> 0 Então
Err.claro()
ReNomeArquivo = falso
Outro
ReNomeArquivo = Verdadeiro
Terminar se
Função final
'********************************************** ***
'Nome da função: CopyFiles((TempSource,TempEnd)
'Função: Copiar arquivos ou diretórios
'Parâmetro: TempSource 'Vários nomes de arquivos de origem são separados por "|"
'TempEnd' Vários nomes de arquivos de destino são separados por "|"
' Nota: Por favor, mantenha os dois parâmetros acima consistentes e ambos são caminhos completos.
'Foi processado pelo método Server.MapPath
'Valor de retorno: verdadeiro em caso de sucesso, falso em caso de falha
'********************************************** ***
Função CopyFiles(TempSource,TempEnd)
Em caso de erro, retomar o próximo
Dim CopyFSO,arrSource,arrEnd
CopiarArquivos = falso
Definir CopyFSO = Server.CreateObject("Scripting.FileSystemObject")
Se TempSource = "" ou TempEnd = "" então
ErrRaise "Copiar arquivo ou diretório", "A condição está vazia"
CopiarArquivos = falso
Função de saída
Terminar se
arrSource = Split(TempSource,"|")
arrEnd = Split(TempEnd,"|")
Se UBound(arrSource) <> UBound(arrEnd) então
CopiarArquivos= falso
Função de saída
Terminar se
para i=0 para UBound(arrSource)
srcName = arrSource(i)
tarName = arrEnd(i)
SE CopyFSO.FileExists(srcName) e não CopyFSO.FileExists(tarName) então
CopyFSO.CopyFile srcName,tarName
CopiarArquivos = verdadeiro
Terminar se
SE CopyFSO.FolderExists(srcName) e não CopyFSO.FolderExists(tarName)então
CopyFSO.CopyFolder srcName,tarName
CopiarArquivos = verdadeiro
Terminar se
Próximo
Definir CopyFSO = Nada
Se errar então
'Err.claro()
CopiarArquivos = falso
Terminar se
Função final
%>