Here is a code snippet to allow the user to view a directory on a windows machine.

Dim uiw As New notesuiworkspace
Dim uidoc As notesuidocument
Set uidoc = uiw.currentdocument
If uidoc.fieldgettext("Directory")="" Then
 Msgbox "Please set up a Directory first."
 End
End If
Dim taskId As Integer
Print "Loading Windows explorer ... to " & uidoc.fieldgettext("Directory")
taskId% = Shell("EXPLORER.EXE " & uidoc.fieldgettext("Directory") , 1)