#Region Project Attributes
#AutoFlushLogs: True
#CheckArrayBounds: True
#StackBufferSize: 1000
#End Region
Sub Process_Globals
Public Serial1 As Serial
Private fs As ESP8266FileSystem
Private myFile As String = "myFiles/file1"
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Delay(1000)
Log("AppStart")
Start
End Sub
Sub Start
If(fs.initialize) Then
Log(" file system successfully initialized")
Else
Log("could not initialize filesystem")
End If
WriteFile
Readfile
ListFiles
End Sub
Sub WriteFile
If (fs.OpenReadWrite(myFile)) Then
Log("file successfyully openend for write processing")
Private buffer(10) As Byte ="1234567890".GetBytes
Log("Bytes written: ", fs.Stream.WriteBytes(buffer,0,buffer.Length))
Log("file system total size ", fs.TotalSize)
Log("file system used size ", fs.UsedSize)
Log("file size ", fs.CurrentFile.size)
fs.Close
End If
End Sub
Sub Readfile
If (fs.OpenRead(myFile)) Then
Log("file successfyully openend for read processing")
Log("file name ", fs.CurrentFile.Name)
Log("file size ", fs.CurrentFile.size)
fs.Position=0
Private buffer(10) As Byte
Log ("number of bytes read: ", fs.Stream.ReadBytes(buffer,0,buffer.Length))
Log("position after reading file: ", fs.Position)
Private conv As ByteConverter
Log("data read: ", conv.StringFromBytes(buffer))
fs.Close
Else
Log("cannot open file for read: ", myFile)
End If
End Sub
Sub ListFiles
For Each f As File In fs.ListFiles("/")
Log("Name: ", f.Name, ", Size: ", f.Size)
Next
End Sub