Save As help

[takamine334]

I've searched for this but I can't find it:

I have a listbox with numbers and I just want to save them when the user clicks Save_Click() as a SAVE AS function. I've used this, but I get errors:

Private Sub Command2_Click()
 
With CommonDialog1  'open a with statement as there is a lot of code
     .DialogTitle = "Save"  'sets the dialog title
     .InitDir = "C:\"  'sets the initial directory
     .Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"  'sets the file
     'types
 
     .ShowSave  'show the dialog
End With
 
List2.SaveAs CommonDialog1.FileName  'save to the specified file
 
End Sub

[Andrew G]

Listboxes don't have a save command and hence you need to loop through the items to print them out individally.

With CommonDialog1  'open a with statement as there is a lot of code
     .DialogTitle = "Save"  'sets the dialog title
     .InitDir = "C:\"  'sets the initial directory
     .Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"  'sets the file
     'types
 
     .ShowSave  'show the dialog
End With
 
Open CommonDialog1.FileName For Output As #1
    For x = 0 To List2.ListCount
        Print #1, List2.List(x)
    Next
Close #1

[RhinoBull]

Listboxes don't have any "SaveAs" methods - you have to do it yourself:

Private Sub Command2_Click()
Dim i%
 
    Open App.Path & "\numbers.txt" For Output As #1
        For i = 0 To List1.ListCount - 1
            Print #1, List1.List(i)
        Next i
    Close #1
 
End Sub

[takamine334]

great, works great. Thanks guys.