Notim to go through that lot.
Here is a way of getting the DeskTop folder of a machine :-
Code:
--------------------
Sub test()
'- using WinScript
Set objShell = CreateObject("WScript.Shell")
MyDeskTop = objShell.SpecialFolders.Item("DeskTop")
MsgBox (MyDeskTop)
End Sub
--------------------
--
BrianB
------------------------------------------------------------------------
BrianB's Profile:
http://www.excelforum.com/member.php...info&userid=55
View this thread:
http://www.excelforum.com/showthread...hreadid=387912