MoveFile

Declaración:
Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
Descripción:
La función MoveFile mueve un archivo o un directorio a otro directorio del disco, en caso de que el directorio inicial desde donde se va a mover el archivo o directorio sea igual al final, la función lo que hace es renombrar el archivo o carpeta.
Parámetros:
ByVal lpExistingFileName As String
Aqui se coloca la ubicación y el nombre del archivo o directorio a mover.
ByVal lpNewFileName As String
Aqui se coloca la ubicación y el nombre de destino para el directorio o archivo a mover.
Valor de retorno:
Se retorna cero (0) es por que hubo algún error, retorna 1 si se realizo bien.
Uso:
Dim ValorRetorno As Long 'Variable para el valor de retorno
'Para usar el ejemplo cree una carpeta en su Disco C:\ con el nombre Nueva Carpeta (por defecto aparece ese)-(No coloque los dos ejemplos juntos)
'Ejemplo 1:

ValorRetorno = MoveFile("C:\Nueva carpeta", "C:\VBEspaniol")
'En este caso renombra la carpeta
'Ejemplo 2:
ValorRetorno = MoveFile("C:\Nueva carpeta", "C:\Windows\Escritorio\VBEspaniol") 'En este caso mueve "Nueva Carpeta" al "C:\Windows\Escritorio" con el nombre "VBEspaniol"