Lotus Notes：使用@formula或脚本打开Windows文件夹

Question

我使用此代码设置带有目录地址的文档字段：

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”字段中包含的Windows文件夹？

Answer 1

试试这个

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