Very Computer

etc
I am trying to use the file system control ie
file.open pathname, mode, access, lock, reclength
-----------------------------
Private Sub Command1_Click()
Dim pth As String
pth = "c:\wmp\filetest\test2.txt"
File1.Open pth, 1, 1, 3, 32000
End Sub
-----------------------------
I keep getting an error (filname, dir name, or vol labe
syntax is incorrect)

Does any body have a code fragement for this?
What should the record length be ?
When in emulator mode does the pth start at the normal
windows dir or at the emulator dir?

Quote:> pth = "c:\wmp\filetest\test2.txt"
> I keep getting an error (filname, dir name, or vol labe
> syntax is incorrect)

At least, that's how it is with the pictures I load and the text file I read
in a current project.

Keld Laursen

Public Sub InitSettings()
Dim sf As File

    Set sf = MainForm.SetupFile
    On Error Resume Next
        Err = 0
        sf.Open "\My Documents\Lommebedrift.Set", fsModeInput, fsAccessRead,
fsLockRead
        If Err Then
            sf.Open "\My Documents\Lommebedrift.Set", fsModeOutput,
fsAccessWrite, fsLockWrite
            sf.LinePrint "-1"
            sf.Close
            CurrentRecNo = -1
        Else
            Err = 0
            CurrentRecNo = CLng(sf.LineInputString)
            If Err Then
                CurrentRecNo = 0
                IncRecNo ' For at skrive setupfilen!
            Else
            End If
            sf.Close
        End If
    On Error GoTo 0
    Set sf = Nothing
End Sub

Public Sub IncRecNo()
Dim sf As File
    Set sf = MainForm.SetupFile
    On Error Resume Next
        MainForm.ChkFile.Kill "\My Documents\Lommebedrift.Set"
        CurrentRecNo = CurrentRecNo - 1
        Err = 0
        sf.Open "\My Documents\Lommebedrift.Set", fsModeOutput,
fsAccessWrite, fsLockWrite
        sf.LinePrint CStr(CurrentRecNo)
        sf.Close
    On Error GoTo 0
End Sub

Keld Laursen