COPIA/RENOMEAR

USUARIO.EXCLUIDOS 16/04/2004 10:34:54
#20930 Resposta escolhida

Caro Colega

Complementando o SBRUBLLES:

----------------------------------------------------------------------------------------------

Dim entrada as String
Dim saida as String

Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const FILE_ATTRIBUTE_TEMPORARY = &H100

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long

Sub Copiar()

entrada = "C:\...\Arquivo de entrada"
saida = "C:\...\Arquivo de entrada"

Screen.MousePointer = vbHourglass

CopyFile entrada, saida, False

SetFileAttributes saida, FILE_ATTRIBUTE_READONLY

Screen.MousePointer=VbDefault

End Sub

-----------------------------------------------------------------------------------------------

O False após o comando Copyfile significa que o arquivo de saída será regravado
se já existir. Se True, o copy somente será feito se o arquivo não existir.

Você pode usar o SetFileAttributes para colocar os atributos do seu arquivo de saída após a cópia.

USUARIO.EXCLUIDOS 16/04/2004 10:36:25
#20932

Desculpe:

entrada = "C:\...\Arquivo de entrada"
saida = "C:\...\Arquivo de SAàDA"