Sub sp_Storage_ItemClick (Position As Int, Value As Object)
GPSDir = Value
End Sub
Sub write_data
If File.Exists(GPSDir, "Test.txt") = False Then
Writer.Initialize(File.OpenOutput(GPSDir, "Test.txt", True))
Writer.WriteLine("Textline")
Writer.close
End If
End Sub