Autor
Código:
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 !
En línea
