Help with copying *.*

[Zeroanarchy]

Ok wondering if anyone else has tried this? or has a better method of doing it?


Picturenames.text = c:\pic\*.*
txtPPCDBpicout.text = \photo\*.*

Private Sub Form_load()
Dim intRetVal4 as Interger

intretVal14 =DEVICETODESKTOP(picturenames.text,
"",False, True, txtPPCDBpicout.text)
If intretval4 <>0 then
Msgbox :Error:201&quot;
Else
End if


At the moment it does not seem to like the *.* value any other ideas??

Thanks
ZeroAnarchy
Experience is a wonderful thing. It enables you to recognize a mistake
when you make it again.

 

[SilverSide]

I dont know what DEVICETODESKTOP does,
but if you just want to copy files:

strFromPath =&quot;C:\somewhere strToPath =&quot;D:\ToSomeWhere
strFile = Dir$(&quot;*.*&quot
Do
If strFile = &quot;&quot; Then Exit Do
Err=0
FileCopy strFromPath & strFile, strToPath & strFile
'-- use this to Move file
If Err = 0 Then
Kill strFromPath & strFile
End If
'-- end Move file
strFile = Dir$'-- take the next one
Loop

®od Steel


®od
--------------------------------------some Music?

http://www.artistlaunch.com/silverside

 

[Zeroanarchy]

Your right Silverside I left out the Module information, here it is:

delcare function DEVICETODESKTOP Lib &quot;adofiltr.dll&quot;_
(ByVal desktoplocn as String, _
ByVal Tablelist as String, _
ByVal sync As Boolean, _
ByVal overwrite As Integer, _
ByVal devicelocn as String) As Long


The prob I have is there is no drive letter for this one hence the \photo\*.* I am trying to copy an entire directory from the portable system to the desktop, any ideas??

Thanks
ZeroAnarchy
Experience is a wonderful thing. It enables you to recognize a mistake
when you make it again.

 

[SilverSide]

beats me

I guess &quot;FileSystemObject.CopyFolder&quot;
wont work.

but here is another ©OOL place:

http://www.mvps.org/vbnet/welcome.htm

®od
--------------------------------------some Music?

http://www.artistlaunch.com/silverside