Thread: Find name of 'My computer'?
View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Charlotte E.[_3_] Charlotte E.[_3_] is offline
external usenet poster
  
Posts: 160
Default Find name of 'My computer'?
BINGO :-)

Thanks...

CE

Den 01.05.2012 16:00, Adrian C skrev:
Const MY_COMPUTER = &H11&

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
msgbox objFolderItem.Name
Reply With QuoteReply With Quote