RE:crear directorios y renombrar archivos
A ver vamos por partes,
1) Para cambiar de nombre usa esto:
Name "c:\Windows\Anterior.txt" As "c:\Windows\Nuevo.txt"
2) Esta opcion de mover no la tengo, pero si igual te sirve, puedes copiarlo y luego borrarlo asi:
Private Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type
Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Const FO_COPY = &H2
Private Const FOF_ALLOWUNDO = &H40
Public Sub SHCopyFile(ByVal from_file As String, ByVal to_file As String)
Dim sh_op As SHFILEOPSTRUCT
With sh_op
.hWnd = 0
.wFunc = FO_COPY
.pFrom = from_file & vbNullChar & vbNullChar
.pTo = to_file & vbNullChar & vbNullChar
.fFlags = FOF_ALLOWUNDO
End With
SHFileOperation sh_op
End Sub
Private Sub Command1_Click()
'Esta linea copiara el fichero d:\file.zip a d:\temp\file2.zip
SHCopyFile "d:\file.zip", "d:\temp\file2.zip"
'Esta linea borra el fichero original
Kill ("d:\file.zip")
End Sub
3) Para crear un directorio usa el siguiente codigo
MkDir "c:\mi directorio\"
Estos ejemplos vienen de www.ambsoftware.com
Saludos desde Lima