Как пользователю указать путь для экспорта?

[wowa]

Call notesEmbeddedObject.ExtractFile( path$ )

Не хочу хардкодить путь. Нужно чтобы пользователь сам выбирал. Как это сделать?
Спасибо!

 

[hosm]

notesUIWorkspace.SaveFileDialog

 

[wowa]

OKEN , спасибо.
А я до этого пялился на этот notesUIWorkspace долго, но так и не нашел нужного )))

 

[wowa]

OKEN , можно задать парочку вопросов?

1) можно ли как-н по умолчанию получить папку "Мои документы" ? Я посмотрел путь, он очень сложный: C:\Documents and Settings\USER_NAME\My Documents
А если несколько пользователей работает за компом, что делать?

2) notesUIWorkspace.SaveFileDialog
Пользователь выбирает путь, например "C:/Template/"
Мне нужно кодом создать вложенную дополнительную папку , чтобы путь получился "C:/Template/20101227/"
Когда я делаю сохранение файла, получается ошибка "Notes error: File cannot be created"

Это из-за того, что вложенная папка не создана,. Как это можно избежать?

 

[nvyush]

2) MkDir

Добавлено

А если несколько пользователей работает за компом, что делать?

Они под одной виндовой учёткой работают?

 

[wowa]

nvy , спасибо

 

[wowa]

Они под одной виндовой учёткой работают?

Ну да, скорее всего...

 

[lmike]

Это из-за того, что вложенная папка не создана,. Как это можно избежать?

в java есть класс File, кот. создаёт путь и вложенные диры сразу (без гимора с MkDir)

			File baseDir = new File("c:\\examples\\embedding");
File outDir = new File(baseDir, "out");
outDir.mkdirs();

юзеровый путь получить - как два палцаабасфальт - %UserProfile%
прямыть у путе для файло казать %UserProfile%\My Documents\моёВиндовоеФайло.txt
в темпы пихается соответ. %TEMP%\моёВиндовоеФайло.txt
ежели темпы не переопределяли в системе - буить в юзеровых темпах

 

[wowa]

lmike, уууу , с джавой у меня хреново,
могу ли я как-н это прикрутить к моему LS агенту? ну там вызвать функцию из джава библиотеки? и т.д.?


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

 

[Omh]

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

Баян, Dir$

 

[turumbay]

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

Java way:

Uselsx "*javacon"
Function fileExists(fileName As String ) As Boolean
Dim jSession As JavaSession
Dim FileClass As JavaClass
Dim file As JavaObject

Set jSession = New JavaSession()
Set FileClass = jSession.GetClass("java/io/File")
Set file = FileClass.CreateObject("(Ljava/lang/String;)V", fileName)
fileExists = file.exists()
End Function

 

[nvyush]

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

link removed

Добавлено

могу ли я как-н это прикрутить к моему LS агенту? ну там вызвать функцию из джава библиотеки? и т.д.?

См. в справке дизайнера LS2J. turumbay уже и пример привёл.

 

[wowa]

Вроде разобрался, но все равно не получается правильно составить вот этот кусок:

File baseDir = new File(%UserProfile%//My Documents");

 

[wowa]

Надо ли что-то подключать?

 

[lmike]

%UserProfile% эта часть для виндового энвиронмента, слэши д.б. обратные (двойные)
и я не уверен - будет ли трансляция в системные вызовы (а без них не будет создаваться файл) - надо пробывать
в джава есть наборчик системных переменных

Ссылка скрыта от гостей

 

[wowa]

lmike , спасибо, вроде помогло

я сделал так:

return System.getProperty("user.home");

Оно возвращает:

C:\Documents and Settings\USER_NAME

Ну и дальше я дописываю Мои документы. Поправьте меня если тут что-то может быт ьне так

 

[nvyush]

Надо ли что-то подключать?

Uselsx "*javacon"

Вроде разобрался, но все равно не получается правильно составить вот этот кусок:

Как-то так:

Sub Initialize
Dim jSession As JavaSession
Dim FileClass As JavaClass
Dim userDir As JavaObject
Set jSession = New JavaSession()
Set FileClass = jSession.GetClass("java/io/File")
Set userDir = FileClass.CreateObject("(Ljava/lang/String;)V", "C:\\Docs\\tmp333")
Call userDir.mkdirs()
End Sub

 

[turumbay]

Ну и дальше я дописываю Мои документы. Поправьте меня если тут что-то может быт ьне так

не так может быть:
- английская версия винды: My Documents
- windows7: Documents ( могу ошибаца )

 

[wowa]

- английская версия винды: My Documents
- windows7: Documents ( могу ошибаца )

Спасибо...Надо проверить.......

 

[nvyush]

Попробуйте штатную временную папку явы. У меня выдаёт что-то вроде "C:\DOCUME~1\USERNAM~1\LOCALS~1\Temp\". Только слэши, возможно, придётся удвоить.

	Dim jSession As JavaSession
Dim sysClass As JavaClass
Dim jMeth As JavaMethod
Dim tmpDir As String
Set jSession = New JavaSession()
Set sysClass = jSession.GetClass("java/lang/System")
Set jMeth = sysClass.GetMethod("getProperty", "(Ljava/lang/String;)Ljava/lang/String;")
tmpDir = jMeth.Invoke(, "java.io.tmpdir")
Msgbox tmpDir