[bbnimda]

Hi all,

I use custom form and I want to know how to manipulate simple file *.txt

I need 3 operations
1) check if xxx.txt exist
2) delete xxx.txt
3) save the content of listbox to xxx.txt

2nd step
load the content of xxx.txt to a listbox


tks
--

Archived from group: microsoft>public>outlook>program_forms

[Eric Legault [MVP - Outlo]

You can use the VBA.FileSystem.Dir function to check for the existence of a
file and VBA.FileSystem.Kill to delete files.

Here's a sample for reading from a file:

Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file for reading.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Read next character of data.
Debug.Print Seek(1) ' Print byte position to the
' Immediate window.
Loop
Close #1 ' Close file.

The Microsoft Scripting Library has a FileSystemObject class that can also
be used for file operations.

--
Eric Legault - Outlook MVP, MCDBA, MCTS (SharePoint programming, etc.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"bbnimda" wrote:

> Hi all,
>
> I use custom form and I want to know how to manipulate simple file *.txt
>
> I need 3 operations
> 1) check if xxx.txt exist
> 2) delete xxx.txt
> 3) save the content of listbox to xxx.txt
>
> 2nd step
> load the content of xxx.txt to a listbox
>
>
> tks
> --
>
>
>

[bbnimda]

It doesnt work

but I tryed FileSystemObject and found the way to Check if file exist
and delete it

here is my code
Set objFSO = CreateObject("Scripting.FileSystemObject")
if objfso.FileExists("C:\FSO\FileT.txt") then
objfso.DeleteFile "C:\FSO\FileT.txt"
else
.....
.....
.....
end if

But I still looking for a way to Create a new file and fill it and Save
it



"Eric Legault [MVP - Outlook]" a écrit dans
le message de news: 39080FB7-1BA7-46EE-91C1-1CCD96D3B87F@microsoft.com...
> You can use the VBA.FileSystem.Dir function to check for the existence of
> a
> file and VBA.FileSystem.Kill to delete files.
>
> Here's a sample for reading from a file:
>
> Dim MyChar
> Open "TESTFILE" For Input As #1 ' Open file for reading.
> Do While Not EOF(1) ' Loop until end of file.
> MyChar = Input(1, #1) ' Read next character of data.
> Debug.Print Seek(1) ' Print byte position to the
> ' Immediate window.
> Loop
> Close #1 ' Close file.
>
> The Microsoft Scripting Library has a FileSystemObject class that can also
> be used for file operations.
>
> --
> Eric Legault - Outlook MVP, MCDBA, MCTS (SharePoint programming, etc.)
> Try Picture Attachments Wizard for Outlook:
> http://www.collaborativeinnovations.ca
> Blog: http://blogs.officezealot.com/legault/
>
>
> "bbnimda" wrote:
>
>> Hi all,
>>
>> I use custom form and I want to know how to manipulate simple file
>> *.txt
>>
>> I need 3 operations
>> 1) check if xxx.txt exist
>> 2) delete xxx.txt
>> 3) save the content of listbox to xxx.txt
>>
>> 2nd step
>> load the content of xxx.txt to a listbox
>>
>>
>> tks
>> --
>>
>>
>>

[Eric Legault [MVP - Outlo]

Did you change "TESTFILE" to a valid file path?

You can also create a file with the FileSystemObject:

Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close

--
Eric Legault - Outlook MVP, MCDBA, MCTS (SharePoint programming, etc.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"bbnimda" wrote:

> It doesnt work
>
> but I tryed FileSystemObject and found the way to Check if file exist
> and delete it
>
> here is my code
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> if objfso.FileExists("C:\FSO\FileT.txt") then
> objfso.DeleteFile "C:\FSO\FileT.txt"
> else
> .....
> .....
> .....
> end if
>
> But I still looking for a way to Create a new file and fill it and Save
> it
>
>
>
> "Eric Legault [MVP - Outlook]" a écrit dans
> le message de news: 39080FB7-1BA7-46EE-91C1-1CCD96D3B87F@microsoft.com...
> > You can use the VBA.FileSystem.Dir function to check for the existence of
> > a
> > file and VBA.FileSystem.Kill to delete files.
> >
> > Here's a sample for reading from a file:
> >
> > Dim MyChar
> > Open "TESTFILE" For Input As #1 ' Open file for reading.
> > Do While Not EOF(1) ' Loop until end of file.
> > MyChar = Input(1, #1) ' Read next character of data.
> > Debug.Print Seek(1) ' Print byte position to the
> > ' Immediate window.
> > Loop
> > Close #1 ' Close file.
> >
> > The Microsoft Scripting Library has a FileSystemObject class that can also
> > be used for file operations.
> >
> > --
> > Eric Legault - Outlook MVP, MCDBA, MCTS (SharePoint programming, etc.)
> > Try Picture Attachments Wizard for Outlook:
> > http://www.collaborativeinnovations.ca
> > Blog: http://blogs.officezealot.com/legault/
> >
> >
> > "bbnimda" wrote:
> >
> >> Hi all,
> >>
> >> I use custom form and I want to know how to manipulate simple file
> >> *.txt
> >>
> >> I need 3 operations
> >> 1) check if xxx.txt exist
> >> 2) delete xxx.txt
> >> 3) save the content of listbox to xxx.txt
> >>
> >> 2nd step
> >> load the content of xxx.txt to a listbox
> >>
> >>
> >> tks
> >> --
> >>
> >>
> >>
>
>
>

[bbnimda]

Yes I all ready found "CreateTextFile" but still was looking for the way
to fill the file ( tks for Writeline )

Ok now I know how to create , fill and save a text file

Now I have to open an existing text file and get data from this file

Tks for help




"Eric Legault [MVP - Outlook]" a écrit dans
le message de news: 83C9CCF0-C79C-4D21-8DDC-50BF25A7BF66@microsoft.com...
> Did you change "TESTFILE" to a valid file path?
>
> You can also create a file with the FileSystemObject:
>
> Dim fso, MyFile
> Set fso = CreateObject("Scripting.FileSystemObject")
> Set MyFile= fso.CreateTextFile("c:\testfile.txt", True)
> MyFile.WriteLine("This is a test.")
> MyFile.Close
>
> --
> Eric Legault - Outlook MVP, MCDBA, MCTS (SharePoint programming, etc.)
> Try Picture Attachments Wizard for Outlook:
> http://www.collaborativeinnovations.ca
> Blog: http://blogs.officezealot.com/legault/
>
>
> "bbnimda" wrote:
>
>> It doesnt work
>>
>> but I tryed FileSystemObject and found the way to Check if file exist
>> and delete it
>>
>> here is my code
>> Set objFSO = CreateObject("Scripting.FileSystemObject")
>> if objfso.FileExists("C:\FSO\FileT.txt") then
>> objfso.DeleteFile "C:\FSO\FileT.txt"
>> else
>> .....
>> .....
>> .....
>> end if
>>
>> But I still looking for a way to Create a new file and fill it and
>> Save
>> it
>>
>>
>>
>> "Eric Legault [MVP - Outlook]" a écrit
>> dans
>> le message de news: 39080FB7-1BA7-46EE-91C1-1CCD96D3B87F@microsoft.com...
>> > You can use the VBA.FileSystem.Dir function to check for the existence
>> > of
>> > a
>> > file and VBA.FileSystem.Kill to delete files.
>> >
>> > Here's a sample for reading from a file:
>> >
>> > Dim MyChar
>> > Open "TESTFILE" For Input As #1 ' Open file for reading.
>> > Do While Not EOF(1) ' Loop until end of file.
>> > MyChar = Input(1, #1) ' Read next character of data.
>> > Debug.Print Seek(1) ' Print byte position to the
>> > ' Immediate window.
>> > Loop
>> > Close #1 ' Close file.
>> >
>> > The Microsoft Scripting Library has a FileSystemObject class that can
>> > also
>> > be used for file operations.
>> >
>> > --
>> > Eric Legault - Outlook MVP, MCDBA, MCTS (SharePoint programming, etc.)
>> > Try Picture Attachments Wizard for Outlook:
>> > http://www.collaborativeinnovations.ca
>> > Blog: http://blogs.officezealot.com/legault/
>> >
>> >
>> > "bbnimda" wrote:
>> >
>> >> Hi all,
>> >>
>> >> I use custom form and I want to know how to manipulate simple file
>> >> *.txt
>> >>
>> >> I need 3 operations
>> >> 1) check if xxx.txt exist
>> >> 2) delete xxx.txt
>> >> 3) save the content of listbox to xxx.txt
>> >>
>> >> 2nd step
>> >> load the content of xxx.txt to a listbox
>> >>
>> >>
>> >> tks
>> >> --
>> >>
>> >>
>> >>
>>
>>
>>

[Eric Legault [MVP - Outlo]

This might come in handy:

VBScript Language Reference:
http://msdn2.microsoft.com/en-us/library/d1wf56tt.aspx

--
Eric Legault - Outlook MVP, MCDBA, MCTS (SharePoint programming, etc.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"bbnimda" wrote:

> Yes I all ready found "CreateTextFile" but still was looking for the way
> to fill the file ( tks for Writeline )
>
> Ok now I know how to create , fill and save a text file
>
> Now I have to open an existing text file and get data from this file
>
> Tks for help
>
>
>
>
> "Eric Legault [MVP - Outlook]" a écrit dans
> le message de news: 83C9CCF0-C79C-4D21-8DDC-50BF25A7BF66@microsoft.com...
> > Did you change "TESTFILE" to a valid file path?
> >
> > You can also create a file with the FileSystemObject:
> >
> > Dim fso, MyFile
> > Set fso = CreateObject("Scripting.FileSystemObject")
> > Set MyFile= fso.CreateTextFile("c:\testfile.txt", True)
> > MyFile.WriteLine("This is a test.")
> > MyFile.Close
> >
> > --
> > Eric Legault - Outlook MVP, MCDBA, MCTS (SharePoint programming, etc.)
> > Try Picture Attachments Wizard for Outlook:
> > http://www.collaborativeinnovations.ca
> > Blog: http://blogs.officezealot.com/legault/
> >
> >
> > "bbnimda" wrote:
> >
> >> It doesnt work
> >>
> >> but I tryed FileSystemObject and found the way to Check if file exist
> >> and delete it
> >>
> >> here is my code
> >> Set objFSO = CreateObject("Scripting.FileSystemObject")
> >> if objfso.FileExists("C:\FSO\FileT.txt") then
> >> objfso.DeleteFile "C:\FSO\FileT.txt"
> >> else
> >> .....
> >> .....
> >> .....
> >> end if
> >>
> >> But I still looking for a way to Create a new file and fill it and
> >> Save
> >> it
> >>
> >>
> >>
> >> "Eric Legault [MVP - Outlook]" a écrit
> >> dans
> >> le message de news: 39080FB7-1BA7-46EE-91C1-1CCD96D3B87F@microsoft.com...
> >> > You can use the VBA.FileSystem.Dir function to check for the existence
> >> > of
> >> > a
> >> > file and VBA.FileSystem.Kill to delete files.
> >> >
> >> > Here's a sample for reading from a file:
> >> >
> >> > Dim MyChar
> >> > Open "TESTFILE" For Input As #1 ' Open file for reading.
> >> > Do While Not EOF(1) ' Loop until end of file.
> >> > MyChar = Input(1, #1) ' Read next character of data.
> >> > Debug.Print Seek(1) ' Print byte position to the
> >> > ' Immediate window.
> >> > Loop
> >> > Close #1 ' Close file.
> >> >
> >> > The Microsoft Scripting Library has a FileSystemObject class that can
> >> > also
> >> > be used for file operations.
> >> >
> >> > --
> >> > Eric Legault - Outlook MVP, MCDBA, MCTS (SharePoint programming, etc.)
> >> > Try Picture Attachments Wizard for Outlook:
> >> > http://www.collaborativeinnovations.ca
> >> > Blog: http://blogs.officezealot.com/legault/
> >> >
> >> >
> >> > "bbnimda" wrote:
> >> >
> >> >> Hi all,
> >> >>
> >> >> I use custom form and I want to know how to manipulate simple file
> >> >> *.txt
> >> >>
> >> >> I need 3 operations
> >> >> 1) check if xxx.txt exist
> >> >> 2) delete xxx.txt
> >> >> 3) save the content of listbox to xxx.txt
> >> >>
> >> >> 2nd step
> >> >> load the content of xxx.txt to a listbox
> >> >>
> >> >>
> >> >> tks
> >> >> --
> >> >>
> >> >>
> >> >>
> >>
> >>
> >>
>
>
>

[bbnimda]

Tks a lot Eric,

Now my form is working perfectly

Bye

"Eric Legault [MVP - Outlook]" a écrit dans
le message de news: EEC21795-E667-4AA7-9461-5FC75C4F5837@microsoft.com...
> This might come in handy:
>
> VBScript Language Reference:
> http://msdn2.microsoft.com/en-us/library/d1wf56tt.aspx
>
> --
> Eric Legault - Outlook MVP, MCDBA, MCTS (SharePoint programming, etc.)
> Try Picture Attachments Wizard for Outlook:
> http://www.collaborativeinnovations.ca
> Blog: http://blogs.officezealot.com/legault/
>
>
> "bbnimda" wrote:
>
>> Yes I all ready found "CreateTextFile" but still was looking for the
>> way
>> to fill the file ( tks for Writeline )
>>
>> Ok now I know how to create , fill and save a text file
>>
>> Now I have to open an existing text file and get data from this file
>>
>> Tks for help
>>
>>
>>
>>
>> "Eric Legault [MVP - Outlook]" a écrit
>> dans
>> le message de news: 83C9CCF0-C79C-4D21-8DDC-50BF25A7BF66@microsoft.com...
>> > Did you change "TESTFILE" to a valid file path?
>> >
>> > You can also create a file with the FileSystemObject:
>> >
>> > Dim fso, MyFile
>> > Set fso = CreateObject("Scripting.FileSystemObject")
>> > Set MyFile= fso.CreateTextFile("c:\testfile.txt", True)
>> > MyFile.WriteLine("This is a test.")
>> > MyFile.Close
>> >
>> > --
>> > Eric Legault - Outlook MVP, MCDBA, MCTS (SharePoint programming, etc.)
>> > Try Picture Attachments Wizard for Outlook:
>> > http://www.collaborativeinnovations.ca
>> > Blog: http://blogs.officezealot.com/legault/
>> >
>> >
>> > "bbnimda" wrote:
>> >
>> >> It doesnt work
>> >>
>> >> but I tryed FileSystemObject and found the way to Check if file
>> >> exist
>> >> and delete it
>> >>
>> >> here is my code
>> >> Set objFSO = CreateObject("Scripting.FileSystemObject")
>> >> if objfso.FileExists("C:\FSO\FileT.txt") then
>> >> objfso.DeleteFile "C:\FSO\FileT.txt"
>> >> else
>> >> .....
>> >> .....
>> >> .....
>> >> end if
>> >>
>> >> But I still looking for a way to Create a new file and fill it and
>> >> Save
>> >> it
>> >>
>> >>
>> >>
>> >> "Eric Legault [MVP - Outlook]" a écrit
>> >> dans
>> >> le message de news:
>> >> 39080FB7-1BA7-46EE-91C1-1CCD96D3B87F@microsoft.com...
>> >> > You can use the VBA.FileSystem.Dir function to check for the
>> >> > existence
>> >> > of
>> >> > a
>> >> > file and VBA.FileSystem.Kill to delete files.
>> >> >
>> >> > Here's a sample for reading from a file:
>> >> >
>> >> > Dim MyChar
>> >> > Open "TESTFILE" For Input As #1 ' Open file for reading.
>> >> > Do While Not EOF(1) ' Loop until end of file.
>> >> > MyChar = Input(1, #1) ' Read next character of data.
>> >> > Debug.Print Seek(1) ' Print byte position to the
>> >> > ' Immediate window.
>> >> > Loop
>> >> > Close #1 ' Close file.
>> >> >
>> >> > The Microsoft Scripting Library has a FileSystemObject class that
>> >> > can
>> >> > also
>> >> > be used for file operations.
>> >> >
>> >> > --
>> >> > Eric Legault - Outlook MVP, MCDBA, MCTS (SharePoint programming,
>> >> > etc.)
>> >> > Try Picture Attachments Wizard for Outlook:
>> >> > http://www.collaborativeinnovations.ca
>> >> > Blog: http://blogs.officezealot.com/legault/
>> >> >
>> >> >
>> >> > "bbnimda" wrote:
>> >> >
>> >> >> Hi all,
>> >> >>
>> >> >> I use custom form and I want to know how to manipulate simple file
>> >> >> *.txt
>> >> >>
>> >> >> I need 3 operations
>> >> >> 1) check if xxx.txt exist
>> >> >> 2) delete xxx.txt
>> >> >> 3) save the content of listbox to xxx.txt
>> >> >>
>> >> >> 2nd step
>> >> >> load the content of xxx.txt to a listbox
>> >> >>
>> >> >>
>> >> >> tks
>> >> >> --
>> >> >>
>> >> >>
>> >> >>
>> >>
>> >>
>> >>
>>
>>
>>