• Home
 · 
• Miscellaneous
 · 
• displaying file path in textbox and send it to picturebox to display pictures user must turn on mic

displaying file path in textbox and send it to picturebox to display pictures user must turn on mic

displaying file path in textbox and send it to picturebox to display pictures user must turn on microsoft scripting runtime that is shown

API Declarations


option explicit
dim msfo as new filesystemobject
dim thefile as file



Rate displaying file path in textbox and send it to picturebox to display pictures user must turn on mic

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

on error goto errorhandler
dir1.path = drive1.drive
errorhandler:
dim i as integer, j as integer
i = msgbox("INVALID DRIVE",vbokonly)
if j = vbokonly then
resume next
end if
end sub
private dir1.change()
file1.path = dir1.path
end sub
private file1.click()
on error goto errorhandler
set thefile = msfo(getfile(file1.path),file1.list(file1.listindex))
picture1.picture = loadpicture(thefile.path)
text1.text = thefile.path
errorhandler:
dim i as integer
i = msgbox("CHOOSE PICTURE FILE FARMAT ONLY")
resume next
end sub