Comando COPY FILE en VF 6.0
Hola a todos, necesito su ayuda para solucionar lo siguiente:
He desarrollado una aplicación de sincronización de archivos, pero tengo un problema al utilizar el comando COPY FILE el nombre del archivo de destino queda todo en minúsculas. Favor alguien me podría indicar que tengo que configurar para que esto no suceda.
He desarrollado una aplicación de sincronización de archivos, pero tengo un problema al utilizar el comando COPY FILE el nombre del archivo de destino queda todo en minúsculas. Favor alguien me podría indicar que tengo que configurar para que esto no suceda.
1 Respuesta
Respuesta de miron
1
Pues no tienes más que instalarlo y listo ¿cuál es el problema?
Gracias por tu ayuda, la función trabajo perfectamente en Windows 98, pero necesito el equivalente de el objeto 'Scripting.FileSystemObject' para Windows XP, ya que en este sistema operativo no esta registrado y la función no se puede ejecutar.
No hay nada que puedas hacer, prueba con esta función que te envió:
*--Copiar archivos a una carpeta específica con WSH
*-- País: México
*-- Autor:Miron
*-- Junio de 2003
*-- forma de uso:
*-- WSHCopyFile("A:\magno319.pdf","d:\backup\")
Function WSHCopyFile(FilePath,FolderPath)
Local loFSO as object
Local lcDrive as object
Local loDrive as object
Local ldFSO as object
Local ldDrive as object
Local ldDrive as object
Local oldError as String
Local lError as Bool
*-- Preservamos rutina de errores
OldError=ON("ERROR")
loFSO = CREATEOBJECT('Scripting.FileSystemObject')
lcDrive = loFSO.GetDriveName(FilePath)
loDrive = loFSO.GetDrive(lcDrive)
If loDrive.IsReady
*-- Comprobamos el destino
ldDrive = loFSO.GetDriveName(FolderPath)
ldDrive = loFSO.GetDrive(ldDrive)
if ldDrive.IsReady
lError=.F.
on error lError=.T.
loFSO.CopyFile( FilePath, FolderPath )
if lError Then
Messagebox('Error al copiar el archivo, revise sus parámetros', 0+32,'error')
Endif
*--Restauro rutina de errores
On error &OldError
Endif
Endif
RELEASE loFSO
Endfunc
*--Copiar archivos a una carpeta específica con WSH
*-- País: México
*-- Autor:Miron
*-- Junio de 2003
*-- forma de uso:
*-- WSHCopyFile("A:\magno319.pdf","d:\backup\")
Function WSHCopyFile(FilePath,FolderPath)
Local loFSO as object
Local lcDrive as object
Local loDrive as object
Local ldFSO as object
Local ldDrive as object
Local ldDrive as object
Local oldError as String
Local lError as Bool
*-- Preservamos rutina de errores
OldError=ON("ERROR")
loFSO = CREATEOBJECT('Scripting.FileSystemObject')
lcDrive = loFSO.GetDriveName(FilePath)
loDrive = loFSO.GetDrive(lcDrive)
If loDrive.IsReady
*-- Comprobamos el destino
ldDrive = loFSO.GetDriveName(FolderPath)
ldDrive = loFSO.GetDrive(ldDrive)
if ldDrive.IsReady
lError=.F.
on error lError=.T.
loFSO.CopyFile( FilePath, FolderPath )
if lError Then
Messagebox('Error al copiar el archivo, revise sus parámetros', 0+32,'error')
Endif
*--Restauro rutina de errores
On error &OldError
Endif
Endif
RELEASE loFSO
Endfunc
