mudar o nome de um diretório no servidor

28/01/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!

Anderson Bermar

Respostas

03/02/2010

Netasper

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

15/02/2010

Eleuterio Gonzalez

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
Responder Citar