Te lo scrivo così al volo, non ho modo di verificarlo ora:
Dim procs as Process() = Process.GetProcessesByName("explorer.exe")
If procs.Length > 0
Dim fullPath As String = procs(0).MainModule.FileName
' Questo è quello che vuoi tu:
Dim directory as String = Path.GetDirectoryName(fullPath)
End If
Se ci sono problemi fammi sapere
Luca