Discussion Locked

Error 1026 Using SHFileOperation

0 helpful
0 replies
Closed to new repliesThis discussion is closed. It stays readable, but it takes no new replies.

I am using SHFileOperation to copy some files from an Install CD to the Target folder. The program works fine on W2K and XP, but under W98, I get a File System Error (1026).
I know that this Function needs to have the Null characters added properly, & I have done so. Any ideas?
Here is the code for reference:

Option Explicit

Const FO_COPY = &H2

Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Long
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End Type

Dim destination As String
Dim sOrigin As String
Dim sTarget As String
Dim sDesktopPath As String
Dim sFontsPath As String
Dim sFilePath As String
Dim sMsg As String
Dim sSysRoot As String
Dim sProgramFiles As String

Dim lFileOp As Long
Dim lresult As Long
Dim lFlags As Long
Dim lpil As Long

Dim SHFileOp As SHFILEOPSTRUCT

lFileOp = FO_COPY
sOrigin = App.Path & "\*.*"
sTarget = "C:\247guardian"
sDesktopPath = fGetSpecialFolder(CSIDL_DESKTOPDIRECTORY)
sFontsPath = fGetSpecialFolder(CSIDL_FONTS)
sProgramFiles = fGetSpecialFolder(CSIDL_PROGRAM_FILES)
sSysRoot = fGetSpecialFolder(CSIDL_WINDOWS)

Screen.MousePointer = vbHourglass

With SHFileOp
.wFunc = lFileOp
.pFrom = sOrigin & vbNullChar & vbNullChar
.pTo = sTarget & vbNullChar & vbNullChar
.fFlags = lFlags
.lpszProgressTitle = sFontsPath & vbNullChar & vbNullChar
End With
lresult = SHFileOperation(SHFileOp)

0 replies

No replies were posted before this discussion closed.

This discussion is closed to new replies.