It Is Attached
There are a buch of ocx's and a bas file missing from your zip file but I think this is your problem. Add the highlighted code to Form6. VB Code: Private Sub File1_Click() Dim Path1 As String Dim load1 As String load1 = Text1.Text Path1 = Dir1.Path [HL="#FFFF80"]If Not (Right$(Dir1.Path, 1) = "\") Then Path1 = Dir1.Path & "\" End If[/HL] Text1.Text = Path1 & File1.FileName End Sub
Private Sub File1_Click() Dim Path1 As String Dim load1 As String load1 = Text1.Text Path1 = Dir1.Path [HL="#FFFF80"]If Not (Right$(Dir1.Path, 1) = "\") Then Path1 = Dir1.Path & "\" End If[/HL] Text1.Text = Path1 & File1.FileName End Sub
Tips, Examples & Tutorials: A valuable forum tool • Generate unique TreeView keys • TreeView with "open" and "closed folder" icons • Time code using GetTickCount • How to trap the Tab key • Scroll a form • NumberBox ActiveX control • Color a ListView row • An InputBox form • How to use SaveSetting and GetSetting • A program registration scheme • Spellcheck a Textbox • Resize controls • Open Windows Explorer at Last Visited Path • A Blackjack Game • Count lines of code • Private Message Viewer • Copy/Paste VB Code • Paste VB Code Add-In • Insert Procedure Names Add-In • A calculator for the game of Spider • My review of REALbasic 2008 • VB6 Debug Tutorial • Picture/Video Viewer • VBF Photo Contest Winners 2009 - 2016
Forum Rules
Reply With Quote
2009 - 2016