Errores al crear Instalador (mkdir y filecopy)

[NYlOn]

Código [Seleccionar] Expandir


Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Private Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Long
End Type

Private Sub Command1_Click()
    Dim Secury As SECURITY_ATTRIBUTES
    CreateDirectory "C:\Carpeta", Secury
End Sub


Con este code tenes que hacer lo mismo q con MkDir (es decir, sirve para crear carpetas dentro de las ya existentes)... me parece xDDD

salu2 !