Changeset 186 for trunk/lingosource/castlib2/FileIOFunktionen.ls

Timestamp:

09/17/08 20:50:38 (4 years ago)

Author:

alex

Message:

incorporated changes to library scripts

File:

• trunk/lingosource/castlib2/FileIOFunktionen.ls (modified) (3 diffs)

trunk/lingosource/castlib2/FileIOFunktionen.ls

@@ -1 @@
--- FileIO Handlers -- ©03 Alex da Franca -- alex@farbflash.de
+-- FileIO Handlers -- c03 Alex da Franca -- alex@farbflash.de
 ---------------------------------------------------------------------
 
@@ -460 +460 @@
       this = getnthfilenameinfolder(folderpath, n)
     end repeat
+  end if
+  
+  return retval
+  
+end
+
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mGetFileAndFolderList me, folderpath
+  if the runmode contains "plugin" then return []
+  
+  if length(string(folderpath)) < 1 then folderpath = mGetFolderPathFromUser(me)
+  if length(folderpath) < 1 then return []
+  
+  if xscr().mCheckForXtra("BudAPI") then -- if buddy is present...
+    --  -- budApi version:
+    retval = baFolderList(folderpath)
+    filelist = baFileList(folderpath, "*.*")
+    repeat with f in filelist
+      retval.add(f)
+    end repeat
+    
+  else if xscr().mCheckForXtra("FileXtra4") then -- if not buddy then try filextra
+    --  -- filextra4 version:
+    fx = (xtra "filextra4").new()
+    if objectP(fx) then
+      retval = fx.fx_FolderToList(folderpath)
+    end if
+    fx = 0
+    
+  else
+    
+    retval = []
+    n = 1
+    this = getnthfilenameinfolder(folderpath, n)
+    repeat while length(this) > 0
+      retval.add(this)
+      n = n + 1
+      this = getnthfilenameinfolder(folderpath, n)
+    end repeat
+    
   end if
   
@@ -614 +656 @@
 
 on interface me
-  str = "FileIO Scripts  by alex da franca ©2003 -- alex@farbflash.de -- all rigths reserved"
+  str = "FileIO Scripts  by alex da franca c2003 -- alex@farbflash.de -- all rigths reserved"
   
   put RETURN & "-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" after str