Programming Forums > Application Development > Visual Basic

Indigno · Feb 8th, 2006, 7:06 PM

I am making a little text encryption tool. The problem I have is that I don't know how to make the little open/ save window pop up and let me visually select where to open and save files to and from. Can someone tell me how to do that?

pal121 · Feb 12th, 2006, 6:27 AM

i have the code, this would be an example with 2 command buttons, one textbox and you need to add the component Microsoft Common Dialog Control 6.0

opening files:

(Toggle Plain Text)

Private Sub cmdopen_Click()
 
Dim filelocation As String
 
' show open box
    commondialog1.ShowOpen
    
    filelocation = commondialog1.FileName
 
' input files into text1.text   
    Open filelocation For Input As #1
    
Do Until EOF(1)
 
        Input #1, Data
        text1.text = text1.text + Data + vbNewLine
    EOF (1)
    Loop
    Close #1
    
End Sub

saving files:

(Toggle Plain Text)

Private Sub cmdsave_Click()
 
Dim filelocation As String
 
' loads save as box
    commondialog1.ShowSave
    
    filelocation = commondialog1.FileName
    
' append saves over file if it assists
    Open filelocation For Append As #1
        Print #1, text1.text
    Close #1
 
End Sub

Feb 12th, 2006, 6:27 AM	#2
pal121 Newbie Join Date: Feb 2006 Location: Bedford Posts: 2 Rep Power: 0	i have the code, this would be an example with 2 command buttons, one textbox and you need to add the component Microsoft Common Dialog Control 6.0 opening files: (Toggle Plain Text) Private Sub cmdopen_Click() Dim filelocation As String ' show open box commondialog1.ShowOpen filelocation = commondialog1.FileName ' input files into text1.text Open filelocation For Input As #1 Do Until EOF(1) Input #1, Data text1.text = text1.text + Data + vbNewLine EOF (1) Loop Close #1 End Sub Private Sub cmdopen_Click() Dim filelocation As String ' show open box commondialog1.ShowOpen filelocation = commondialog1.FileName ' input files into text1.text Open filelocation For Input As #1 Do Until EOF(1) Input #1, Data text1.text = text1.text + Data + vbNewLine EOF (1) Loop Close #1 End Sub saving files: (Toggle Plain Text) Private Sub cmdsave_Click() Dim filelocation As String ' loads save as box commondialog1.ShowSave filelocation = commondialog1.FileName ' append saves over file if it assists Open filelocation For Append As #1 Print #1, text1.text Close #1 End Sub Private Sub cmdsave_Click() Dim filelocation As String ' loads save as box commondialog1.ShowSave filelocation = commondialog1.FileName ' append saves over file if it assists Open filelocation For Append As #1 Print #1, text1.text Close #1 End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Feb 8th, 2006, 7:06 PM	#1
Indigno Professional Programmer Join Date: Dec 2005 Location: Anywhere non-productive Posts: 267 Rep Power: 0	Encryption Program I am making a little text encryption tool. The problem I have is that I don't know how to make the little open/ save window pop up and let me visually select where to open and save files to and from. Can someone tell me how to do that?

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Application Development > Visual Basic

Encryption Program