Propriedades do objeto de arquivo FSO (arquivo)
O DATecreated retorna a data e a hora da criação desta pasta
DataLastAcced Retorna a data e a hora do último acesso ao arquivo
DatelastModified Retorna a data e a hora em que o arquivo foi modificado pela última vez
A unidade retorna o objeto de acionamento da unidade onde o arquivo reside
Nome definido ou retorne o nome do arquivo
ParentFolder retorna o objeto da pasta da pasta pai do arquivo
O caminho retorna o caminho absoluto para o arquivo e pode usar um nome de arquivo longo
ShortName retorna o nome do arquivo no formulário do estilo DOS 8.3
Shortpath retorna o caminho absoluto do arquivo no formulário DOS Style 8.3
O tamanho retorna o tamanho (bytes) do arquivo
Digite se possível, retorne uma string de descrição para o tipo de arquivo
Método do objeto de arquivo fso (arquivo)
Uso do método do objeto de arquivo FSO
Copyfile copie um ou mais arquivos para um novo caminho
CreateTextFile cria um arquivo e retorna um objeto Textstream
Deletefile exclua um arquivo
OpenTextFile abre o arquivo e retorna o objeto Textstream para leitura ou anexo
Renomeie o arquivo:
A cópia do código é a seguinte:
Função Renomear (SourceName, DestName)
Dim OfSo, Ofile
Conjunto OFSO = server.createObject ("scripting.filesystemobject")
Conjunto OFILE = OFSO.GetFile (Server.Mappath (SourceName))
ofile.name = DestName
Conjunto de também = nada
Conjunto Ofile = nada
Função final
Exclua o arquivo:
A cópia do código é a seguinte:
Função fsodel (nome do arquivo)
Dim fso, f
set fso = server.createObject ("scripting.filesystemobject")
f = server.mappath (nome do arquivo)
Se fso.FileExists (f) então
fso.DeleteFile F, Verdadeiro
final se
Definir F = nada
Definir FSO = nada
Função final
Substitua as strings no arquivo:
A cópia do código é a seguinte:
Função fsoreplace (nome do arquivo, alvo, repstring)
Dim objfso, objcountFile, fileTempData
Set objfso = server.createObject ("scripting.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.write fileTempData
objCountFile.Close
Defina objCountFile = nada
Defina objfso = nada
Função final
<%
'****************************************************************
'Nome da função: createfolder (spath)
'Função: Crie um diretório
'Caminho: Spath: o caminho do diretório relativo criado
'Valor de retorno: bem -sucedido true, falhou falso
'****************************************************************
'Response.Write CreateFolder ("/dgsUnshine/UPLOPFILE/Demo1/")
Função createfolder (spath)
Em erro de erro em seguida
Dim FSO, ArrFolder, Pasta, i, J
Se Spath = "" 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 (Spath, Len (Spath) -1)
ArrFolder = Split (Spath, "/")
Set fso = server.createObject ("scripting.filesystemobject")