• Home
 · 
• Windows System Services
 · 
• This code will open the newwork folder and my computer + Recycle Bin with one command line only.

This code will open the newwork folder and my computer + Recycle Bin with one command line only.

This code will open the newwork folder and my computer + Recycle Bin with one command line only.

Rate This code will open the newwork folder and my computer + Recycle Bin with one command line only.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

on Error goto Err
Dim aa
aa=Shell("Explorer ::{208D2C60-3AEA-1069-A2D7-08002B30309D}",1)
exit sub
err:
Msgbox err.Description


____________________________________________

'This command will open my computer folder as a same as of double click from the desktop


on error goto err
Dim bb
bb=shell("Explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}",1)
Exit sub
err:
Msgbox err.Description

___________________________________________________

'This command will open my Recycle Bin folder as a same as of double click from the desktop


on error goto err
Dim bb
bb=shell("Explorer ::{645FF040-5081-101B-9F08-00AA002F954E}",1)
Exit sub
err:
Msgbox err.Description

_______________________________________________________________
'This command will open the Scheduled Tasks folder

on error goto err
Dim bb
bb=shell("Explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{D6277990-4C6A-11CF-8D87-00AA0060F5BF}",1)
Exit sub
err:
Msgbox err.Description