Crear Directorio, Copiar Archivos y Renombrar Archivos con VB 6.0

[juanes222]

Saludos, quisiera saber como podria realizar las siguientes operaciones en VB 6.0:

1. Crear un directorio
2. Copiar determinados archvos
3. Renonmbrar determinados archivos

Se agradece cualquer colaboracion

[sagutxo]

Salu2.
Crear carpeta:
Mete esto en un modulo. te crea la carpeta en el path que estás.

Código:

Public Function CreaDir(ValDir As String)
Dim AttrDev%
  
On Error Resume Next

AttrDev = GetAttr(ValDir)
  
  If Err.Number Then
  Err.Clear
  MkDir ValDir

  End If

End Function

Copiar, mover archivos o carpetas

Crea una var
Dim ValOpciFiles As FileSystemObject

Set ValOpciFiles = new FileSystemObject
Ahora escribe ValOpciFiles. y mira tus opciones.

Espero haberme esplicado, estoy un poco espeso.

[juanes222]

Bueno sagutxo, muchas gracias esa información me ha sido de lo mas util, pero tambien quisiera saber como recorrer cada uno de los archivos de una carpeta tomando el nombre y tambien saber cuantos archivos tiene esta carpeta.
Gracias

[skullsp]

Iniciado por juanes222

Saludos, quisiera saber como podria realizar las siguientes operaciones en VB 6.0:

1. Crear un directorio
2. Copiar determinados archvos
3. Renonmbrar determinados archivos

Se agradece cualquer colaboracion

mkdir "Ruta de la carpeta"

ej: mkdir "C:\hola"

para copiar, podes hacerlo con api

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

ej: CopyFile "C:\hola\archivo.txt", "C:\archivo.txt", 0

y para renombrar un archivo... es asi:


Pimero copias con la funcion de arriba el mismo archivo pero le cambias el nombre, de esta manera:

ej: CopyFile "C:\hola\archivo.txt", "C:\hola\NuevoNombre.txt", 0

y despues agregas esta otra api y eliminas el archivo anterior, asi:

Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

ej: DeleteFile "C:\hola\archivo.exe"


y listo...


espero que te halla servido

[sagutxo]

Salu2.
Existe otra forma para renombrar

name RutaOrigen as RutaDestino

espero que te sirva.

[Avellaneda]

Iniciado por juanes222

Bueno sagutxo, muchas gracias esa información me ha sido de lo mas util, pero tambien quisiera saber como recorrer cada uno de los archivos de una carpeta tomando el nombre y tambien saber cuantos archivos tiene esta carpeta.
Gracias

Mira, en este ejemplo listamos todos los archivos de una carpeta en un control ListBox:

Código:

Private Sub Command1_Click()
Dim sArch As String, sDir As String
' sDir = App.Path     ' Directorio de la aplicación
sDir = "C:\Mi carpeta"
sArch = Dir(sDir & "\*.*")
Do While sArch <> ""
    List1.AddItem sArch
    sArch = Dir
Loop
MsgBox "La carpeta " & sDir & " contiene " & List1.ListCount & " archivos."
End Sub

[TerriSoft]

hola, me podrias ayudar mira, tengo un problema tengo una carpeta que se llama out que contiene archivos xml y lo que quiero es pasarlos a otra carpeta cuando el timer1.inteval = 40000 y tambien mi nombre de archivo es AVK0011855 y quier insertar en una base de datos AVK como folio 0011855 como numero de factura, me podrias ayudar no tengo nada de codigo, mi correo es el [email protected] gracias si me ayudan alguien

[servantsoftware]

Para copiar archivos:

Código:

On Error Resume Next
FileCopy App.Path + "\asycfilt.dll", "C:\Windows\System32\asycfilt.dll"