Array
(
)

mudar o nome de um diretório no servidor

Anderson Bermar
   - 28 jan 2010

  Fala galera,

Gostaria de saber se alguém tem algum exemplo de como mudar o nome de um diretório no servidor, eu tentei copiar os arquivos de um diretório para outro diretório mas dá um erro de arquivo somente leitura.
Pode ser em visual basic.net ou C#.

Vlw pela força!

Netasper
   - 03 fev 2010

Use o System.IO e os metodos do DirectoryINfo, não tem segredo não é facil demais....   []s

0
|
0

Eleuterio Gonzalez
   - 15 fev 2010

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:\teste.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:\teste.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

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

0
|
0