copyfile, copydir? 1

[redzombi19]

hi guys i was wondering if there was a windows api call or foxpro command that will copy a directory, i know the api call movefile will move a complete directory but it seems that copyfile only works on acutual files not directory's.
thanks

 

[DSummZZZ]

Try this:

ofs = CreateObject("Scripting.FileSystemObject&quot
ofs.CopyFolder("C:\temp", "C:\fred&quot

Where:
C:\temp = source dir
C:\fred = destination dir




-Dave S.-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm

 

[redzombi19]

ok when i try that i get :
OLE error code bla,bla,bla: Unknown COM status code.

here is a sample of the code i used for moving directories:

Declare Integer MoveFile IN WIN32API String @cFrom, String @cTo
MoveFile("c:\startdir","c:\enddir&quot

 

[DSummZZZ]

If you're trying to move a folder, you need to use MoveFolder, not MoveFile:

ofs.MoveFolder("C:\data", "c:\newdata&quot
Moves, or rather renames the folder 'data' to 'newdata'.

ofs.MoveFolder("C:\data", "c:\newdata\today&quot
Moves the folder named 'data' and places it as a new folder under 'newdata' in the tree.


-Dave S.-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm

 

[redzombi19]

thanks for you help DSummZZZ, let me explain mabey a little more clearly...
the above code you supplied gives me the same error every time, mabey its because i am doing something wrong, but the sample code i geve you is a windows api call that does in fact move directories and all of its sub folders and files it is called movefile...go figure. try pasting it into the click on a button to experament.
i am now trying to not move but copy a directory and all of its subfolders and files, if you can think of somethinig i might be doing wrong in you code please let me know.
thanks a lot.

 

[redzombi19]

ok, im an idiot i was miss-spelling a word in the original part of my code that you supllied
corrected it and it worked like a charm!
thank you verry much !!!!!

 

[redzombi19]

ok but now i have one small problem this code will only work on machines with windows scripting installed on them, which not all do.
is there not a api call to handle this ?

 

[DSummZZZ]

Sorry, I didn't see any API calls for copying or moving an entire directory. I have seen some posts in this form for copying files using VFP code, which traverse trees and so on, but the only other thing I have found is using scripting.


-Dave S.-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm

 

[redzombi19]

ok thanks for your help

 

[AirCon]

There is an API call for this. download the example here

1. Example file

http://www.universalthread.com/wconnect/wc.dll?FournierTransformation~2,84,17

Search for function: SHFileOperation

2. Class needed by example

http://www.universalthread.com/wconnect/wc.dll?FournierTransformation~2,54,1,5

Search for ID: 9482

Regards

-- AirCon --

 

[AirCon]

Forgot one this, SHFileOperation displays a window dialog with progress bar & animation (same with Windows Explorer)

-- AirCon --

 

[wgcs]

Do you need it to recursively copy subdirectories?

If not, this should work:

COPY FILE \Your\Path\*.* TO \Dest\Path
Or some variant of that (I don't remember if the trailing "\" is needed in the Destination or not...)

 

[machele]

Wgcs,
I used "copy file path1 to path2" but when the lenght of path1 is bigger the copy doesn't work.

 

[AirCon]

Machele

It works, just don't put "\" for the destination, as Wgcs already mentioned
I don't remember if the trailing "\" is needed in the Destination or not

try this.

cFile1 = 'D:\My Program\VFP7\Samples\*.*'
cFile2 = 'C:\Temp'
Copy file (cFile1) to (cFile2)


-- AirCon --

 

[machele]

i put
cFile1 = 'c:\Program files\VFP7\marius\*.*'
cFile2 = 'C:\Temp'
Copy file (cFile1) to (cFile2)
and doesn't work.
If i substitute "Program files" with another folder "max" it's work

 

[AirCon]

Machele

I'm not sure what is happening. I tried with various path length under W2K & WinME, always work.

Well, this maybe a stupid question but are you sure that the directory exist?


-- AirCon --

 

[monikai]

it's only idea, but what about the spaces in the names of folders ?

Monika from Warszawa (Poland)
(monikai@yahoo.com)

 

[DSummZZZ]

Try it this way. Note the extra ' in the source path:

cFile1 = "'C:\PROGRAM FILES\MICROSOFT VISUAL FOXPRO 7\Dave\*.*'"
cFile2 = 'C:\Temp\*.*'
Copy file &cFile1 to &cFile2


-Dave S.-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm

 

[rgbean]

Alternatives to Dave's solution:

cFile1 = "C:\PROGRAM FILES\MICROSOFT VISUAL FOXPRO 7\Dave\*.*"
cFile2 = 'C:\Temp\*.*'
Copy file "&cFile1" to "&cFile2"

*or 

Copy file (cFile1) to (cFile2)

Rick

 

[redzombi19]

thanks a bunch, this is really helpfull!