Problem with SHFileOperation

[RichardF]

I have a simple function to copy a file.

If I call this with the following paramerters...

psFrom = C:\123456789012 34567890.abc
psTo = C:\123456789012 34567890.xyz.ab c

The TO file ends up being C:\12345678.abc

Any ideas?

Thankd

RichardF

Here is the function...


Public Function DoFileCopy(psFr om As String, _
psTo As String, _
Optional piFlags As Integer =
FOF_NOCONFIRMAT ION +_
FOF_SILENT +_

FOF_FILESONLY) As Long
Dim FileOp As tSHFILEOPSTRUCT
Dim lRet As Long
lRet = clErcOK
On Error GoTo AnError
With FileOp
.wFunc = FO_COPY
.pFrom = psFrom
.pTo = psTo
.fFlags = piFlags + FOF_ALLOWUNDO
End With
lRet = SHFileOperation (FileOp)
DoFileCopy = lRet
Exit Function
AnError:
DoFileCopy = Err.Number
End Function

[Chris Dunaway]

On Wed, 27 Oct 2004 22:46:46 GMT, RichardF wrote:

I have a simple function to copy a file.

If I call this with the following paramerters...

I don't know why your filename is being mangled, but is there any reason
you're not using the classes in the System.IO namespace?

Imports System.IO

File.Copy(psFro m, psTo)

--
Chris

dunawayc[AT]sbcglobal_lunch meat_[DOT]net

To send me an E-mail, remove the "[", "]", underscores ,lunchmeat, and
replace certain words in my E-Mail address.

[RichardF]

Oops, wrong newsgroup!

Sorry, this is an old project using VB 6.

My apologies!

On Thu, 28 Oct 2004 09:02:33 -0500, Chris Dunaway
<"dunawayc[[at]_lunchmeat_sbcg lobal[dot]]net"> wrote:

On Wed, 27 Oct 2004 22:46:46 GMT, RichardF wrote:

I have a simple function to copy a file.

If I call this with the following paramerters...

I don't know why your filename is being mangled, but is there any reason
you're not using the classes in the System.IO namespace?

Imports System.IO

File.Copy(psFr om, psTo)

--
Chris

dunawayc[AT]sbcglobal_lunch meat_[DOT]net

To send me an E-mail, remove the "[", "]", underscores ,lunchmeat, and
replace certain words in my E-Mail address.