• Home
 · 
• String Manipulation
 · 
• Easy way to put together directory and filename in the click even of the 'File1' control

Easy way to put together directory and filename in the click even of the 'File1' control

Easy way to put together directory and filename in the click even of the 'File1' control

Rate Easy way to put together directory and filename in the click even of the 'File1' control

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'1 dirdistdox and 1 dilelistbox
'leave there names as default names.

private sub drive1_change()
on error resume next
    dir1.path = drive1.drive
end sub

private sub dir1_change()
    file1.path = dir1.path
end sub

private sub file1_click()
'RELIVENT CODE:
    dim readystring as string
    if right$(dir1.path,1) = "\" then 'determine weather thers a "\" at the end of the dir1 path
        readystring = dir1.path & file1.filename
    else
        readystring = dir1.path & "\" & file1.filename
    end if
msgbox readystring
end sub