code to create a file?

[2000a]

What is the code to create a file in a given folder? (ex: c:\myfiles\)

Thank you :::

[Jop]

Open FILENAME for Output As #1
Close #1

Or use the CreateFile (or OpenFile) api.

[Chris]

Other tahn Output, you also can open the as Append, Binary and Random. Juz depand on what and how you want to save the data into it.

Cheers!

[PJB]

here's the code to write a txt if it helps, someone posted it here for me at one point, forget who but thanks:

'writing or reading data to or from a text file
'open for append adds the data to the end of file
'open for input opens the file for read only
'open for output opens the file and overwrites the file
'
'
Private Sub Command1_Click()

'this is the number of your file
Dim intFilenum As Integer

'set it to the next available free number
intFilenum = FreeFile

'this is your filename
Dim strFile As String
strFile = "A:\myfile.txt"

'this is the text you want to save (textbox)
Dim strText As String
strText = Text1.Text

'open the file for writing to as next freefile number

Open strFile For Append As intFilenum  'see above options
'write to the file
    Write #intFilenum, strText  'to read use  [input #filenum,strtext]

'close the file
Close intFilenum
    
End Sub

[Chris]

PJB, You can do it without the FreeFile.

Open strFile For Append As #1
   Print #1, strText
Close #1

[Knut]

Chris, you have a quarrel with FreeFile?

[Chris]

Noop! Knut, Juz wish to let others know that it can be done with it. So we can declare less and make the code more efficient and a smaller EXE filesize.

Cheers!

Originally posted by Knut
Chris, you have a quarrel with FreeFile?

[Knut]

Just been asking since I believe yesterday or so you seemed to stress that as well...

I'm sort of in the habit of using FreeFile even though i rarely work with more than 6 or 7 files at the same time in my apps...

The older you get, the more you stick to habits even if there's no obvious need...

While becoming philosophical: Just because MS creates a function, that doesen't mean it has to be used!

(Now, there's a 180 degree turn...)

[Chris]

Perhaps is no. 'coz we must always think that we can't
learn all the think in the world and we always learning new stuff from day to day.

Yet new things always improve the old things, else I don't
see there is a need to create a new thing without improving as compare to the old version.

Is there is a good things why we not give a try and why should it stick to the old and unefficient way? Hah...

[Knut]

Is there is a good things why we not give a try and why should it stick to the old and unefficient way? Hah...

That's the point!

[PJB]

don't recall exactly saying it was the best, most efficient or only way of doing it, so whatever