1

ディレクトリ選択ダイアログを表示する次のコードがあります

Function selectOutputFolder(lastPath As String) As String
    Const BIF_NEWDIALOGSTYLE = &H00000040
    Dim objShell As Variant
    Dim objFolder As Variant
    Dim objFolderItem As Variant
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0, "Choose a directory", BIF_NEWDIALOGSTYLE, lastPath)
    If Not (objFolder Is Nothing) Then
        Set objFolderItem = objFolder.Self
        selectOutputFolder = objFolderItem.Path 
    End If
End Function

BrowseForFolderディレクトリトラバーサルの制限であり、開いたときにこのフォルダーにジャンプしないようにするための4番目のパラメーターをいじっていました。

これは lotus スクリプト エージェントに実装されているので、vba または lotusscript で代替手段を知っている場合はお知らせください。

4

1 に答える 1

3

LotusScript には、NotesUIWorkspace クラスの SaveFileDialog メソッドを使用してこれを行う「標準的な」方法があります。

'...your sub goes around this
Dim ws as New NotesUIWorkspace
Dim varPaths as Variant
varPaths = ws.SaveFileDialog(  True  , "Choose file" , "" , lastPath )
If not isEmpty( varPaths ) then
  selectOutputFolder = varPaths(0)
End If
于 2013-05-27T09:00:13.400 に答える