I want to copy all files from a folder to a new folder excluding folders.
So in my test I have two folders Gambas_Projects and NewFolder2 below code I am using an if statement for individual folders.

Is there a way to say if file = folder vs naming the folder?

GBowlsby said

I want to copy all files from a folder to a new folder excluding folders.
So in my test I have two folders Gambas_Projects and NewFolder2 below code I am using an if statement for individual folders.

Is there a way to say if file = folder vs naming the folder?

Notes,,
Do not use File , File is a class name so maybe use filename or something else
I changed the Chr(10) bits for \n in the string
I used TextArea1.Insert()

So it is not working. Once it gets to a folder I get an error that says file is a folder and it stops on my Gambas_Projects.

GBowlsby said

So it is not working. Once it gets to a folder I get an error that says file is a folder and it stops on my Gambas_Projects.

Code

For Each filename As String In Dir("/home/gbowlsby/Desktop/")
    If IsDir(filename) Then
       TextArea1.Insert("File: " & filename & " is a folder and not copied\n")
    Else
       TextArea1.Insert("File: " & filename & " copied\n")
       Copy "/home/gbowlsby/Desktop/" & filename To "/home/gbowlsby/Desktop/NewFolder2/" & filename
         
    Endif
   Next
      
  End

aah sorry , Dir may not be giving the full path in the filenames so it returns false as path is not found.
Use  IsDir("/home/gbowlsby/Desktop" &/ filename) …

you missed my deliberate mistake

Thank you so much. It is working.

A simpler solution could be: -


TIP for  GBowlsby

Use the gb button for adding code not the </> button, It will then format it as above.
<IMG src="https://www.cogier.com/gambas/gb.png"> </IMG>