batserra
02 de Julio del 2004

Buenas,

Tengo una funcion que comprime un archivo ,pero lo que me gustaria es que le pudiera passar un directorio ,y que lo comprimiese. Como puedo tratar directorios en visual basic ?

Gracias

Estrambotica
02 de Julio del 2004

Hola chico espero q te sirva esto

'Verifica si existe el directorio
MyFile = Dir("" & App.Path & "" & Me.txtcia & "" & Me.txtdirectorio & "", vbDirectory)
If MyFile = "" Then
'Crea Directorio
FileSystem.MkDir ("" & App.Path & "" & Me.txtcia & "" & Me.txtdirectorio & "")
'Copia un archivo.
FileCopy "" & App.Path & "BlancoNOMINA.mdb", "" & App.Path & "" & Me.txtcia & "" & Me.txtdirectorio & "NOMINA.mdb"
MsgBox "Se creo el Directorio"

Else
MsgBox "El Directorio ya Existe"
End If