Tengo problemas con usar el comando filecopy para hacer copias de archivos usando rutas construidas con variables
aqui muestro lo que da problemas en mi equipo. Uso windows 7 y libreoffice 5.1.0.3
mensaje:
error de ejecucion de BASIC
no se encuentra la ruta
Código: Seleccionar todo
Sub Experimentado_uso_dir_y_filecory
Picker = createUNOService("com.sun.star.ui.dialogs.FolderPicker")
Picker.setDisplayDirectory(ruta)
Picker.execute()
Folder = Picker.getDirectory()
desti=ConvertFromURL( Folder) ' getPathSeparator()
cadena="children like bubbles" ''<-- esta cadena proviene de un proceso de da nombres con espacios
destit=desti & "\" & cadena & "\"
msgbox destit
mkdir destit '' <<--- El directorio se crea bien
rutadir="C:\Users\Administrador\AppData\Roaming\LibreOffice\4\user\config\" '''' & cadena & "\" ''& chr(34) & cadena & chr(34) & "\"
sValue = Dir$(rutadir) '+"*.*",0) '16))
contando=0
redim archivo(1) as string
Do
' sDir = sDir & chr(13) & sValue
if len(sValue)>0 then
contando=contando+1
rutacopia=rutadir & sValue
msgbox rutacopia & chr(13) & destit
'' PROBLEMA 1: No se ejecuta el copiado, da error
filecopy rutacopia, destit
' filecopy rutacopia, "c:\" ''<-- tampoco copia
archivo(contando)=sValue
sDir2 = sDir2 & chr(13) & archivo(contando) ' llenando desde la variable()
redim archivo(contando+1)
endif
sValue = Dir$
Loop Until sValue = ""
msgbox sDir2 ''<<-- aqui se ve que sDir2 proviene de la variable archivo(contando) y si funciona
' No puedo hacer que se muestre lo almacenado antes en la variable(n) la cual si funciona en el ciclo
'' PROBLEMA 2: la variable archivo() està vacía
for ma=1 to contando
msgbox archivo(ma)
next
End Sub