Binary Files - easy question !(resolved)

[NewbAl]

Hi again,

I am currently learning how to use binary files.

I have been given an example which is a basic text editor which works fine.

What i don't understand is "How does the program know where to store the saved file on my pc and where will that be ?"

Code is below

Private Sub mnuFileNew_Click()
txtDoc = ""
End Sub

Private Sub mnuFileOpen_Click()
Dim sText As String, sFileName As String
Dim iFileNum As Integer

'Get the filename to open
sFileName = InputBox("File name", "Open")
iFileNum = FreeFile 'Get the next free file number

Open sFileName For Binary As iFileNum
sText = Space(LOF(iFileNum)) 'Create a dummy string to hold the text
Get iFileNum, , sText 'Load the text from the file
txtDoc = sText
Close iFileNum

End Sub

Private Sub mnuFileSaveAs_Click()
Dim sText As String, sFileName As String
Dim iFileNum As Integer

sFileName = InputBox("File name", "Save")
iFileNum = FreeFile

Open sFileName For Binary As iFileNum
sText = txtDoc
Put iFileNum, , sText 'Save the text to the file
Close iFileNum

End Sub

[Cimperiali]

'Trick is here:
'this to read
sFileName = InputBox("File name", "Open")
'this to write
sFileName = InputBox("File name", "Save")
'if you answer to the input box
' "c:\temp\myfile.txt"
'it will be opened (or saved) in c:\temp
'If you answer only "myfile.txt"
'it will be saved in the working directory
'which may be the one where exe is, but also
'the one where a shortcut is...or somewhere
'else - the working (=current) dir
'Matter is: I did not see the code to take care oof non-existing
folders. Thus you may be forced to answer with a correct path, if you do not want to let it use the default (eworking) folder....

[NewbAl]

Thankyou very much Cimperiali