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.