by Faris Mlaeb (7 Submissions)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 13th June 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This code will open the newwork folder and my computer + Recycle Bin with one command line only.
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
No comments have been posted about This code will open the newwork folder and my computer + Recycle Bin with one command line only.. Why not be the first to post a comment about This code will open the newwork folder and my computer + Recycle Bin with one command line only..