Code Mess !

[Ehtisham Ali]

Hi,

Anyone please explain below code.

DTAddress = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator

 

[Hui]

Run the following and look in the Immediate window (Ctrl+G if its not visible)

Sub h()

  DTAddress = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
  Debug.Print DTAdress
End Sub

It is a shortcut to retrieve the full directory path of the desktop

 

[NARAYANK991]

Hi Ali ,

See this link for more information :

http://technet.microsoft.com/en-us/library/ee176604.aspx

Narayan

 

[Ehtisham Ali]

Hi Ali ,

See this link for more information :

http://technet.microsoft.com/en-us/library/ee176604.aspx

Narayan

Thnks now I undrstand everything. Also the info is worth for my other codes.

 

[shrivallabha]

Useful when you want to access some user profile specific directories. There's one more similar function which you can check.

Sub GetEnv()
Dim i As Long
For i = 1 To 100
  If Len(Environ(i)) = 0 Then Exit For
  Debug.Print Environ(i)
Next i
End Sub

Shall give you computer environment variables.