Решено Проблемы с выгрузкой файлов

[JohnLemon]

Здравствуйте при выгрузке файлов, при совпадении имен как я понимаю почему то одному файлу присвается имя что в роде ATTH89S2.
Выгружаю так:

If (o.Type = EMBED_ATTACHMENT) Then
Call o.ExtractFile("C:\Temp\" & doc.universalId & "\"& o.Name)
End If

 

[JohnLemon]

Вот вложение, что то при редактировании не добавляет (

 

[lmike]

почему то одному файлу присвается имя что в роде ATTH89S2.

проблема-то в чем?

 

[JohnLemon]

Проблема в основном в том что нету расширения ) И не понятно во что и как переименовывать и как открыть )

 

[maffl]

И не понятно во что и как переименовывать и как открыть

Есть такая функция Dir. Почитайте. Перед выгрузкой можно делать проверку в цикле, и если файл существует, вставлять в название индекс ( "название(1).ext","название(2).ext",...)

 

[JohnLemon]

Перед выгрузкой можно делать проверку в цикле, и если файл существует, вставлять в название индекс ( "название(1).ext","название(2).ext",...)

Файл то существует, и это нормальный файл и если к нему добавить расширение txt Он будет открываться и читаться, просто я так понимаю лотус сам как то разруливает имена файлов если они одинаковые и присваивает ATTH89S2 одному из файлов в качестве имени (. А вот с расширением проблемки...

 

[susinmn]

Здравствуйте при выгрузке файлов, при совпадении имен как я понимаю почему то одному файлу присвается имя что в роде ATTH89S2.
Выгружаю так:

If (o.Type = EMBED_ATTACHMENT) Then
Call o.ExtractFile("C:\Temp\" & doc.universalId & "\"& o.Name)
End If

А так o.Source?

 

[maffl]

Файл то существует

А я предлагаю самому именовать файл.

If (o.Type = EMBED_ATTACHMENT) Then
path = "C:\Temp\" & doc.universalId & "\"& o.Name
'тут намутить цикл и в цикле проверять сущ-е файлов. Если такого файла еще не сущ-т - можем выгрузить.
If dir(path) <> "" then path = "C:\Temp\" & doc.universalId & "\"& i & o.Name
Call o.ExtractFile(path)
End If

 

[savl]

@JohnLemon, выше указали, что надо заменить o.Name на o.Source
Тогда имя файла будет с расширением.

 

[JohnLemon]

А я предлагаю самому именовать файл.

o.Name и возвращает как раз ATTH89S2. Проблема не в имени файла а в том как понять что это за файл(расширение или тип какой нибудь вытащить)

 

[lmike]

пора уже прекратить мучать жывотное всякими экстрактами
вот два файла в ДХЛ:

....
<item name='$FILE' summary='true' sign='true' seal='true'><object><file hosttype='msdos'
compression='none' flags='storedindoc' encoding='none' name='HD.txt' size='1049'
storagesize='814' desiredcompression='huffman'>
.....
<item name='$FILE' summary='true' sign='true' seal='true'><object><file hosttype='msdos'
compression='none' flags='storedindoc' encoding='none' name='HD.002.txt'
size='1049' storagesize='814' desiredcompression='huffman'>

[DOUBLEPOST=1437472362,1437472118][/DOUBLEPOST]я думаю лишним будет опять тыкать в LAX палочкой
[DOUBLEPOST=1437472449][/DOUBLEPOST]выложу еще версию через потоки (выложенная ранее, где-то здесь, база - в память ДХЛ грузит)

 

[lmike]

файл переименовать в 7z (на всяк случай - если не поймет 7z его)
[DOUBLEPOST=1437475763,1437475647][/DOUBLEPOST]куда выгружает - должен писать в джава консоль (по-моему - в каталог нотусни)
агент testSaxForFiles

 

[lmike]

в БД есть еще "увлекательные моменты" Crypto по ГОСТУ (без либ, только примеры) выгрузка выделенных доков как ДХЛ, в корень диска, то что обсуждали с @k85 , ну и примитивная либа обработки ошибок (кот. присут. в кусках моего кода здесь)
[DOUBLEPOST=1437476388,1437476281][/DOUBLEPOST]еще XSLT - тоже здесь обсуждалось - получение опред. нод из хмл

 

[JohnLemon]

А так o.Source?

Спасибо, Действительно спасло! )