If it just one level of directory then you can use something like
B4X:
Dim srcDir as String = "C:/temp/someFolder"
Dim destDir as String = "C:/temp/someOtherFolder" ' this must exist for the copy to work
Dim srcFiles as List = File.ListFiles(srcDir)
For Each f As String In srcFiles
File.Copy(srcDir, f, destDir, f)
Next
If there are directories within the srcDir you want to copy, then you need to detect if f is a directory (File.IsDirectory(srcDir,f) and code accordingly (eg recursively read the sub directories)
Dim DC As DirectoryChooser
DC.Initialize
DC.InitialDirectory = 'Directory you want to start the chooser (Optional)
Dim Folder As String = DC.Show(MainForm)