Public Function fGetShellNameSpace(ByVal vDir, ByRef sTitle)
Dim oShell32, oFolder
Set oShell32 = CreateObject("Shell.Application")
Set oFolder = objShell.NameSpace(vDir)
If (Not objFolder Is Nothing) then
sTitle = oFolder.Title
End If
set oFolder = Nothing
set oShell32 = Nothing
End function
Public Function fGetShellNameSpace(ByVal vDir, ByRef sTitle)
Dim oShell32, oFolder
Set oShell32 = CreateObject("Shell.Application")
Set oFolder = oShell32.NameSpace(vDir)
If (Not oFolder Is Nothing) then
sTitle = oFolder.Title
End If
set oFolder = Nothing
set oShell32 = Nothing
End function