2014-03-04 40 views
1

打開Windows文件夾我用這個代碼來設置文檔場目錄地址:的Lotus Notes:使用@formula或腳本

Set objShell = CreateObject("Shell.Application") 
Set objFolder = objShell.BrowseForFolder(0, "Select destination folder", 0, "N:\") 
If Not (objFolder Is Nothing) Then 
    Set objFolderItem = objFolder.Self 
    Call uidoc.FieldSetText("arc_file",Cstr(objFolderItem.Path)) 
End If 

是否有打開的文件夾包含在「arc_file」字段的窗口的方法?

回答

1

試試這個

Dim x As Integer 
x=Shell("explorer /root, " & uidoc.FieldGetText("arc_file"),1) 
+0

它返回「意外:行尾;除外:表情」!在這行代碼 –

+1

我更新,再試一次,我與「 – adminfd

+0

完美的現在,它的工作取代'謝謝的! –