Mostrando Codigo - Visual Basic
Copiar y sobreescribir archivos
Con este simple codigo podemos copiar o sobreescribir archivos en nuestras aplicaciones.
Debemos crear un modulo una vez creado el proyecto proyecto > agregar modulo.
Posteriormente en el formulario debemos introducir el siguiente codigo, y un boton llamado por default Command1.
En la linea 8 aparecen los paths hacia el archivo que pretendemos copiar o sobreescribir.
Copiaremos el archivo miarchivo.Zip a la carpeta micarpeta, al hacer click sobre el boton Command1
Para no permitir sobreescribir debemos modificar en la misma linea False por True
CODIGO
// Codigo ofrecido por Tutores.org
' --------------- MODULO
Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal _
lpExistingFileName As String, ByVal lpNewFileName As String, ByVal _
bFailIfExists As Long) As Long
' --------------- FORMULARIO
Private Sub Command1_Click()
A = CopyFile("c:miarchivo.Zip", "c:micarpetamiarchivo.Zip", False)
If A Then
MsgBox "Archivo copiado!"
Else
MsgBox "El archivo no ha sido copiado por error!"
End If
End Sub
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Copiar y sobreescribir archivos" href="http://www.tutores.org/codigo/1063/" target="_blank">Copiar y sobreescribir archivos</a>
<!-- Final enlace Tutores.org -->
<a title="Tutores.org - Copiar y sobreescribir archivos" href="http://www.tutores.org/codigo/1063/" target="_blank">Copiar y sobreescribir archivos</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Di_ford 05-06-2007 20:48:54
El archivo no funciona declare A como long pero dice que "No se puede encontrar el punto de entrada denominado copyFileA en el archivo DLL kernel32"
buemar 05-02-2008 22:22:48
Gracias por esas líneas de código, en mi caso si funciona con VB .Net 2003
Di_Ford declare A como String no como long y veras que si funciona.
Di_Ford declare A como String no como long y veras que si funciona.
sergio 06/07/2004 17.04.57
Funciona excelente! xD gracias!
Bebecita
Funciona muy bien!!!
LAE
Funca exelentemente bien
gracias
gracias
SOL 17-05-2009 02:14:30
mUy bUeNo fElIcIdAdEs!!
PAOLA 04-12-2007 16:12:09
NO ENTIENDO BIEN LO QUE DICE.! JUM
rommel
hola q tal yo soy u poco noob en esto de comprimir archivos y eso, estoy atorado en algo kiero saber como sobreescribo un archivo????
INSERTAR COMENTARIO