LiveCode Forums.

Code: Select all

...
set the defaultFolder to  specialfolderpath("engine")
...
put "DefaultFolder: " & return & the defaultFolder & return after fld "FileContents"  
...

Code: Select all

set the defaultFolder to  specialfolderpath("engine")

Code: Select all

set the defaultFolder to  specialfolderpath("documents")

Code: Select all

-- This was working for me before moving to Basic4Android
-- My coding is meant only for and is sufficient for me - not some non-existant party who will never review my code
-- this is just a snippit of a much larger app
-- please accept this as a place to start and not a solution

on mouseUp

  if label of button cmdOk  = "Save" then
      
      put the dgDataOfIndex [Field lblPreviousSelection] of group dgAudio  into theDataA
      
      put field lblWhichSound into tWhichSound
      put theDataA["Name"] into tName
      put theDataA["Path"] into tPath
      
      put "myAPP - preferences.txt" into theFileName
      
      set the itemDelimiter to space
      
      put GetAppFolder() into tAppPath -- this be where the installed files are for me installed app - n the Copy Files from Stadalone app Settings 
      put GetDocFolder() into tDocPath -- this be where me updated data and MyPreferences files be when I save data or save preferences
      
      Put tDocPath  & slash & "preferences" into theFolderAndFileName
      
      if there is a folder theFolderAndFileName then
         -- do nothing
      else
         create folder theFolderAndFileName
      end if
      
      Put theFolderAndFileName  & slash  & theFileName into theFolderAndFileName
      
      if there is NOT a file theFolderAndFileName then
         put "Sound" & tab & "Interval" & return & "Sound" & tab & "Finish" & return into theData
         put theData into url ("file:" & theFolderAndFileName)
      end if
      
      put url ("file:" & theFolderAndFileName) into theData
      
      put lineOffset(tWhichSound,theData) into tWhichLine
      
      put "Sound" & tab & tWhichSound & tab & tName &tab & tPath into linUpdateLine
      put linUpdateLine into line tWhichLine of theData
      
      put theData into url ("file:" & theFolderAndFileName)
      
      
      go to card iSettings
      send "openCard" to card iSettings
      
end if


Function GetAppFolder -- tAppPath
   
   -- SpecialFolderPath (Documents) folder DOES exist on environment win32
   --    But I DON'T want to use the documents path on environment win32
   -- 
   -- I want to use the applications subfolders Doco and Vids on Environment win32
   -- 
   -- SpecialFolderPath(Engine) DOES NOT exits on environment win32
   --   set the defaultFolder to specialFolderPath("engine")
   --   answer the result
   --         on win32 returns: can't open directory
   --
   -- SpecialFolderPath(Engine) is for Android and iOS
   --     the Android installer package saves READ ONLY in the Engine Folder
   --     you can include extra folders with the files contained within the folders 
   --     using Copy Files dialog in StandAlone settings
   
   
   -- get the file path for this stack
   
   -- the effective filename of this stack if the FULL FOLDERnFILENamePath
   put the effective filename of this stack into tPath   
   set the itemDelimiter to slash
   
   if the platform = "MacOS" and the environment = "standalone application" then
      -- if this is a standalone application running on a Mac, find the path to the .app file
      repeat until last item of tPath contains ".app"
         delete last item of tPath 
      end repeat
   end if
   
   
   if the platform = "win32" and the environment = "standalone application" then
      put the effective filename of this stack into tPath
      set the itemDelimiter to slash
   end if
   
   if the platform = "win32" and the environment = "development" then
      put the effective filename of this stack into tPath
      set the itemDelimiter to slash
   end if
   
   if the platform = "android" and the environment = "mobile" then
      set the defaultFolder to specialFolderPath("engine")
      put defaultFolder into tPath
      if character -1 in tPath is slash then delete character -1 of tPath
      Return tPath
   end if
   
   
   -- remove the last item to get the path to the containing folder
   delete last item of tPath
   
   Return tpath
   
end GetAppFolder


Function GetDocFolder
   
   
   -- get the file path for this stack
   put the effective filename of this stack into tPath
   set the itemDelimiter to slash
   
   if the platform = "MacOS" and the environment = "standalone application" then
      -- if this is a standalone application running on a Mac, find the path to the .app file
      repeat until last item of tPath contains ".app"
         delete last item of tPath
      end repeat
   end if
   
   
   if the platform = "win32" and the environment = "standalone application" then
      put the effective filename of this stack into tPath
      set the itemDelimiter to slash
   end if
   
   if the platform = "win32" and the environment = "development" then
      put the effective filename of this stack into tPath
      set the itemDelimiter to slash
   end if
   
   if the platform = "android" and the environment = "mobile" then
      set the defaultFolder to specialFolderPath("documents")
      put defaultFolder into tPath
      if character -1 in tPath is slash then delete character -1 of tPath
      Return tPath
   end if
   
   
   -- remove the last item to get the path to the containing folder
   delete last item of tPath
   
   Return tpath
   
end GetDocFolder