Andresa

Visual Basic - Operações com arquivos e diretórios

Copiando arquivos
Renomeando arquivos
Excluindo arquivos
Movendo arquivos
Criando um diretório (Pasta)
Removendo um diretório (Pasta)
Movendo um diretório (Pasta)
Mudando o drive e o diretório atual
Exibindo o drive e o diretorio atual
Verificando se um arquivo existe

No artigo Usando o File System Object - FSO - Tratando arquivos e diretórios mostramos como podemos realizar operações e obter informações sobre arquivos e diretórios. Para utilizar o objeto FSO voce precisar ter o VB6 e estar familiarizado com o novo objeto FSO . Tá com preguiça !!!! Bem , o VB oferece uma outra alternativa para realizar essas operações (embora esteja ultrapassada) : Os bons e velhos comandos do BASIC ... Vamos mostrar neste artigo como fazer o serviço. Ao código...
Copiando Arquivos
Para copiar arquivos podemos usar o comando - FileCopy. Cuja sintaxe é:
FileCopy fonte, destino
Fonte - é o nome do arquivo que desejamos copiar
Destino - é o nome do arquivo para o qual vamos copiar.
Exemplo :
FileCopy "arq1.txt", "arq2.txt"
Neste exemplo o arquivo arq1.txt é copiado do diretório atual com o nome de arq2.txt para o mesmo diretório.
Você pode especificar a localização dos arquivos informando o drive e o diretório para o fonte e o destino. Assim:
FileCopy "c:\teste\arq1.txt", "c:\windows\arq2.txt"
Aqui o arquivo arq1.txt é copiado do diretório c:\teste para o diretório c:\windows com o nome de arq2.txt
Se o arquivo fonte , arq1.txt , não for localizado ou estiver aberto , o VB retorna uma mensagem de erro:

Usando o tratamento de erros podemos contornar a situação , como o exemplo a seguir:

Formulário do projeto
Mensagem de erro mais amigável
O código do botão Iniciar copia é o seguinte
Private Sub Command1_Click() On Error GoTo trata_erro CopyFile Text1.Text , Text2.Text MsgBox "Arquivo => " & Text1.Text & " Copiado como => " & Text2.Text, vbOKOnly Exit Sub