How to list the files inside a folder

[shalu]

Hi ALL,

How to list the files inside a folder without the choose the location.
eg:
put"D:\test\an" into content

I want to list the content of "D:\test\an" into a variable is it possible . I am using windows system

[jmburnod]

Hi Shalu,

This function return the list of files in a folder without ".*" :

Code: Select all

function getFilesInFol tFol
   put empty into rFilesInFol
   if there is a folder tFol then
      set the defaultFolder to tFol
      put the files into rFilesInFol
      filter rFilesInFol without ".*" 
   end if
   return rFilesInFol
end getFilesInFol

Best regards
Jean-Marc

[Klaus]

Hi all,

to avoid eventual surprises, I would add two lines:

Code: Select all

function getFilesInFol tFol
   put empty into rFilesInFol
   if there is a folder tFol then
      put the folder into tOldDir
      set the folder to tFol
      put the files into rFilesInFol
      filter rFilesInFol without ".*" 
      set the folder to tOldDir
   end if
   return rFilesInFol
end getFilesInFol

Best

Klaus

[FourthWorld]

A lot of folks (including myself) have been caught with unexpected recursion issues due to folder permissions. So this can be helpful to add:

Code: Select all

set the folder to tFolder
if the folder is tFolder then -- do stuff we expect....

[Klaus]

Ah, good point, thanks Richard!

[jmburnod]

Thanks Klaus
If i understand correctly what Richard suggest, this function should be like that :

Code: Select all

function getFilesInFol tFol
   put empty into rFilesInFol
   if there is a folder tFol then
      put the folder into tOldDir
      set the folder to tFol
      if the folder is tFol then -- do stuff we expect.... 
         put the files into rFilesInFol
         filter rFilesInFol without ".*" 
         set the folder to tOldDir
      end if
   end if
   return rFilesInFol
end getFilesInFol

All the best
Jean-Marc