Copy File/Directory with explorer [Resolved]

[Kwai chang caine]

Hello at all

Is it possible, to ask to the explorer with PB, to copy/cut a full directory or one or several files like if it's him he do the job (when i use the mouse for exampler)


Have a good day

[Lunasole]

Hi ^^ Yes, and it is even more easy than I've expected:

Code: Select all

EnableExplicit

; paths
Global Dim SrcFiles$(1), Dim OutFiles$(1)
	SrcFiles$(0) = "C:\1.txt"
	OutFiles$(0) = "D:\1.txt"


; fill structure
; see similar constants for other ops: like #FO_MOVE, #FOF_SILENT
Define A.SHFILEOPSTRUCT
	With A
		\hwnd = 0
		\wFunc = #FO_COPY			; what to do
		\pFrom = @SrcFiles$(0)		; list of source paths
		\pTo = @OutFiles$(0)		; list of destination paths
		\fFlags = #FOF_ALLOWUNDO	; how to do
	EndWith

; finally copy file1 to file2 using explorer shell
SHFileOperation_(A)

I thought It would be needed to use interfaces for this, but then remembered than nice API.
Look here for the full info about it: https://msdn.microsoft.com/en-us/librar ... s.85).aspx

[Kwai chang caine]

Thanks a lot LUNASOLE.
I can't test it for the moment, i'm on smartphone, but tommorow i run it, in the first hour, and give to you news

Have a very good night

[OldSkoolGamer]

Here's one I got from the forum awhile ago, cannot remember who wrote it, but it works great:

Code: Select all

Procedure.l FileOp(FromLoc.s, ToLoc.s, Flag)
  ;Flag can be the following: #FO_COPY, #FO_DELETE, #FO_MOVE, #FO_RENAME
  Switches.SHFILEOPSTRUCT ;Windows API Structure
  ;The filename needs to be double null-terminated.
  temp1$=Space(#MAX_PATH+SizeOf(character))
  RtlZeroMemory_(@temp1$, #MAX_PATH+SizeOf(character))
  PokeS(@temp1$, FromLoc)
  temp2$=Space(#MAX_PATH+SizeOf(character))
  RtlZeroMemory_(@temp2$, #MAX_PATH+SizeOf(character))
  PokeS(@temp2$, ToLoc)
  Switches\wFunc = Flag
  Switches\pFrom = @temp1$
  Switches\pTo = @temp2$
  Switches\fFlags = #FOF_NOCONFIRMATION | #FOF_NOCONFIRMMKDIR
  Result.l = SHFileOperation_(@Switches)
  ; If cancel was pressed then result will NOT be zero (0)
ProcedureReturn Result
EndProcedure

[RSBasic]

Copy dialog: http://www.rsbasic.de/aktualisierung/wi ... -Dialog.pb
Move dialog: http://www.rsbasic.de/aktualisierung/wi ... -Dialog.pb
Delete dialog: http://www.rsbasic.de/aktualisierung/wi ... -Dialog.pb

[ts-soft]

@rsbasic
or here: http://www.purebasic.fr/english/viewtop ... 61#p419961

[Kwai chang caine]

Hello at ALL !!

It's exactely what i want !!

I have tested all your codes and i can copy, even a full folder, like if it's me i command to windows to do the job

Mixed to the JbBremmer personal explorer
http://forums.purebasic.com/german/view ... aa#p285438
and the FREAK popup windows into a personal gadget
http://www.purebasic.fr/english/viewtop ... 28#p284528
I can now create my personal explorer

At the begining, i search to callback GadgetExplorer or TreeExplorer for modify item name dynamically
But apparently, it's not so simple
Now i can, replace the true name of file/folder, by another, and have the hand on all my own window explorer write

Thanks a lot all my friends
And have the very best better day of the world !!!

[TerryHough]

Unless you actually require the graphic display of the explorer doing the job...

Why not use the native PB command to copy/delete directories. Much faster in my testing without the GUI.
COPY

Code: Select all

Result = CopyDirectory(SourceDirectory$, DestinationDirectory$, "", #PB_FileSystem_Recursive|#PB_FileSystem_Force)

or
DELETE

Code: Select all

Result = DeleteDirectory(Directory$, "", #PB_FileSystem_Recursive|#PB_FileSystem_Force)

Similar commands available at the file level. See "File System" in the manual.

[Kwai chang caine]

Thanks TerryHough. I know the native command
But i don't know the pb command is more faster

In fact i try to recreate a simple explorer, because i need this explorer translate the real name of file/folder by another i choose.

But for all the other functions (copy, move, delete, etc...) i want do like usualy, and want to let the real explorer do the job for he not become idle
In fact, my real reason it's me the idle, and not want coding functions already exist in window

So thanks for your advice