GetFiles

[Ципихович Эндрю]

сорри мой первый макрос на либре))

Код Выделить Развернуть

Sub GetFiles()

Dim oFS As Object
Dim aFiles As Variant

' Создаём объект для доступа к файловой системе
oFS = CreateUnoService("com.sun.star.ucb.SimpleFileAccess")

' Получаем список файлов в указанной папке
aFiles = oFS.getFolderContents(myPath)

' Выводим список файлов
For Each sFile In aFiles
Print sFile
Next

End Subне хочет работать, ругается на строку:
aFiles = oFS.getFolderContents(myPath)
как подправить?

[mikekaganski]

myPath где определён?

[Ципихович Эндрю]

myPath где определён?

чуть выше

Код Выделить Развернуть

Dim myPath As String
myPath = "file:///I:/Российская Федерация/"извините, забыл весь выложить

[mikekaganski]

Код Выделить Развернуть

myPath = "file:///I:/Российская Федерация/"

"file:///I:/Российская Федерация/" - это некорректный URL. Пути не конвертируются в URL простой заменой обратных слэшей на прямые. Там достаточно сложная кодировка.

Преобразуйте файловые пути так:

Код Выделить Развернуть

myPath = ConvertToURL("I:\Российская Федерация\")

[Ципихович Эндрю]

не понял, а как проверку прошло:

Код Выделить Развернуть

Dim myPath As String
myPath = "file:///I:/Российская Федерация/"
Dim bExists As Boolean
bExists = oFS.exists(sPath)

If bExists Then
Print "Каталог " & myPath & " существует, программа далее продолжает свою работу."а что по вопросу в 1-м посту?

[mikekaganski]

В сообщении он говорит, что ожидает 2 аргумента, а передан 1. И документация говорит, что в getFolderContents передаются строка-URL и логическое значение "перечислять папки".

Код Выделить Развернуть

aFiles = oFS.getFolderContents(myPath, false)

[Ципихович Эндрю]

спасибо за ответ, и наверное у каждого новичка без этого никак, код:

Код Выделить Развернуть

Sub GetFiles()

REM Print "Выведет 'Предупреждение'"
Dim myPath As String
myPath = "I:\Российская Федерация\"
Dim oFS As Object
' Создаём объект для доступа к файловой системе
oFS = CreateUnoService("com.sun.star.ucb.SimpleFileAccess")
' Проверяем существование каталога
If Not oFS.exists(myPath) Then
Print "Каталог " & myPath & " не существует, программа далее не будет продолжаться."
Exit Sub
End If
Dim aFiles As Variant
' Получаем список файлов в указанной папке
aFiles = oFS.getFolderContents(myPath, false)
' Выводим список файлов
For Each sFile In aFiles
Print sFile
Next

End Subработает как надо, как убрать крякозябры, которые выводит Print?, в именах файлов, конечно пробелы есть и есть кириллица

[bigor]

как убрать крякозябры

Код Выделить Развернуть

Print ConvertFromUrl(sFile)

[Ципихович Эндрю]

bigor, спасибо за ответ
работает, как нужно, а крякозябры можно убрать у всего списка aFiles сразу, как?
мой финальный код:

Код Выделить Развернуть

Sub GetFiles()

REM Print "Выведет 'Предупреждение'"
Dim myPath As String
myPath = "I:\Российская Федерация\"
Dim oFS As Object
' Создаём объект для доступа к файловой системе
oFS = CreateUnoService("com.sun.star.ucb.SimpleFileAccess")
' Проверяем существование каталога
If Not oFS.exists(myPath) Then
Print "Каталог " & myPath & " не существует, программа далее не будет продолжаться."
Exit Sub
End If
Dim aFiles As Variant
' Получаем список файлов в указанной папке
aFiles = oFS.getFolderContents(myPath, false)
REM Print aFiles НЕ выведет список
Dim sFilesConver As String
sFilesConver = ""
' Цикл по списку файлов
For Each sFile In aFiles
' Print ConvertFromUrl(sFile) REM ConvertFromUrl - убирает крякозябры
sFilesConver = sFilesConver & ConvertFromUrl(sFile) & Chr(13)
Next

Print sFilesConver

End Subтак как файлов 30 штук по получается, что для Print это большая портянка и он её отображает не за раз, но почему мне показывает этот список файлов за три раза, а не за два раза - загадка
то есть Print показал:
путь 1 файла
путь 1 файла
путь остальных файлов
можете пояснить по этому вопросу

[bigor]

скрипт с использованием библиотеки scriptforge

Код Выделить Развернуть

sub filesort
Dim arr, arr1
Dim i As Long, sDir As String
Dim sFileName
sDir="/home/bigor/Test1/"
GlobalScope.BasicLibraries.loadLibrary("ScriptForge")
sfilename=files(sDir)
redim arr(1,ubound(sfilename))
for i= 0 to ubound(sfilename)
arr(0,i)=int(split(getname(sfilename(i)),".")(0))
arr(1,i)=convertfromurl(sfilename(i))
Next
arr1=sortcolumns(arr,0)
for i=0 to ubound(sfilename)
print arr1(1,i)
next
end sub

[Ципихович Эндрю]

спасибо за ответ, так как файлов у меня 30, принт делит вывод на несколько выводов
если я изменил концовку кода
на

Код Выделить Развернуть

arr1=sortcolumns(arr,0)
Dim sFiles_print As String
sFiles_print = ""
for i=0 to ubound(sfilename)
' print arr1(1,i)
sFiles_print = sFiles_print & arr1(1,i) & Chr(13)
next

print sFiles_printкак последнюю строку изменить на:
1 сделать документ пустым\чистым
2 поместить на него вывод
?? спасибо

[bigor]

1 сделать документ пустым\чистым
2 поместить на него вывод

вам просто нужно было имена файлов вывести в текстовый документ? Зачем тогда массив, можно было заполнить таблицу и отсортировать её

[Ципихович Эндрю]

вам просто нужно было имена файлов вывести в текстовый документ?

нет это нужно для заполнения вакуума это я об отсутствии Immediate, Debug.Print и для общего развития))
в тоже время ещё не разобрался как Python скрипты выполнять в либре и вероятно информация о том, куда выводит Pythonовские print() тоже будет за семью печатями))

[bigor]

замените print на msgbox 

[Ципихович Эндрю]

замените print на msgbox 

даже к гадалке ходить не нужно, что msgbox как и print не выведет большую портянку + в них обоих нельзя скопировать + это нужно

для общего развития))