Quais são as funções de operação de arquivo comumente usadas em objetos FileSystem?
1. raiz
Formato da função root()
A descrição da função retorna uma variável de string de caminho
Código do aplicativo 'string de amostra = c:/intels/jingcaichunfeng/'
Função pública root()
raiz = Request.ServerVariables(Appl_Physical_Path)
Função final
2.URL
URL do formato da função()
A descrição da função retorna uma variável de string de URL
Código do aplicativo 'string de amostra = http://www.intels.net/filesys.asp'
URL de função pública()
url =http://&Request.ServerVariables(Server_Name)
&Request.ServerVariables(Nome_do_Script)
Função final
3. mkdir
Formato da função mkdir(DIrName)
Função Descrição Criar um diretório e retornar informações
Código do aplicativo Função Pública mkdir(xVar)
Definir Sys = Server.CreateObject(Scripting.FileSystemObject)
Se Sys.FolderExists(xVar) Então
msg =Desculpe, o diretório já existe!
Outro
Sys.CreateFolder(xVar)
msg =Parabéns, o diretório foi criado com sucesso!
Terminar se
Definir Sys=Nada
mkdir = mensagem
Função final
4.rmdir
Formato da função rmdir(DirName)
Função DescriçãoExcluir um diretório e retornar informações
Código do aplicativo Função Pública rmdir(xVar)
Definir Sys = Server.CreateObject(Scripting.FileSystemObject)
Se Sys.FolderExists(xVar) Então
Sys.DeleteFolder(xVar)
msg =Parabéns, o diretório foi excluído com sucesso!
Outro
msg =Desculpe, o diretório ainda não foi criado!
Terminar se
Definir Sys=Nada
rmdir = mensagem
Função final
5. isdir
Formato da função isdir(DirName)
Descrição da função Verifica se existe um diretório e retorna informações
Código do aplicativoFunção Pública isdir(xVar)
Definir Sys = Server.CreateObject(Scripting.FileSystemObject)
Se Sys.FolderExists(xVar) Então
mensagem = Verdadeiro
Outro
mensagem = Falso
Terminar se
Definir Sys=Nada
isdir = mensagem
Função final
6.cpdir
Formato da função cpdir(DirName, Destination, OverWrite)
Descrição da função: Copiar pastas e retornar informações
Código do aplicativo Função Pública cpdir(xVar, yVar, zVar)
Definir Sys = Server.CreateObject(Scripting.FileSystemObject)
Se Sys.FolderExists(xVar) Então
Sys.CopyFolder xVar, root&yVar, zVar
msg =Parabéns, a cópia do diretório foi realizada com sucesso!
Outro
msg =Desculpe, o diretório que você estava procurando não foi encontrado!
Terminar se
Definir Sys=Nada
cpdir = mensagem
Função final
7. mvdir
Formato da função mvdir(DirName, Destino)
Função Descrição Mover uma pasta e retornar informações
Código do aplicativo Função Pública mvdir(xVar, yVar)
Definir Sys = Server.CreateObject(Scripting.FileSystemObject)
Se Sys.FolderExists(xVar) Então
Sys.MoveFolder xVar, root&yVar
msg =Parabéns, o diretório foi movido!
Outro
msg =Desculpe, o diretório que você estava procurando não foi encontrado!
Terminar se
Definir Sys=Nada
mvdir = mensagem
Função final
8.isfile
Formato da função isfile(FileName)
Descrição da função: Verifica se o arquivo existe e retorna informações
Código do aplicativo Função Pública isfile(xVar)
Definir Sys = Server.CreateObject(Scripting.FileSystemObject)
Se Sys.FileExists(xVar) Então
mensagem = Verdadeiro
Outro
mensagem = Falso
Terminar se
Definir Sys=Nada
isfile=msg
Função final
9. arquivo w
Formato da função wfile(FileName, OverWrite, String)
A descrição da função grava uma string em um arquivo e retorna informações
Código do aplicativoFunção Pública wfile(xVar, yVar, zVar)
Definir Sys = Server.CreateObject(Scripting.FileSystemObject)
Se yVar então
Definir Txt = Sys.OpenTextFile(xVar, 2)
Texto.Write(zVar)
Txt.Fechar
msg =Parabéns, o arquivo foi criado e salvo com sucesso!
Outro
Se Sys.FileExists(xVar) Então
msg =Desculpe, o arquivo já existe!
Terminar se
Definir Sys=Nada
warquivo=msg
Função final
10. arquivo
Formato de função rfile(FileName)
A descrição da função lê um arquivo e retorna informações
Código do aplicativo Função Pública rfile(xVar)
Definir Sys = Server.CreateObject(Scripting.FileSystemObject)
Se Sys.FileExists(xVar) Então
Definir Txt = Sys.OpenTextFile(xVar, 1)
msg = Txt.ReadAll
Txt.Fechar
Outro
msg =Desculpe, o arquivo não existe!
Terminar se
Definir Sys=Nada
arquivor=msg
Função final
11. arquivo
Arquivo de formato de função (FileName, String)
Função Descrição Adiciona uma string a um arquivo e retorna as informações
Código do aplicativoArquivo de função pública(xVar, zVar)
Definir Sys = Server.CreateObject(Scripting.FileSystemObject)
Se Sys.FileExists(xVar) Então
Definir Txt = Sys.OpenTextFile(xVar, 8)
Texto.Write(zVar)
Txt.Fechar
msg =Parabéns, o arquivo foi adicionado com sucesso e salvo!
Outro
msg =Desculpe, o arquivo não existe!
Terminar se
Definir Sys=Nada
arquivo=msg
Função final
12.cpfile
Formato de função cpfile(FileName, Destination, OverWrite)
Descrição da função: Copiar um arquivo e retornar informações
Código do aplicativo Função Pública cpfile(xVar, yVar, zVar)
Definir Sys = Server.CreateObject(Scripting.FileSystemObject)
Se Sys.FileExists(xVar) Então
Sys.CopyFile xVar, root&yVar, zVar
msg =Parabéns, o arquivo foi copiado com sucesso!
Outro
msg =Desculpe, a cópia do arquivo falhou!
Terminar se
Definir Sys=Nada
cpfile=msg
Função final
13. arquivo mv
Formato da função mvfile(FileName, Destination)
Função Descrição Mover um arquivo e retornar informações
Código do aplicativo Função Pública mvfile(xVar, yVar)
Definir Sys = Server.CreateObject(Scripting.FileSystemObject)
Se Sys.FileExists(xVar) Então
Sys.MoveFile xVar, root&yVar
msg =Parabéns, o arquivo foi movido com sucesso!
Outro
msg =Desculpe, a movimentação do arquivo falhou!
Terminar se
Definir Sys=Nada
mvfile=msg
Função final
14.rmfile
Formato de função rmfile(FileName)
Função DescriçãoExcluir um arquivo e retornar informações
Código do aplicativo Função Pública rmfile(xVar)
Definir Sys = Server.CreateObject(Scripting.FileSystemObject)
Se Sys.FileExists(xVar) Então
Sys.DeleteFile(xVar)
msg =Parabéns, o arquivo foi excluído com sucesso!
Outro
msg =Desculpe, a exclusão do arquivo falhou!
Terminar se
Definir Sys=Nada
arquivorm = mensagem
Função final