OOOPS - Copying a folder of files - Old blog post

[Carl Gundel]

I was looking at an old blog post and found this:

Over on the Liberty BASIC forum at conforums.com one member was asking how to copy all the files in a folder for a database.

The hard way is to use the FILES statement and to write a bunch of code that tests and loops.

But is there an easier way?

One solution is to use the SHFileOperationA API call.

CallDLL #shell32, "SHFileOperationA", SHFILEOPSTRUCT as struct, CopyFolder as long

Chris Iverson shows how in his post. That and more in this thread.

Hey Chris, you wouldn't have that code handy?  I'd be happy to repost it.

Thanks.

[metro]

Sorry to jump in here Chris & Carl,
not sure if this is Chris's code. I saved it in march 2016 so maybe it is
srcPath$ = DefaultDir$ + "\bmp"
dstPath$ = DefaultDir$ + "\bmpcopy"
a =  CopyFolder(srcPath$, dstPath$)
If a = 0 then
   print "Copy successful!"
Else
   print "Uh oh, something went wrong."
End If

Function CopyFolder(src$, dest$)
   FO.COPY = 2
   FOF.SILENT = 4
   FOF.NOCONFIRMATION = 16
   FOF.NOERRORUI = hexdec("400")
   FOF.NOCONFIRMMKDIR = hexdec("200")
   FOF.NO.UI = FOF.SILENT or FOF.NOCONFIRMATION _
       or FOF.NOERRORUI or FOF.NOCONFIRMMKDIR

   struct SHFILEOPSTRUCT,_
       hWnd as ulong,_
       wFunc as ulong,_
       pFrom$ as ptr,_
       pTo$ as ptr,_
       fFlags as long,_
       fAnyOperationsAborted as long,_
       hNameMappings as long,_
       lpszProgressTitle$ as long

   SHFILEOPSTRUCT.hWnd.struct = 0
   SHFILEOPSTRUCT.wFunc.struct = FO.COPY
   SHFILEOPSTRUCT.pFrom$.struct = src$ + chr$(0) + chr$(0)
   SHFILEOPSTRUCT.pTo$.struct = dest$ + chr$(0) + chr$(0)
   SHFILEOPSTRUCT.fFlags.struct = FOF.NO.UI
   SHFILEOPSTRUCT.hNameMappings.struct = 0
   SHFILEOPSTRUCT.lpszProgressTitle$.struct = ""

   CallDLL #shell32, "SHFileOperationA",_
   SHFILEOPSTRUCT as struct,_
   CopyFolder as long
End Function



[Carl Gundel]

Jul 12, 2018 18:37:39 GMT -5 metro said:

Sorry to jump in here Chris & Carl,
not sure if this is Chris's code. I saved it in march 2016 so maybe it is
srcPath$ = DefaultDir$ + "\bmp"
dstPath$ = DefaultDir$ + "\bmpcopy"
a =  CopyFolder(srcPath$, dstPath$)
If a = 0 then
   print "Copy successful!"
Else
   print "Uh oh, something went wrong."
End If

Function CopyFolder(src$, dest$)
   FO.COPY = 2
   FOF.SILENT = 4
   FOF.NOCONFIRMATION = 16
   FOF.NOERRORUI = hexdec("400")
   FOF.NOCONFIRMMKDIR = hexdec("200")
   FOF.NO.UI = FOF.SILENT or FOF.NOCONFIRMATION _
       or FOF.NOERRORUI or FOF.NOCONFIRMMKDIR

   struct SHFILEOPSTRUCT,_
       hWnd as ulong,_
       wFunc as ulong,_
       pFrom$ as ptr,_
       pTo$ as ptr,_
       fFlags as long,_
       fAnyOperationsAborted as long,_
       hNameMappings as long,_
       lpszProgressTitle$ as long

   SHFILEOPSTRUCT.hWnd.struct = 0
   SHFILEOPSTRUCT.wFunc.struct = FO.COPY
   SHFILEOPSTRUCT.pFrom$.struct = src$ + chr$(0) + chr$(0)
   SHFILEOPSTRUCT.pTo$.struct = dest$ + chr$(0) + chr$(0)
   SHFILEOPSTRUCT.fFlags.struct = FOF.NO.UI
   SHFILEOPSTRUCT.hNameMappings.struct = 0
   SHFILEOPSTRUCT.lpszProgressTitle$.struct = ""

   CallDLL #shell32, "SHFileOperationA",_
   SHFILEOPSTRUCT as struct,_
   CopyFolder as long
End Function

Thanks, that looks right.