Declarar una Función Global Externa en PB 6.5:
1. Te vas al menú Declare/Global External Functions.
2. Pegas este script:
Function Boolean MoveFileA(string lpExistingFileName,string lpNewFileName)library "Kernel32.dll"
3. OK.
4. Luego, por ejemplo en un botón pegas:
Boolean lb_rtn
String ls_origen, ls_destino
ls_origen ='c:\micarpeta\miarchivo.txt'
//Colocas la path del destino. En tu caso: '\\pc01\C\otracarpeta\miarchivo.txt'
ls_destino = 'd:\otracarpeta\miarchivo.txt'
lb_rtn = MoveFileA( ls_origen, ls_destino )
If Not lb_rtn Then
MessageBox ("Error moviendo", &
"Un error ha ocurrido durante " + &
"el movimiento de "+ls_origen+" a "+ls_destino)
Else
MessageBox ("Exito", "Movimiento exitoso")
End if
Nota: No hice la prueba de mover del Servidor a la carpeta local; pero por lo menos mueve correctamente de una unidad a otra.
