opening and saving files using FSO

[bas]

Hi!
I was wondering if any one can tell
me how I can open & save files from a floppy
using filesystemobject or otherwise.
The pgm calls for saving each line in a listbox and opening it again to demonstrate opening and saving files.I have a hard time understanding that chapter.I have the program
setup where a user can click on the OPEN or SAVE button and a new form loads with 3 controls 1)drive control 2)dir control 3)file control. After this point everything else is greek to me
THANKS .
THANKS.

[Serge]

First add a reference to Microsoft Scripting Runtime Library.

To open file and show it in a textbox (don't forget to set the MultiLine property to True)

    Dim oFSO As New FileSystemObject
    Dim oFile As Object
    
    Set oFile = oFSO.OpenTextFile("F:\Test.txt", ForReading, False, TristateUseDefault)
    Text1.Text = oFile.ReadAll

To save the contents of the textbox to a file:

    Dim oFSO As New FileSystemObject
    Dim oFile As Object
    
    Set oFile = oFSO.OpenTextFile("F:\Test2.txt", ForWriting, TristateUseDefault)
    oFile.Write Text1.Text

------------------

Serge

Software Developer
[email protected]
[email protected]
ICQ#: 51055819