Visual Basic Codes

Visual Basic > API and Miscellaneous sample source codes

Open any thing ...DOS ...FOLDER.. RUN a program and more

Open any thing ...DOS ...FOLDER.. RUN a program and more

'You will need a buttons named : 
'1:- Dos
'2:- Folder
'3:- Run
'4:- Explorer

'You will need a textBox named: text1

Private sub Dos_click()
on error goto hell
dim aa
aa=Shell ("command.com /c " + Text1.Text, vbNormalFocus)
exit sub
hell:
msgbox err.Description 

end sub

private sub folder_click()
on error got err
dim bb
bb=shell("Explorer "+text1.text,1)
exit sub
err:
msgbox err.Description 
end sub

private sub Run_click()
on error goot err
dim cc
cc=shell(text1.text,1)
exit sub
err:
msgbox err.Description 
end sub

private sub Explorer_click()
shell"explorer"
end sub

Privacy Policy | Link to Us | Links