Android Question Copy some files from DirAssets to DirInternal

[Douwe Siegersma]

I want to copy some files from DirAssets to DirInternal. Only files containing "old"'.
I always get a 'File not found' error.

        Dim HL As List
        Dim F As String
        
        HL = File.ListFiles(File.DirAssets)
        For i = 0 To HL.Size-1
            F = HL.Get(i)
            If F.Contains("old") Then
                File.Copy(File.DirAssets,F,File.DirInternal,F)
            End If
        Next

And I only want to copy this files when the app is installed. How do I do that?

 

[LucaMs]

You cannot use File.ListFiles on File.DirAssets, it will not work.

 

[DonManfred]

You can not use File.Listfiles on the Filesfolder.

YOU know what files are there. You also can create a textfiles with the filenames and search in this textfile.

 

[Douwe Siegersma]

You cannot use File.ListFiles on File.DirAssets, it will not work.

OK. But the list gets filled properly. I get the error when copying the files.

 

[LucaMs]

File.ListFiles doesn't officially support listing files from File.DirAssets.

Evidently the result is not reliable.

Just to try, put a Log(F) before "If F.Contains...".

 

[Douwe Siegersma]

OK, Thank you for your (very) quick replies. I will try to find a solution with a textfile as suggested by DonManfred.

 

[LucaMs]

OK, Thank you for your (very) quick replies. I will try to find a solution with a textfile as suggested by DonManfred.

Yes, I did it too.

 

[Douwe Siegersma]

Well...

I made a textfile containing all the files I want to copy (Dir /b >files.txt) and removed all the unwanted files.
Then copy this file to dir internal, fill the list (HL) and do the copy.
Only the first file in the list is copied. All the other files (150) generate a File Not Found error.
As suggested I do a log(F) before copying and I see no flaws in the filenames.

 

[DonManfred]

As suggested I do a log(F) before copying and I see no flaws in the filenames.

You should start a new thread for a new issue.
Make sure not to use Uppercased filenames as they are not supportet in Assets too. All must be lowercased

 

[LucaMs]

Well...

I made a textfile containing all the files I want to copy (Dir /b >files.txt) and removed all the unwanted files.
Then copy this file to dir internal, fill the list (HL) and do the copy.
Only the first file in the list is copied. All the other files (150) generate a File Not Found error.
As suggested I do a log(F) before copying and I see no flaws in the filenames.

Post that part.

 

[Douwe Siegersma]

        Dim HL As List
        Dim F As String
        
        File.Copy(File.DirAssets,"files.txt",File.DirInternal,"files.txt")
        HL = File.ReadList(File.DirInternal,"files.txt")
        
        For i = 0 To HL.Size-1
            Try
                F = HL.Get(i)
                Log(F)
                File.Copy(File.DirAssets,F,File.DirInternal,F)
            Catch
            End Try
        Next

 

[DonManfred]

Best is to upload a small project showing the Issue.
I don´t like fishing.

 

[DonManfred]

Log(F)

WHAT ist the output in the LOG?

 

[LucaMs]

It's ok to me ?

 

[Douwe Siegersma]

sudoku-001
sudoku-002
sudoku-003
etc.

Only Sudoku-001 is copied.

 

[LucaMs]

sudoku-001
sudoku-002
sudoku-003
etc.

Only Sudoku-001 is copied.

Yes, I understood that, but the code seems right to me.

 

[DonManfred]

Only Sudoku-001 is copied.

only if the name is sudoku-001.
Sudoku-001 would not work.

 

[LucaMs]

Only Sudoku-001 is copied.

How did you check the above?

 

[Douwe Siegersma]

All filenames are lowercase

 

[DonManfred]

All filenames are lowercase

Try to reproduce it in a small project and upload it.