CRIAR PASTA E COPIAR ARQUIVOS

RICARDO.RAPA 02/02/2014 13:05:11
#434081

Vou te mandar um artigo que fiz a uns anos atrás sobre operações sobre pastas e arquivos. Segue as funções para você resolver seu problema:

COMO COPIAR UM ARQUIVO

Filecopy

Sintaxe: FileCopy fonte, destino

Fonte: é a origem e o arquivo que você quer copiar
Destino: é o lugar para onde você vai copiar o arquivo

Ex.:

FileCopy “Teste.txt”, “Teste2.txt”

‘Nesse exemplo você está copiando o arquivo Teste.txt no mesmo diretório onde ele está com o nome Teste2.txt, ou seja, é o mesmo arquivo só com o nome diferente.

Ex.:

Filecopy “C:\Meus Documentos\Teste.txt”, “C:\Minhas Imagens\Teste.txt”

‘Nesse exemplo você está copiando o arquivo Teste.txt do diretório (C:\Meus documentos) para o diretório (C:\Minha Imagens) com o mesmo nome.

RENOMEANDO ARQUIVOS

Name

Sintaxe: Name NomeAntigo AS NomeNovo

NomeAntigo: Nome do arquivo na qual deseja renomear
NomeNovo: é o novo nome para o arquivo

Ex.:

Name [Ô]C:    este.txt[Ô] As [Ô]C:\Texto.txt[Ô]

‘Nesse exemplo você está renomeando o arquivo TESTE no mesmo diretório onde ele está para o nome TEXTO

Se quiser renomear o arquivo colocando-o ele em outro diretório é só seguir o primeiro exemplo da função FileCopy.

EXCLUINDO ARQUIVO PERMANENTEMENTE

Kill

Sintaxe: Kill OrigemdoArquivo

OrigemdoArquivo: é a localização do arquivo no Windows, ou seja, seu endereço.

Ex.:

Kill [Ô]C:\Texto.txt[Ô] ‘Excluir o arquivo TEXTO da unidade C:

Ex.:

Kill [Ô]C:\*.txt[Ô] ‘Excluir todos os arquivos com a extensão .TXT da unidade C:

Ex.:

Kill [Ô]C:\Meus Arquivos\*.*[Ô] ‘Excluir todos os arquivos da pasta Meus Arquivos

EXCLUINDO ARQUIVO PARA A LIXEIRA

No Módulo copie o código:

Private Type SHFILEOPTSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As Long
End Type

Private Declare Function SHFileOperation Lib [Ô]Shell32.dll[Ô] Alias [Ô]SHFileOperationA[Ô] (lpFileOp As SHFILEOPTSTRUCT) As Long

Public Sub DeleteFileToRecycleBin(origem As String)
dim fop As SHFILEOPTSTRUCT
With fop
wFunc = &H3
.pFrom = origem
.fFlags = &H40
End With
SHFileOperation fop
End Sub

No Form coloque:

Private Sub Form_Load()
DeleteFileToRecycleBin ([Ô]C:\Teste.txt[Ô]) ‘Enviando o arquivo TESTE para a lixeira.
End Sub

MOVENDO ARQUIVO

Name

Sintaxe: Name Origem AS Destino

Origem: Local onde está o arquivo a ser recortado
Destino: Local para onde vai o arquivo que foi recortado

Ex.:

Name [Ô]C:\Teste.txt[Ô] As [Ô]C:\Windows\Teste.txt[Ô] ‘Recorta de C: e colar em C:\Windows

VERIFICAR SE UM ARQUIVO EXISTE

Dir

Sintaxe: LocaldoArquivo

Private Sub Form_Load()
Dim Arquivo As String
Arquivo = Dir([Ô]d:    este.txt[Ô])
If Arquivo = [Ô]teste.txt[Ô] Then
MsgBox [Ô]O Arquivo Existe![Ô]
Else
MsgBox [Ô]Não foi Encontrado[Ô]
End If

End Sub

CRIANDO UMA PASTA

MkDir

Sintaxe: MkDir LocalNomedaPasta

LocalNomedaPasta: Local onde vai ser criada a Pasta com o nome

Ex.:

MkDir [Ô]C:\Artigos[Ô] ‘Cria uma pasta com o nome ARTIGOS na unidade C:

MOVER UMA PASTA

Name

Sintaxe: Name Origem AS Destino

Origem: Local onde está o arquivo a ser recortado
Destino: Local para onde vai o arquivo que foi recortado

Ex.:

Name [Ô]C:\Artigos[Ô] As [Ô]C:\Windows\Artigos[Ô] ‘Recorta de C: e colar em C:\Windows.

Essa função só move pasta para a mesma unidade. Por exemplo, se você fizer:

Name [Ô]C:\Artigos[Ô] As [Ô]A:\Artigos[Ô] ‘Aparecerá uma mensagem de erro.

Para você mover de uma unidade para outra terá que combinar comandos. Veja:

MkDir [Ô]A:\ARTIGOS[Ô] ‘Cria uma pasta no Disquete
FileCopy [Ô]C:\ARTIGOS\Teste.txt[Ô], [Ô]A:\ARTIGOS\Teste.txt[Ô] ‘Copia os arquivos
Kill [Ô]C:\ARTIGOS\*.txt[Ô] ‘Exclui todos os arquivos da pasta de origem
RmDir [Ô]C:\ARTIGOS[Ô] ‘Exclui a pasta de origem

EXCLUIR UMA PASTA

RmDir

Sintaxe: RmDir LocaldaPasta

RmDir [Ô]C:\Windows\Artigos [Ô] ‘Exclui a pasta com o nome ARTIGOS do diretório, mais somente se pasta estiver vazia, caso contrário irá aparecer uma mensagem de erro.

MOSTRAR DIRETÓRIOS (UNIDADES)

CurDir

Sintaxe: CurDir(Drive)

Ex.:

Private Sub Form_Load()
MsgBox CurDir ‘Mostra o Diretório do VB6
MsgBox CurDir([Ô]C[Ô]) ‘Mostra o diretório C:\
MsgBox CurDir([Ô]A[Ô]) ‘Mostra o diretório A:\
End Sub

FILMAN 03/02/2014 21:30:05
#434167 Resposta escolhida

veja se te ajuda

fiz um exemplo aqui com progressBar acho que vai te ajudar!