Implement SHFileOperationW and call it from SHFileoperationA, some more API additions

Rolf Kalbermatter rolf.kalbermatter at citeng.com
Thu Feb 20 16:31:47 CST 2003


Changelog
  * dlls/shell32/shell32.spec
    Implement some more Win API functions.  * dlls/shell32/shell32_main.h
  * dlls/shell32/shfileop.c
    Implement some more Win API functions.
    Move the meat of the function to SHFileOperationW and call it from SHFileOperationA
    Die new implementation for SHFileOperation comes originally from Dietrich Teickner
    from Odin and is used here with his explicit permission.
  
License: X11, LGPL 

Rolf Kalbermatter

Index: dlls/shell32/shell32.spec
===================================================================
RCS file: /home/wine/wine/dlls/shell32/shell32.spec,v
retrieving revision 1.63
diff -u -r1.63 shell32.spec
--- dlls/shell32/shell32.spec	1 Feb 2003 00:41:30 -0000	1.63
+++ dlls/shell32/shell32.spec	20 Feb 2003 22:22:51 -0000
@@ -84,8 +84,8 @@
   90 stub SHFindFiles
   91 stub SHFindComputer
   92 stdcall PathGetShortPath (ptr) PathGetShortPathAW
-  93 stub Win32CreateDirectory
-  94 stub Win32RemoveDirectory
+  93 stdcall Win32CreateDirectory (wstr, ptr) Win32CreateDirectoryAW
+  94 stdcall Win32RemoveDirectory (wstr) Win32RemoveDirectoryAW
   95 stdcall SHLogILFromFSIL (ptr) SHLogILFromFSIL
   96 stdcall StrRetToStrN (ptr long ptr ptr) StrRetToStrNAW
   97 stdcall SHWaitForFileToOpen (long long long) SHWaitForFileToOpen

Index: dlls/shell32/shlfileop.c
===================================================================
RCS file: /home/wine/wine/dlls/shell32/shlfileop.c,v
retrieving revision 1.24
diff -u -r1.24 shlfileop.c
--- dlls/shell32/shlfileop.c	1 Feb 2003 00:41:30 -0000	1.24
+++ dlls/shell32/shlfileop.c	20 Feb 2003 22:20:37 -0000
@@ -3,6 +3,8 @@
  *
  * Copyright 2000 Juergen Schmied
  * Copyright 2002 Andriy Palamarchuk
+ * Copyright 2002 Dietrich Teickner (from Odin)
+ * Copyright 2002 Rolf Kalbermatter
  *
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public
@@ -23,6 +25,7 @@
 #include "wine/port.h"
 
 #include <string.h>
+#include <ctype.h>
 
 #include "winreg.h"
 #include "shellapi.h"
@@ -33,99 +36,326 @@
 #include "shlwapi.h"
 #include "wine/debug.h"
 
+#define IsAttribFile(x) (!(x == -1) && !(x & FILE_ATTRIBUTE_DIRECTORY))
+#define IsAttribDir(x)  (!(x == -1) && (x & FILE_ATTRIBUTE_DIRECTORY))
+
+#define IsDotDir(x)     ((x[0] == '.') && ((x[1] == 0) || ((x[1] == '.') && (x[2] == 0))))
+
 WINE_DEFAULT_DEBUG_CHANNEL(shell);
 
-BOOL SHELL_ConfirmDialog (int nKindOfDialog, LPCSTR szDir)
+CHAR aWildcardFile[] = {'*','.','*',0};
+WCHAR wWildcardFile[] = {'*','.','*',0};
+WCHAR wWildcardChars[] = {'*','?',0};
+WCHAR wBackslash[] = {'\\',0};
+
+static BOOL SHNotifyCreateDirectoryA(LPCSTR path, LPSECURITY_ATTRIBUTES sec);
+static BOOL SHNotifyCreateDirectoryW(LPCWSTR path, LPSECURITY_ATTRIBUTES sec);
+static BOOL SHNotifyRemoveDirectoryA(LPCSTR path);
+static BOOL SHNotifyRemoveDirectoryW(LPCWSTR path);
+static BOOL SHNotifyDeleteFileA(LPCSTR path);
+static BOOL SHNotifyDeleteFileW(LPCWSTR path);
+
+typedef struct
 {
-	char szCaption[255], szText[255], szBuffer[MAX_PATH + 256];
 	UINT caption_resource_id, text_resource_id;
+} SHELL_ConfirmIDstruc;
+
+static BOOL SHELL_ConfirmIDs(int nKindOfDialog, SHELL_ConfirmIDstruc *ids)
+{
+	switch (nKindOfDialog) {
+	  case ASK_DELETE_FILE:
+	    ids->caption_resource_id  = IDS_DELETEITEM_CAPTION;
+	    ids->text_resource_id  = IDS_DELETEITEM_TEXT;
+	    return TRUE;
+	  case ASK_DELETE_FOLDER:
+	    ids->caption_resource_id  = IDS_DELETEFOLDER_CAPTION;
+	    ids->text_resource_id  = IDS_DELETEITEM_TEXT;
+	    return TRUE;
+	  case ASK_DELETE_MULTIPLE_ITEM:
+	    ids->caption_resource_id  = IDS_DELETEITEM_CAPTION;
+	    ids->text_resource_id  = IDS_DELETEMULTIPLE_TEXT;
+	    return TRUE;
+	  case ASK_OVERWRITE_FILE:
+	    ids->caption_resource_id  = IDS_OVERWRITEFILE_CAPTION;
+	    ids->text_resource_id  = IDS_OVERWRITEFILE_TEXT;
+	    return TRUE;
+	  default:
+	    FIXME(" Unhandled nKindOfDialog %d stub\n", nKindOfDialog);
+	}
+	return FALSE;
+}
 
-	switch(nKindOfDialog) {
+BOOL SHELL_ConfirmDialog(int nKindOfDialog, LPCSTR szDir)
+{
+	CHAR szCaption[255], szText[255], szBuffer[MAX_PATH + 256];
+	SHELL_ConfirmIDstruc ids;
 
-	case ASK_DELETE_FILE:
-	  caption_resource_id	= IDS_DELETEITEM_CAPTION;
-	  text_resource_id	= IDS_DELETEITEM_TEXT;
-	  break;
-	case ASK_DELETE_FOLDER:
-	  caption_resource_id	= IDS_DELETEFOLDER_CAPTION;
-	  text_resource_id	= IDS_DELETEITEM_TEXT;
-	  break;
-	case ASK_DELETE_MULTIPLE_ITEM:
-	  caption_resource_id	= IDS_DELETEITEM_CAPTION;
-	  text_resource_id	= IDS_DELETEMULTIPLE_TEXT;
-	  break;
-	case ASK_OVERWRITE_FILE:
-	  caption_resource_id	= IDS_OVERWRITEFILE_CAPTION;
-	  text_resource_id	= IDS_OVERWRITEFILE_TEXT;
-	  break;
-	default:
-	  FIXME(" Unhandled nKindOfDialog %d stub\n", nKindOfDialog);
+	if (!SHELL_ConfirmIDs(nKindOfDialog, &ids))
 	  return FALSE;
-	}
 
-	LoadStringA(shell32_hInstance, caption_resource_id, szCaption, sizeof(szCaption));
-	LoadStringA(shell32_hInstance, text_resource_id, szText, sizeof(szText));
+	LoadStringA(shell32_hInstance, ids.caption_resource_id, szCaption, sizeof(szCaption));
+	LoadStringA(shell32_hInstance, ids.text_resource_id, szText, sizeof(szText));
 
-	FormatMessageA(FORMAT_MESSAGE_FROM_STRING | FORMAT_MESSAGE_ARGUMENT_ARRAY,
+	FormatMessageA(FORMAT_MESSAGE_FROM_STRING|FORMAT_MESSAGE_ARGUMENT_ARRAY,
 	               szText, 0, 0, szBuffer, sizeof(szBuffer), (va_list*)&szDir);
 
 	return (IDOK == MessageBoxA(GetActiveWindow(), szBuffer, szCaption, MB_OKCANCEL | MB_ICONEXCLAMATION));
 }
 
+BOOL SHELL_ConfirmDialogW(int nKindOfDialog, LPCWSTR szDir)
+{
+	WCHAR szCaption[255], szText[255], szBuffer[MAX_PATH + 256];
+	SHELL_ConfirmIDstruc ids;
+
+	if (!SHELL_ConfirmIDs(nKindOfDialog, &ids))
+	  return FALSE;
+
+	LoadStringW(shell32_hInstance, ids.caption_resource_id, szCaption, sizeof(szCaption));
+	LoadStringW(shell32_hInstance, ids.text_resource_id, szText, sizeof(szText));
+
+	FormatMessageW(FORMAT_MESSAGE_FROM_STRING|FORMAT_MESSAGE_ARGUMENT_ARRAY,
+	               szText, 0, 0, szBuffer, sizeof(szBuffer), (va_list*)&szDir);
+
+	return (IDOK == MessageBoxW(GetActiveWindow(), szBuffer, szCaption, MB_OKCANCEL | MB_ICONEXCLAMATION));
+}
+
 /**************************************************************************
- *	SHELL_DeleteDirectoryA()
+ *  SHELL_DeleteDirectoryA()
  *
  * like rm -r
  */
-
 BOOL SHELL_DeleteDirectoryA(LPCSTR pszDir, BOOL bShowUI)
 {
-	BOOL		ret = FALSE;
-	HANDLE		hFind;
+	BOOL    ret = TRUE;
+	HANDLE  hFind;
 	WIN32_FIND_DATAA wfd;
-	char		szTemp[MAX_PATH];
+	char    szTemp[MAX_PATH];
 
-	strcpy(szTemp, pszDir);
-	PathAddBackslashA(szTemp);
-	strcat(szTemp, "*.*");
-
-	if (bShowUI && !SHELL_ConfirmDialog(ASK_DELETE_FOLDER, pszDir))
+	/* Make sure the directory exists before eventually prompting the user */
+	PathCombineA(szTemp, pszDir, aWildcardFile);
+	hFind = FindFirstFileA(szTemp, &wfd);
+	if (hFind == INVALID_HANDLE_VALUE)
 	  return FALSE;
 
-	if(INVALID_HANDLE_VALUE != (hFind = FindFirstFileA(szTemp, &wfd)))
+	if (!bShowUI || SHELL_ConfirmDialog(ASK_DELETE_FOLDER, pszDir))
 	{
 	  do
 	  {
-	    if(strcasecmp(wfd.cFileName, ".") && strcasecmp(wfd.cFileName, ".."))
-	    {
-	      strcpy(szTemp, pszDir);
-	      PathAddBackslashA(szTemp);
-	      strcat(szTemp, wfd.cFileName);
+	    LPSTR lp = wfd.cAlternateFileName;
+	    if (!lp[0])
+	      lp = wfd.cFileName;
+	    if (IsDotDir(lp))
+	      continue;
+	    PathCombineA(szTemp, pszDir, lp);
+	    if (FILE_ATTRIBUTE_DIRECTORY & wfd.dwFileAttributes)
+	      ret = SHELL_DeleteDirectoryA(szTemp, FALSE);
+	    else
+	      ret = SHNotifyDeleteFileA(szTemp);
+	  } while (ret && FindNextFileA(hFind, &wfd));
+	}
+	FindClose(hFind);
+	if (ret)
+	  ret = SHNotifyRemoveDirectoryA(pszDir);
+	return ret;
+}
 
-	      if(FILE_ATTRIBUTE_DIRECTORY & wfd.dwFileAttributes)
-	        SHELL_DeleteDirectoryA(szTemp, FALSE);
-	      else
-	        DeleteFileA(szTemp);
-	    }
-	  } while(FindNextFileA(hFind, &wfd));
+BOOL SHELL_DeleteDirectoryW(LPCWSTR pszDir, BOOL bShowUI)
+{
+	BOOL    ret = TRUE;
+	HANDLE  hFind;
+	WIN32_FIND_DATAW wfd;
+	WCHAR   szTemp[MAX_PATH];
+
+	/* Make sure the directory exists before eventually prompting the user */
+	PathCombineW(szTemp, pszDir, wWildcardFile);
+	hFind = FindFirstFileW(szTemp, &wfd);
+	if (hFind == INVALID_HANDLE_VALUE)
+	  return FALSE;
 
-	  FindClose(hFind);
-	  ret = RemoveDirectoryA(pszDir);
+	if (!bShowUI || SHELL_ConfirmDialogW(ASK_DELETE_FOLDER, pszDir))
+	{
+	  do
+	  {
+	    LPWSTR lp = wfd.cAlternateFileName;
+	    if (!lp[0])
+	      lp = wfd.cFileName;
+	    if (IsDotDir(lp))
+	      continue;
+	    PathCombineW(szTemp, pszDir, lp);
+	    if (FILE_ATTRIBUTE_DIRECTORY & wfd.dwFileAttributes)
+	      ret = SHELL_DeleteDirectoryW(szTemp, FALSE);
+	    else
+	      ret = SHNotifyDeleteFileW(szTemp);
+	  } while (ret && FindNextFileW(hFind, &wfd));
 	}
-
+	FindClose(hFind);
+	if (ret)
+	  ret = SHNotifyRemoveDirectoryW(pszDir);
 	return ret;
 }
 
 /**************************************************************************
- *	SHELL_DeleteFileA()
+ *  SHELL_DeleteFileA()
  */
-
 BOOL SHELL_DeleteFileA(LPCSTR pszFile, BOOL bShowUI)
 {
 	if (bShowUI && !SHELL_ConfirmDialog(ASK_DELETE_FILE, pszFile))
-		return FALSE;
+	  return FALSE;
+
+	return SHNotifyDeleteFileA(pszFile);
+}
+
+BOOL SHELL_DeleteFileW(LPCWSTR pszFile, BOOL bShowUI)
+{
+	if (bShowUI && !SHELL_ConfirmDialogW(ASK_DELETE_FILE, pszFile))
+	  return FALSE;
+
+	return SHNotifyDeleteFileW(pszFile);
+}
+
+/**************************************************************************
+ * Win32CreateDirectory      (SHELL32_93)   [SHELL32.93]
+ *
+ * Creates a directory. Also triggers a change notify if one exists.
+ */
+static BOOL SHNotifyCreateDirectoryA(LPCSTR path, LPSECURITY_ATTRIBUTES sec)
+{
+	BOOL ret;
+	TRACE("(%s, %p)\n", debugstr_a(path), sec);
 
-        return DeleteFileA(pszFile);
+	ret = CreateDirectoryA(path, sec);
+	if (ret)
+	{
+	  SHChangeNotify(SHCNE_MKDIR, SHCNF_PATHA, path, NULL);
+	}
+	return ret;
+}
+
+static BOOL SHNotifyCreateDirectoryW(LPCWSTR path, LPSECURITY_ATTRIBUTES sec)
+{
+	BOOL ret;
+	TRACE("(%s, %p)\n", debugstr_w(path), sec);
+
+	ret = CreateDirectoryW(path, sec);
+	if (ret)
+	{
+	  SHChangeNotify(SHCNE_MKDIR, SHCNF_PATHW, path, NULL);
+	}
+	return ret;
+}
+
+BOOL WINAPI Win32CreateDirectoryAW(LPCVOID path, LPSECURITY_ATTRIBUTES sec)
+{
+	if (SHELL_OsIsUnicode())
+	  return SHNotifyCreateDirectoryW(path, sec);
+	return SHNotifyCreateDirectoryA(path, sec);
+}
+
+/************************************************************************
+ * Win32RemoveDirectory      (SHELL32_94)   [SHELL32.94]
+ *
+ * Deletes a directory. Also triggers a change notify if one exists.
+ */
+static BOOL SHNotifyRemoveDirectoryA(LPCSTR path)
+{
+	BOOL ret;
+	TRACE("(%s)\n", debugstr_a(path));
+
+	ret = RemoveDirectoryA(path);
+	if (!ret)
+	{
+	  /* Directory may be write protected */
+	  DWORD dwAttr = GetFileAttributesA(path);
+	  if (dwAttr != -1 && dwAttr & FILE_ATTRIBUTE_READONLY)
+	    if (SetFileAttributesA(path, dwAttr & ~FILE_ATTRIBUTE_READONLY))
+	      ret = RemoveDirectoryA(path);
+	}
+	if (ret)
+	  SHChangeNotify(SHCNE_RMDIR, SHCNF_PATHA, path, NULL);
+	return ret;
+}
+
+static BOOL SHNotifyRemoveDirectoryW(LPCWSTR path)
+{
+	BOOL ret;
+	TRACE("(%s)\n", debugstr_w(path));
+
+	ret = RemoveDirectoryW(path);
+	if (!ret)
+	{
+	  /* Directory may be write protected */
+	  DWORD dwAttr = GetFileAttributesW(path);
+	  if (dwAttr != -1 && dwAttr & FILE_ATTRIBUTE_READONLY)
+	    if (SetFileAttributesW(path, dwAttr & ~FILE_ATTRIBUTE_READONLY))
+	      ret = RemoveDirectoryW(path);
+	}
+	if (ret)
+	  SHChangeNotify(SHCNE_RMDIR, SHCNF_PATHW, path, NULL);
+	return ret;
+}
+
+BOOL WINAPI Win32RemoveDirectoryAW(LPCVOID path)
+{
+	if (SHELL_OsIsUnicode())
+	  return SHNotifyRemoveDirectoryW(path);
+	return SHNotifyRemoveDirectoryA(path);
+}
+
+/************************************************************************
+ * Win32DeleteFile           (SHELL32_164)  [SHELL32.164]
+ *
+ * Deletes a file. Also triggers a change notify if one exists.
+ *
+ * NOTES:
+ *  Verified on Win98 / IE 5 (SHELL32 4.72, March 1999 build) to be ANSI.
+ *  This is Unicode on NT/2000
+ */
+static BOOL SHNotifyDeleteFileA(LPCSTR path)
+{
+	BOOL ret;
+
+	TRACE("(%s)\n", debugstr_a(path));
+
+	ret = DeleteFileA(path);
+	if (!ret)
+	{
+	  /* File may be write protected or a system file */
+	  DWORD dwAttr = GetFileAttributesA(path);
+	  if ((dwAttr != -1) && (dwAttr & (FILE_ATTRIBUTE_READONLY | FILE_ATTRIBUTE_SYSTEM)))
+	    if (SetFileAttributesA(path, dwAttr & ~(FILE_ATTRIBUTE_READONLY | FILE_ATTRIBUTE_SYSTEM)))
+	      ret = DeleteFileA(path);
+	}
+	if (ret)
+	  SHChangeNotify(SHCNE_DELETE, SHCNF_PATHA, path, NULL);
+
+	return ret;
+}
+
+static BOOL SHNotifyDeleteFileW(LPCWSTR path)
+{
+	BOOL ret;
+
+	TRACE("(%s)\n", debugstr_w(path));
+
+	ret = DeleteFileW(path);
+	if (!ret)
+	{
+	  /* File may be write protected or a system file */
+	  DWORD dwAttr = GetFileAttributesW(path);
+	  if ((dwAttr != -1) && (dwAttr & (FILE_ATTRIBUTE_READONLY | FILE_ATTRIBUTE_SYSTEM)))
+	    if (SetFileAttributesW(path, dwAttr & ~(FILE_ATTRIBUTE_READONLY | FILE_ATTRIBUTE_SYSTEM)))
+	      ret = DeleteFileW(path);
+	}
+	if (ret)
+	  SHChangeNotify(SHCNE_DELETE, SHCNF_PATHW, path, NULL);
+	return ret;
+}
+
+DWORD WINAPI Win32DeleteFileAW(LPCVOID path)
+{
+	if (SHELL_OsIsUnicode())
+	  return SHNotifyDeleteFileW(path);
+	return SHNotifyDeleteFileA(path);
 }
 
 /*************************************************************************
@@ -147,15 +377,11 @@
  */
 DWORD WINAPI SHCreateDirectoryExA(HWND hWnd, LPCSTR path, LPSECURITY_ATTRIBUTES sec)
 {
-	DWORD ret;
-	TRACE("(%p, %s, %p)\n",hWnd, path, sec);
-	if ((ret = CreateDirectoryA(path, sec)))
-	{
-	  SHChangeNotify(SHCNE_MKDIR, SHCNF_PATHA, path, NULL);
-	}
-	else if (hWnd)
-	  FIXME("Semi-stub, non zero hWnd should be used as parent for error dialog!");
-	return ret;
+	WCHAR wPath[MAX_PATH];
+	TRACE("(%p, %s, %p)\n",hWnd, debugstr_a(path), sec);
+
+	MultiByteToWideChar(CP_ACP, 0, path, -1, wPath, MAX_PATH);
+	return SHCreateDirectoryExW(hWnd, wPath, sec);
 }
 
 /*************************************************************************
@@ -163,333 +389,658 @@
  */
 DWORD WINAPI SHCreateDirectoryExW(HWND hWnd, LPCWSTR path, LPSECURITY_ATTRIBUTES sec)
 {
-	DWORD ret;
+	DWORD ret = ERROR_SUCCESS;
 	TRACE("(%p, %s, %p)\n",hWnd, debugstr_w(path), sec);
-	if ((ret = CreateDirectoryW(path, sec)))
+
+	if (PathIsRelativeW(path))
 	{
-	  SHChangeNotify(SHCNE_MKDIR, SHCNF_PATHW, path, NULL);
+	  ret = ERROR_BAD_PATHNAME;
+	  SetLastError(ERROR_BAD_PATHNAME);
+	}
+	else
+	{
+	  if (!SHNotifyCreateDirectoryW(path, sec))
+	  {
+	    ret = GetLastError();
+	    if (ret != ERROR_FILE_EXISTS &&
+	        ret != ERROR_ALREADY_EXISTS &&
+	        ret != ERROR_FILENAME_EXCED_RANGE)
+	    {
+	    /*lstrcpynW(pathName, path, MAX_PATH);
+	      lpStr = PathAddBackslashW(pathName);*/
+	      FIXME("Semi-stub, non zero hWnd should be used somehow?");
+	    }
+	  }
 	}
-	else if (hWnd)
-	  FIXME("Semi-stub, non zero hWnd should be used as parent for error dialog!");
 	return ret;
 }
 
-/************************************************************************
- * Win32DeleteFile                         [SHELL32.164]
+/*************************************************************************
  *
- * Deletes a file. Also triggers a change notify if one exists.
+ * SHFileStrICmp HelperFunction for SHFileOperationW
  *
- * NOTES:
- *  Verified on Win98 / IE 5 (SHELL32 4.72, March 1999 build) to be ANSI.
- *  This is Unicode on NT/2000
  */
-static BOOL Win32DeleteFileA(LPCSTR fName)
-{
-	TRACE("%p(%s)\n", fName, fName);
-
-	DeleteFileA(fName);
-	SHChangeNotify(SHCNE_DELETE, SHCNF_PATHA, fName, NULL);
-	return TRUE;
-}
-
-static BOOL Win32DeleteFileW(LPCWSTR fName)
+BOOL SHFileStrICmpW(LPWSTR p1, LPWSTR p2, LPWSTR p1End, LPWSTR p2End)
 {
-	TRACE("%p(%s)\n", fName, debugstr_w(fName));
+	WCHAR C1 = '\0';
+	WCHAR C2 = '\0';
+	int i_Temp = -1;
+	int i_len1 = lstrlenW(p1);
+	int i_len2 = lstrlenW(p2);
 
-	DeleteFileW(fName);
-	SHChangeNotify(SHCNE_DELETE, SHCNF_PATHW, fName, NULL);
-	return TRUE;
+	if (p1End && (&p1[i_len1] >= p1End) && ('\\' == p1End[0]))
+	{
+	  C1 = p1End[0];
+	  p1End[0] = '\0';
+	  i_len1 = lstrlenW(p1);
+	}
+	if (p2End)
+	{
+	  if ((&p2[i_len2] >= p2End) && ('\\' == p2End[0]))
+	  {
+	    C2 = p2End[0];
+	    if (C2)
+	      p2End[0] = '\0';
+	  }
+	}
+	else
+	{
+	  if ((i_len1 <= i_len2) && ('\\' == p2[i_len1]))
+	  {
+	    C2 = p2[i_len1];
+	    if (C2)
+	      p2[i_len1] = '\0';
+	  }
+	}
+	i_len2 = lstrlenW(p2);
+	if (i_len1 == i_len2)
+	  i_Temp = lstrcmpiW(p1,p2);
+	if (C1)
+	  p1[i_len1] = C1;
+	if (C2)
+	  p2[i_len2] = C2;
+	return !(i_Temp);
 }
 
-DWORD WINAPI Win32DeleteFileAW(LPCVOID fName)
+/*************************************************************************
+ *
+ * SHFileStrCpyCat HelperFunction for SHFileOperationW
+ *
+ */
+LPWSTR SHFileStrCpyCatW(LPWSTR pTo, LPCWSTR pFrom, LPCWSTR pCatStr)
 {
-	if (SHELL_OsIsUnicode())
-	  return Win32DeleteFileW(fName);
-	return Win32DeleteFileA(fName);
+	LPWSTR pToFile = NULL;
+	int  i_len;
+	if (pTo)
+	{
+	  if (pFrom)
+	    lstrcpyW(pTo, pFrom);
+	  if (pCatStr)
+	  {
+	    i_len = lstrlenW(pTo);
+	    if ((i_len) && (pTo[--i_len] != '\\'))
+	      i_len++;
+	    pTo[i_len] = '\\';
+	    if (pCatStr[0] == '\\')
+	      pCatStr++; \
+	    lstrcpyW(&pTo[i_len+1], pCatStr);
+	  }
+	  pToFile = StrRChrW(pTo,NULL,'\\');
+/* !! termination of the new string-group */
+	  pTo[(lstrlenW(pTo)) + 1] = '\0';
+	}
+	return pToFile;
 }
 
-/**************************************************************************
- *	SHELL_FileNamesMatch()
+/*************************************************************************
+ *
+ * SHName(s)Translate HelperFunction for SHFileOperationA
  *
- * Accepts two \0 delimited lists of the file names. Checks whether number of
- * files in the both lists is the same.
  */
-BOOL SHELL_FileNamesMatch(LPCSTR pszFiles1, LPCSTR pszFiles2)
+DWORD SHNameTranslate(LPWSTR* wString, LPCWSTR* pWToFrom, BOOL more)
 {
-    while ((pszFiles1[strlen(pszFiles1) + 1] != '\0') &&
-           (pszFiles2[strlen(pszFiles2) + 1] != '\0'))
-    {
-        pszFiles1 += strlen(pszFiles1) + 1;
-        pszFiles2 += strlen(pszFiles2) + 1;
-    }
-
-    return
-        ((pszFiles1[strlen(pszFiles1) + 1] == '\0') &&
-         (pszFiles2[strlen(pszFiles2) + 1] == '\0')) ||
-        ((pszFiles1[strlen(pszFiles1) + 1] != '\0') &&
-         (pszFiles2[strlen(pszFiles2) + 1] != '\0'));
+	DWORD ret, size = 0;
+	LPCSTR aString = (LPSTR)pWToFrom[0];
+	if (pWToFrom[0])
+	{
+	  if (wString[0]) /* only in the second loop */
+	    pWToFrom[0] = wString[0];
+	  do
+	  {
+	    ret = lstrlenA(aString) + 1;
+	    if (wString[0]) /* only in the second loop */
+	    {
+	      MultiByteToWideChar(CP_ACP, 0, aString, ret, wString[0], ret);
+	      wString[0] += ret;
+	    }
+	    aString += ret;
+	    size += ret;
+	  } while ((ret != 1) & more);
+	}
+return size;
 }
-
 /*************************************************************************
- * SHFileOperationA				[SHELL32.@]
+ * SHFileOperationA        [SHELL32.@]
  *
  * NOTES
  *     exported by name
  */
-DWORD WINAPI SHFileOperationA (LPSHFILEOPSTRUCTA lpFileOp)
+DWORD WINAPI SHFileOperationA(LPSHFILEOPSTRUCTA lpFileOp)
 {
-	LPSTR pFrom = (LPSTR)lpFileOp->pFrom;
-	LPSTR pTo = (LPSTR)lpFileOp->pTo;
-	LPSTR pTempTo;
-        TRACE("flags (0x%04x) : %s%s%s%s%s%s%s%s%s%s%s%s \n", lpFileOp->fFlags,
-                lpFileOp->fFlags & FOF_MULTIDESTFILES ? "FOF_MULTIDESTFILES " : "",
-                lpFileOp->fFlags & FOF_CONFIRMMOUSE ? "FOF_CONFIRMMOUSE " : "",
-                lpFileOp->fFlags & FOF_SILENT ? "FOF_SILENT " : "",
-                lpFileOp->fFlags & FOF_RENAMEONCOLLISION ? "FOF_RENAMEONCOLLISION " : "",
-                lpFileOp->fFlags & FOF_NOCONFIRMATION ? "FOF_NOCONFIRMATION " : "",
-                lpFileOp->fFlags & FOF_WANTMAPPINGHANDLE ? "FOF_WANTMAPPINGHANDLE " : "",
-                lpFileOp->fFlags & FOF_ALLOWUNDO ? "FOF_ALLOWUNDO " : "",
-                lpFileOp->fFlags & FOF_FILESONLY ? "FOF_FILESONLY " : "",
-                lpFileOp->fFlags & FOF_SIMPLEPROGRESS ? "FOF_SIMPLEPROGRESS " : "",
-                lpFileOp->fFlags & FOF_NOCONFIRMMKDIR ? "FOF_NOCONFIRMMKDIR " : "",
-                lpFileOp->fFlags & FOF_NOERRORUI ? "FOF_NOERRORUI " : "",
-                lpFileOp->fFlags & 0xf800 ? "MORE-UNKNOWN-Flags" : "");
-	switch(lpFileOp->wFunc) {
-	case FO_COPY:
-        case FO_MOVE:
-        {
-                /* establish when pTo is interpreted as the name of the destination file
-                 * or the directory where the Fromfile should be copied to.
-                 * This depends on:
-                 * (1) pTo points to the name of an existing directory;
-                 * (2) the flag FOF_MULTIDESTFILES is present;
-                 * (3) whether pFrom point to multiple filenames.
-                 *
-                 * Some experiments:
-                 *
-                 * destisdir               1 1 1 1 0 0 0 0
-                 * FOF_MULTIDESTFILES      1 1 0 0 1 1 0 0
-                 * multiple from filenames 1 0 1 0 1 0 1 0
-                 *                         ---------------
-                 * copy files to dir       1 0 1 1 0 0 1 0
-                 * create dir              0 0 0 0 0 0 1 0
-                 */
-                int multifrom = pFrom[strlen(pFrom) + 1] != '\0';
-                int destisdir = PathIsDirectoryA( pTo );
-                int todir = 0;
-
-                if (lpFileOp->wFunc == FO_COPY)
-                    TRACE("File Copy:\n");
-                else
-                    TRACE("File Move:\n");
-
-                if( destisdir ) {
-                    if ( !((lpFileOp->fFlags & FOF_MULTIDESTFILES) && !multifrom))
-                        todir = 1;
-                } else {
-                    if ( !(lpFileOp->fFlags & FOF_MULTIDESTFILES) && multifrom)
-                        todir = 1;
-                }
-
-                if ((pTo[strlen(pTo) + 1] != '\0') &&
-                    !(lpFileOp->fFlags & FOF_MULTIDESTFILES))
-                {
-                    WARN("Attempt to use multiple file names as a destination "
-                         "without specifying FOF_MULTIDESTFILES\n");
-                    return 1;
-                }
-
-                if ((lpFileOp->fFlags & FOF_MULTIDESTFILES) &&
-                    !SHELL_FileNamesMatch(pTo, pFrom))
-                {
-                    WARN("Attempt to use multiple file names as a destination "
-                         "with mismatching number of files in the source and "
-                         "destination lists\n");
-                    return 1;
-                }
-
-                if ( todir ) {
-                    char szTempFrom[MAX_PATH];
-                    char *fromfile;
-                    int lenPTo;
-                    if ( ! destisdir) {
-                      TRACE("   creating directory %s\n",pTo);
-                      SHCreateDirectoryExA(NULL, pTo, NULL);
-                    }
-                    lenPTo = strlen(pTo);
-                    while(1) {
-		        HANDLE hFind;
-		        WIN32_FIND_DATAA wfd;
-
-                        if(!pFrom[0]) break;
-                        TRACE("   From Pattern='%s'\n", pFrom);
-			if(INVALID_HANDLE_VALUE != (hFind = FindFirstFileA(pFrom, &wfd)))
-			{
-			  do
-			  {
-			    if(strcasecmp(wfd.cFileName, ".") && strcasecmp(wfd.cFileName, ".."))
-			    {
-			      strcpy(szTempFrom, pFrom);
-
-                              pTempTo = HeapAlloc(GetProcessHeap(), 0,
-                                                  lenPTo + strlen(wfd.cFileName) + 5);
-                              if (pTempTo) {
-                                  strcpy(pTempTo,pTo);
-                                  PathAddBackslashA(pTempTo);
-                                  strcat(pTempTo,wfd.cFileName);
-
-                                  fromfile = PathFindFileNameA(szTempFrom);
-                                  fromfile[0] = '\0';
-                                  PathAddBackslashA(szTempFrom);
-                                  strcat(szTempFrom, wfd.cFileName);
-                                  TRACE("   From='%s' To='%s'\n", szTempFrom, pTempTo);
-                                  if(lpFileOp->wFunc == FO_COPY)
-                                  {
-                                      if(FILE_ATTRIBUTE_DIRECTORY & wfd.dwFileAttributes)
-                                      {
-                                          /* copy recursively */
-                                          if(!(lpFileOp->fFlags & FOF_FILESONLY))
-                                          {
-                                              SHFILEOPSTRUCTA shfo;
-
-                                              SHCreateDirectoryExA(NULL, pTempTo, NULL);
-                                              PathAddBackslashA(szTempFrom);
-                                              strcat(szTempFrom, "*.*");
-                                              szTempFrom[strlen(szTempFrom) + 1] = '\0';
-                                              pTempTo[strlen(pTempTo) + 1] = '\0';
-                                              memcpy(&shfo, lpFileOp, sizeof(shfo));
-                                              shfo.pFrom = szTempFrom;
-                                              shfo.pTo = pTempTo;
-                                              SHFileOperationA(&shfo);
-
-                                              szTempFrom[strlen(szTempFrom) - 4] = '\0';
-                                          }
-                                      }
-                                      else
-                                          CopyFileA(szTempFrom, pTempTo, FALSE);
-                                  }
-                                  else
-                                  {
-                                      /* move file/directory */
-                                      MoveFileA(szTempFrom, pTempTo);
-                                  }
-                                  HeapFree(GetProcessHeap(), 0, pTempTo);
-                              }
-			    }
-			  } while(FindNextFileA(hFind, &wfd));
-			  FindClose(hFind);
-                        }
-                        else
-                        {
-                            /* can't find file with specified name */
-                            break;
-                        }
-                        pFrom += strlen(pFrom) + 1;
-                    }
-                } else {
-                    while (1) {
-                            if(!pFrom[0]) break;
-                            if(!pTo[0]) break;
-                            TRACE("   From='%s' To='%s'\n", pFrom, pTo);
-
-                            pTempTo = HeapAlloc(GetProcessHeap(), 0, strlen(pTo)+1);
-                            if (pTempTo)
-                            {
-                                strcpy( pTempTo, pTo );
-                                PathRemoveFileSpecA(pTempTo);
-                                TRACE("   Creating Directory '%s'\n", pTempTo);
-                                SHCreateDirectoryExA(NULL, pTempTo, NULL);
-                                HeapFree(GetProcessHeap(), 0, pTempTo);
-                            }
-                            if (lpFileOp->wFunc == FO_COPY)
-                                CopyFileA(pFrom, pTo, FALSE);
-                            else
-                                MoveFileA(pFrom, pTo);
-
-                            pFrom += strlen(pFrom) + 1;
-                            pTo += strlen(pTo) + 1;
-                    }
-                }
-		TRACE("Setting AnyOpsAborted=FALSE\n");
-		lpFileOp->fAnyOperationsAborted=FALSE;
-		return 0;
-        }
-
-	case FO_DELETE:
-	{
-		HANDLE		hFind;
-		WIN32_FIND_DATAA wfd;
-		char		szTemp[MAX_PATH];
-		char		*file_name;
-
-		TRACE("File Delete:\n");
-		while(1) {
-			if(!pFrom[0]) break;
-			TRACE("   Pattern='%s'\n", pFrom);
-			if(INVALID_HANDLE_VALUE != (hFind = FindFirstFileA(pFrom, &wfd)))
-			{
-			  do
-			  {
-			    if(strcasecmp(wfd.cFileName, ".") && strcasecmp(wfd.cFileName, ".."))
-			    {
-			      strcpy(szTemp, pFrom);
-			      file_name = PathFindFileNameA(szTemp);
-			      file_name[0] = '\0';
-			      PathAddBackslashA(szTemp);
-			      strcat(szTemp, wfd.cFileName);
-
-			      TRACE("   File='%s'\n", szTemp);
-			      if(FILE_ATTRIBUTE_DIRECTORY & wfd.dwFileAttributes)
-			      {
-			        if(!(lpFileOp->fFlags & FOF_FILESONLY))
-			            SHELL_DeleteDirectoryA(szTemp, FALSE);
-			      }
-			      else
-			        DeleteFileA(szTemp);
-			    }
-			  } while(FindNextFileA(hFind, &wfd));
-
-			  FindClose(hFind);
-			}
-			pFrom += strlen(pFrom) + 1;
-		}
-		TRACE("Setting AnyOpsAborted=FALSE\n");
-		lpFileOp->fAnyOperationsAborted=FALSE;
-		return 0;
-	}
-
-        case FO_RENAME:
-            TRACE("File Rename:\n");
-            if (pFrom[strlen(pFrom) + 1] != '\0')
-            {
-                WARN("Attempt to rename more than one file\n");
-                return 1;
-            }
-            lpFileOp->fAnyOperationsAborted = FALSE;
-            TRACE("From %s, To %s\n", pFrom, pTo);
-            return !MoveFileA(pFrom, pTo);
-
-	default:
-		FIXME("Unhandled shell file operation %d\n", lpFileOp->wFunc);
-	}
+	SHFILEOPSTRUCTW nFileOp = *((LPSHFILEOPSTRUCTW)lpFileOp);
+	DWORD ret = 2, size = 0;
+	LPWSTR wString = NULL;
+
+	TRACE("SHFileOperationA");
+	if (FO_DELETE == (nFileOp.wFunc & 0xf))
+	  nFileOp.pTo = NULL; /* we need a NULL or a valid pointer for translation */
+	if (!(nFileOp.fFlags & FOF_SIMPLEPROGRESS))
+	  nFileOp.lpszProgressTitle = NULL; /* we need a NULL or a valid pointer for translation */
+	do
+	{
+	  if (size)
+	  {
+	    wString =  HeapAlloc(GetProcessHeap(), 0, size * sizeof(WCHAR));
+	    if (!wString)
+	    {
+	      SetLastError(ERROR_OUTOFMEMORY);
+	      lpFileOp->fAnyOperationsAborted = TRUE;
+	      return ERROR_OUTOFMEMORY;
+	    }
+	  }
+	  size = SHNameTranslate(&wString, &nFileOp.lpszProgressTitle, FALSE); /* no loop */
+	  size += SHNameTranslate(&wString, &nFileOp.pFrom, TRUE); /* internal loop */
+	  size += SHNameTranslate(&wString, &nFileOp.pTo, TRUE); /* internal loop */
+	  ret--;
+	} while (ret); /* first loop only for calculate size, no translation. second both */
+
+	ret = SHFileOperationW(&nFileOp);
+
+	lpFileOp->fAnyOperationsAborted = nFileOp.fAnyOperationsAborted;
+	lpFileOp->hNameMappings = nFileOp.hNameMappings;
+	if (wString)
+	  HeapFree(GetProcessHeap(), 0, wString);
 
-	return 1;
+	return ret;
 }
 
 /*************************************************************************
- * SHFileOperationW				[SHELL32.@]
+ * SHFileOperationW        [SHELL32.@]
  *
  * NOTES
  *     exported by name
  */
-DWORD WINAPI SHFileOperationW (LPSHFILEOPSTRUCTW lpFileOp)
+DWORD WINAPI SHFileOperationW(LPSHFILEOPSTRUCTW lpFileOp)
 {
-	FIXME("(%p):stub.\n", lpFileOp);
-	return 1;
+	SHFILEOPSTRUCTW nFileOp = *(lpFileOp);
+
+	LPCWSTR pNextFrom = nFileOp.pFrom;
+	LPCWSTR pNextTo = nFileOp.pTo;
+	LPCWSTR pFrom = pNextFrom;
+	LPCWSTR pTo = NULL;
+	HANDLE hFind = INVALID_HANDLE_VALUE;
+	WIN32_FIND_DATAW wfd;
+	LPWSTR pTempFrom = NULL;
+	LPWSTR pTempTo = NULL;
+	LPWSTR pFromFile;
+	LPWSTR pToFile;
+	LPWSTR lpFileName;
+	long retCode = 0;
+	DWORD ToAttr;
+	DWORD ToPathAttr;
+	FILEOP_FLAGS OFl = ((FILEOP_FLAGS)lpFileOp->fFlags & 0x7ff);
+
+	BOOL b_Multi = (nFileOp.fFlags & FOF_MULTIDESTFILES);
+
+	BOOL b_MultiTo = (FO_DELETE != (lpFileOp->wFunc & 0xf));
+	BOOL b_MultiFrom = FALSE;
+	BOOL not_overwrite;
+	BOOL ask_overwrite;
+	BOOL b_SameRoot;
+	BOOL b_SameTailName;
+	BOOL b_ToInvalidTail;
+	BOOL b_ToValid; /* for W98-Bug for FO_MOVE with source and taget in same rootdrive */
+	BOOL b_Mask; /* wird als Schalter benutzt, vieleicht finde ich die richtige bitposition */
+	BOOL b_ToTailSlash;
+	LPCSTR cFO_Name [] = {"FO_????","FO_MOVE","FO_COPY","FO_DELETE","FO_RENAME"};
+
+	long FuncSwitch = (nFileOp.wFunc & 0xf);
+	long level= nFileOp.wFunc>>4;
+
+/*  default no error */
+	nFileOp.fAnyOperationsAborted = FALSE;
+
+#if 0
+	if ((FuncSwitch >= FO_MOVE) && (FuncSwitch <= FO_RENAME))
+	  cFO_Name[0] = cFO_Name[FuncSwitch];
+	else
+	{
+	  goto shfileop_normal;
+	}
+#else
+	if ((FuncSwitch < FO_MOVE) || (FuncSwitch > FO_RENAME))
+	  goto shfileop_normal; /* no valid FunctionCode */
+
+	cFO_Name[0] = cFO_Name [FuncSwitch];
+#endif
+	if (level == 0)
+	  TRACE("%s: flags (0x%04x) : %s%s%s%s%s%s%s%s%s%s%s%s \n",cFO_Name[0], nFileOp.fFlags,
+	              nFileOp.fFlags & FOF_MULTIDESTFILES ? "FOF_MULTIDESTFILES " : "",
+	              nFileOp.fFlags & FOF_CONFIRMMOUSE ? "FOF_CONFIRMMOUSE " : "",
+	              nFileOp.fFlags & FOF_SILENT ? "FOF_SILENT " : "",
+	              nFileOp.fFlags & FOF_RENAMEONCOLLISION ? "FOF_RENAMEONCOLLISION " : "",
+	              nFileOp.fFlags & FOF_NOCONFIRMATION ? "FOF_NOCONFIRMATION " : "",
+	              nFileOp.fFlags & FOF_WANTMAPPINGHANDLE ? "FOF_WANTMAPPINGHANDLE " : "",
+	              nFileOp.fFlags & FOF_ALLOWUNDO ? "FOF_ALLOWUNDO " : "",
+	              nFileOp.fFlags & FOF_FILESONLY ? "FOF_FILESONLY " : "",
+	              nFileOp.fFlags & FOF_SIMPLEPROGRESS ? "FOF_SIMPLEPROGRESS " : "",
+	              nFileOp.fFlags & FOF_NOCONFIRMMKDIR ? "FOF_NOCONFIRMMKDIR " : "",
+	              nFileOp.fFlags & FOF_NOERRORUI ? "FOF_NOERRORUI " : "",
+	              nFileOp.fFlags & 0xf800 ? "MORE-UNKNOWN-Flags" : "");
+	;
+	{
+	              /* establish when pTo is interpreted as the name of the destination file
+	               * or the directory where the Fromfile should be copied to.
+	               * This depends on:
+	               * (1) pTo points to the name of an existing directory;
+	               * (2) the flag FOF_MULTIDESTFILES is present;
+	               * (3) whether pFrom point to multiple filenames.
+	               *
+	               * Some experiments:
+	               *
+	               * destisdir               1 1 1 1 0 0 0 0
+	               * FOF_MULTIDESTFILES      1 1 0 0 1 1 0 0
+	               * multiple from filenames 1 0 1 0 1 0 1 0
+	               *                         ---------------
+	               * copy files to dir       1 0 1 1 0 0 1 0
+	               * create dir              0 0 0 0 0 0 1 0
+	               */
+/*
+ * FOF_MULTIDESTFILES, FOF_NOCONFIRMATION, FOF_FILESONLY          are    implemented
+ * FOF_CONFIRMMOUSE, FOF_SILENT, FOF_NOCONFIRMMKDIR, FOF_SIMPLEPROGRESS    are not implemented and ignored
+ * FOF_RENAMEONCOLLISION                             are    implemented partially and breaks if file exist
+ * FOF_ALLOWUNDO, FOF_WANTMAPPINGHANDLE                    are not implemented and breaks
+ * if any other flag set, an error occurs
+ */
+	  TRACE(" %s level=%d nFileOp.fFlags=0x%x\n", cFO_Name[0], level, lpFileOp->fFlags);
+
+/*    OFl &= (-1 - (FOF_MULTIDESTFILES | FOF_FILESONLY)); */
+/*    OFl ^= (FOF_SILENT | FOF_NOCONFIRMATION | FOF_SIMPLEPROGRESS | FOF_NOCONFIRMMKDIR); */
+	  OFl &= (~(FOF_MULTIDESTFILES | FOF_NOCONFIRMATION | FOF_FILESONLY));  /* implemented */
+	  OFl ^= (FOF_SILENT | FOF_NOCONFIRMMKDIR);          /* ignored, if one */
+	  OFl &= (~FOF_SIMPLEPROGRESS);                      /* ignored, only with FOF_SILENT */
+	  if (OFl)
+	  {
+	    if (OFl & ( ~ (FOF_CONFIRMMOUSE | FOF_SILENT | FOF_RENAMEONCOLLISION | FOF_NOCONFIRMMKDIR)))
+	    {
+	      TRACE("%s level=%d lpFileOp->fFlags=0x%x not implemented, Aborted=TRUE, stub\n", cFO_Name[0], level, OFl);
+	      retCode = 0x403; /* 1027, we need a extension of shlfileop */
+	      goto shfileop_error;
+	    }
+	    else
+	    {
+	      TRACE("%s level=%d lpFileOp->fFlags=0x%x not full implemented ,stub\n", cFO_Name[0], level, OFl);
+	    } /* endif */
+	  } /* endif */
+
+	  if ((pNextFrom) && (!(b_MultiTo) || (pNextTo)))
+	  {
+	    nFileOp.pFrom = pTempFrom = HeapAlloc(GetProcessHeap(), 0, ((1 + 2 * (b_MultiTo)) * MAX_PATH + 6) * sizeof(WCHAR));
+	    if (b_MultiTo)
+	      pTempTo = &pTempFrom[MAX_PATH + 4];
+	    nFileOp.pTo = pTempTo;
+	    ask_overwrite = (!(nFileOp.fFlags & FOF_NOCONFIRMATION) && !(nFileOp.fFlags & FOF_RENAMEONCOLLISION));
+	    not_overwrite = (!(nFileOp.fFlags & FOF_NOCONFIRMATION) ||  (nFileOp.fFlags & FOF_RENAMEONCOLLISION));
+	  }
+	  else
+	  {
+	    retCode = 0x402;      /* 1026 */
+	    goto shfileop_error;
+	  }
+/* need break at error before change sourcepointer */
+	  while(!nFileOp.fAnyOperationsAborted && (pNextFrom[0]))
+	  {
+	    nFileOp.wFunc =  ((level + 1) << 4) + FuncSwitch;
+	    nFileOp.fFlags = lpFileOp->fFlags;
+
+	    if (b_MultiTo)
+	    {
+	      pTo = pNextTo;
+	      pNextTo = &pNextTo[lstrlenW(pTo)+1];
+	      b_MultiTo = (b_Multi && pNextTo[0]);
+	    }
+
+	    pFrom = pNextFrom;
+	    pNextFrom = &pNextFrom[lstrlenW(pNextFrom)+1];
+	    if (!b_MultiFrom && !b_MultiTo)
+	      b_MultiFrom = (pNextFrom[0]);
+
+	    pFromFile = SHFileStrCpyCatW(pTempFrom, pFrom, NULL);
+
+	    if (pTo)
+	    {
+	      pToFile = SHFileStrCpyCatW(pTempTo, pTo, NULL);
+	    }
+	    if (!(pFromFile) || !(pFromFile[1]) || ((pTo) && !(pToFile)))
+	    {
+	      retCode = 0x402;      /* 1026 */
+	      goto shfileop_error;
+	    }
+	    if (pTo)
+	    {
+	      b_ToTailSlash = (!pToFile[1]);
+	      if (b_ToTailSlash)
+	      {
+	        pToFile[0] = '\0';
+	        if (StrChrW(pTempTo,'\\'))
+	        {
+	          pToFile = SHFileStrCpyCatW(pTempTo, NULL, NULL);
+	        }
+	      }
+	      b_ToInvalidTail = (NULL != StrPBrkW(&pToFile[1], wWildcardChars));
+	    }
+
+	    /* for all */
+	    b_Mask = (NULL != StrPBrkW(&pFromFile[1], wWildcardChars));
+	    if (FO_RENAME == FuncSwitch)
+	    {
+	      /* temporary only for FO_RENAME */
+/* ???  b_Mask = (NULL != strrbrk(pFrom,"*?")); */
+	      if (b_MultiTo || b_MultiFrom || (b_Mask && !b_ToInvalidTail))
+	      {
+	        /* no work, only RC=0 */
+/* ???    nFileOp.fAnyOperationsAborted = TRUE; */
+	        goto shfileop_normal;
+	      }
+	    }
+
+	    hFind = FindFirstFileW(pFrom, &wfd);
+	    if (INVALID_HANDLE_VALUE == hFind)
+	    {
+	      /* root (without mask) is also not allowed as source, tested in W98 */
+	      retCode = 0x402;   /* 1026 */
+	      goto shfileop_error;
+	    } /* endif */
+
+/* for all */
+#define HIGH_ADR (LPWSTR)0xffffffff
+
+/* ??? b_Mask = (!SHFileStrICmpA(&pFromFile[1], &wfd.cFileName[0], HIGH_ADR, HIGH_ADR)); */
+
+	    if (!pTo) /* FO_DELETE */
+	    {
+	      do
+	      {
+	         lpFileName = wfd.cAlternateFileName;
+	         if (!lpFileName[0])
+	           lpFileName = wfd.cFileName;
+	        if (IsDotDir(lpFileName))
+	          continue;
+	        SHFileStrCpyCatW(&pFromFile[1], lpFileName, NULL);
+	        /* TODO: Check the SHELL_DeleteFileOrDirectoryW() function in shell32.dll */
+	        if (IsAttribFile(wfd.dwFileAttributes))
+	        {
+	          nFileOp.fAnyOperationsAborted = (!SHNotifyDeleteFileW(pTempFrom));
+	          retCode = 0x78; /* value unknown */
+	        }
+	        else
+	        {
+	          nFileOp.fAnyOperationsAborted = (!SHELL_DeleteDirectoryW(pTempFrom, (!(nFileOp.fFlags & FOF_NOCONFIRMATION))));
+	          retCode = 0x79; /* value unknown */
+	        }
+	      } while (!nFileOp.fAnyOperationsAborted && FindNextFileW(hFind, &wfd));
+	      FindClose(hFind);
+	      hFind = INVALID_HANDLE_VALUE;
+	      if (nFileOp.fAnyOperationsAborted)
+	      {
+	        goto shfileop_error;
+	      }
+	      continue;
+	    } /* FO_DELETE ends, pTo must be always valid from here */
+
+	    b_SameRoot = (towupper(pTempFrom[0]) == towupper(pTempTo[0]));
+	    b_SameTailName = SHFileStrICmpW(pToFile, pFromFile, NULL, NULL);
+
+	    ToPathAttr = ToAttr = GetFileAttributesW(pTempTo);
+	    if (!b_Mask && (ToAttr -1))
+	    {
+	      if (pToFile)
+	      {
+	        pToFile[0] = '\0';
+	        ToPathAttr = GetFileAttributesW(pTempTo);
+	        pToFile[0] = '\\';
+	      }
+	    }
+
+	    if (FO_RENAME == FuncSwitch)
+	    {
+	      if (!b_SameRoot || b_Mask /* FO_RENAME works not with Mask */
+	       || !SHFileStrICmpW(pTempFrom, pTempTo, pFromFile, NULL)
+	       || (SHFileStrICmpW(pTempFrom, pTempTo, pFromFile, HIGH_ADR) && !b_ToTailSlash))
+	      {
+	        retCode = 0x73;
+	        goto shfileop_error;
+	      }
+	      if (b_ToInvalidTail)
+	      {
+	        retCode=0x2;
+	        goto shfileop_error;
+	      }
+	      if (-1 == ToPathAttr)
+	      {
+	        retCode = 0x75;
+	        goto shfileop_error;
+	      }
+	      if (IsAttribDir(wfd.dwFileAttributes) && IsAttribDir(ToAttr))
+	      {
+	        retCode = (b_ToTailSlash) ? 0xb7 : 0x7b;
+	        goto shfileop_error;
+	      } /* endif */
+	      /* TODO: use SHNotifyMoveFile() instead ?? */
+	      if (!MoveFileW(pTempFrom, pTempTo))
+	      {
+	        /* we need still the value for the returncode, we use the mostly assumed */
+	        retCode = 0xb7;
+	        goto shfileop_error;
+	      }
+	      goto shfileop_normal;
+	    }
+
+	    /* W98 Bug with FO_MOVE(/RENAME ?) different to FO_COPY, better the same as FO_COPY */
+	    b_ToValid = ((b_SameTailName &&  b_SameRoot && (FO_COPY == FuncSwitch)) ||
+	              (b_SameTailName && !b_SameRoot) || (b_ToInvalidTail));
+
+	    /* handle mask in source */
+	    if (b_Mask)
+	    {
+	      if (!IsAttribDir(ToAttr))
+	      {
+	        retCode = (b_ToInvalidTail &&/* b_SameTailName &&*/ (FO_MOVE == FuncSwitch)) \
+	          ? 0x2 : 0x75;
+	        goto shfileop_error;
+	      }
+	      pToFile = SHFileStrCpyCatW(pTempTo, NULL, wBackslash);
+	      nFileOp.fFlags = (nFileOp.fFlags | FOF_MULTIDESTFILES);
+	      do
+	      {
+	         lpFileName = wfd.cAlternateFileName;
+	         if (!lpFileName[0])
+	           lpFileName = wfd.cFileName;
+	        if (IsDotDir(lpFileName) ||
+	            (IsAttribDir(wfd.dwFileAttributes) && (nFileOp.fFlags & FOF_FILESONLY)))
+	          continue; /* next name in pTempFrom(dir) */
+	        SHFileStrCpyCatW(&pToFile[1], lpFileName, NULL);
+	        SHFileStrCpyCatW(&pFromFile[1], lpFileName, NULL);
+	        retCode = SHFileOperationW (&nFileOp);
+	      } while(!nFileOp.fAnyOperationsAborted && FindNextFileW(hFind, &wfd));
+	    }
+	    FindClose(hFind);
+	    hFind = INVALID_HANDLE_VALUE;
+	    /* FO_COPY/FO_MOVE with mask, FO_DELETE and FO_RENAME are solved */
+	    if (b_Mask)
+	      continue;
+
+	    /* only FO_COPY/FO_MOVE without mask, all others are (must be) solved */
+	    if (IsAttribDir(wfd.dwFileAttributes) && (ToAttr -1))
+	    {
+	      if (pToFile)
+	      {
+	        pToFile[0] = '\0';
+	        ToPathAttr = GetFileAttributesW(pTempTo);
+	        if ((ToPathAttr == -1) && b_ToValid)
+	        {
+	          /* create dir must be here, sample target D:\y\ *.* create with RC=10003 */
+	          if (SHCreateDirectoryExW(NULL, pTempTo, NULL))
+	          {
+	            retCode = 0x73;/* value unknown */
+	            goto shfileop_error;
+	          }
+	          ToPathAttr = GetFileAttributesW(pTempTo);
+	        }
+	        pToFile[0] = '\\';
+	        if (b_ToInvalidTail)
+	        {
+	          retCode = 0x10003;
+	          goto shfileop_error;
+	        }
+	      }
+	    }
+
+	    /* trailing BackSlash is ever removed and pToFile points to BackSlash before */
+	    if (!b_MultiTo && (b_MultiFrom || (!(b_Multi) && IsAttribDir(ToAttr))))
+	    {
+	      if ((FO_MOVE == FuncSwitch) && IsAttribDir(ToAttr) && IsAttribDir(wfd.dwFileAttributes))
+	      {
+	        if (b_Multi)
+	        {
+	          retCode = 0x73; /* !b_Multi = 0x8 ?? */
+	          goto shfileop_error;
+	        }
+	      }
+	      pToFile = SHFileStrCpyCatW(pTempTo, NULL, wfd.cFileName);
+	      ToAttr = GetFileAttributesW(pTempTo);
+	    }
+
+	    if (IsAttribDir(ToAttr))
+	    {
+	      if (IsAttribFile(wfd.dwFileAttributes))
+	      {
+	        retCode = (FO_COPY == FuncSwitch) ? 0x75 : 0xb7;
+	        goto shfileop_error;
+	      }
+	    }
+	    else
+	    {
+	      pToFile[0] = '\0';
+	      ToPathAttr = GetFileAttributesW(pTempTo);
+	      pToFile[0] = '\\';
+	      if (IsAttribFile(ToPathAttr))
+	      {
+	        /* error, is this tested ? */
+	        retCode = 0x777402;
+	        goto shfileop_error;
+	      } /* endif */
+	    }
+
+	    /* singlesource + no mask */
+	    if (-1 == (ToAttr & ToPathAttr))
+	    {
+	      /* Target-dir does not exist, and cannot be created */
+	      retCode=0x75;
+	      goto shfileop_error;
+	    }
+
+	    switch(FuncSwitch)
+	    {
+	    case FO_MOVE:
+	      pToFile = NULL;
+	      if ((ToAttr == -1) && SHFileStrICmpW(pTempFrom, pTempTo, pFromFile, NULL))
+	      {
+	        nFileOp.wFunc =  ((level+1)<<4) + FO_RENAME;
+	      }
+	      else
+	      {
+	        if (b_SameRoot && IsAttribDir(ToAttr) && IsAttribDir(wfd.dwFileAttributes))
+	        {
+	          /* we need pToFile for FO_DELETE after FO_MOVE contence */
+	          pToFile = SHFileStrCpyCatW(pTempFrom, NULL, wWildcardFile);
+	        }
+	        else
+	        {
+	          nFileOp.wFunc =  ((level+1)<<4) + FO_COPY;
+	        }
+	      }
+	      retCode = SHFileOperationW(&nFileOp);
+	      if (pToFile)
+	        ((DWORD*)pToFile)[0] = '\0';
+	      if (!nFileOp.fAnyOperationsAborted && (FO_RENAME != (nFileOp.wFunc & 0xf)))
+	      {
+	        nFileOp.wFunc =  ((level+1)<<4) + FO_DELETE;
+	        retCode = SHFileOperationW(&nFileOp);
+	      }
+	      continue;
+	    case FO_COPY:
+	      if (SHFileStrICmpW(pTempFrom, pTempTo, NULL, NULL))
+	      { /* target is the same as source ? */
+	        /* we still need the value for the returncode, we assume 0x71 */
+	        retCode = 0x71;
+	        goto shfileop_error;
+	      } /* endif */
+	      if (IsAttribDir((ToAttr & wfd.dwFileAttributes)))
+	      {
+	        if (IsAttribDir(ToAttr) || !SHCreateDirectoryExW(NULL,pTempTo, NULL))
+	        {
+/* ???      nFileOp.fFlags = (nFileOp.fFlags | FOF_MULTIDESTFILES); */
+	          SHFileStrCpyCatW(pTempFrom, NULL, wWildcardFile);
+	          retCode = SHFileOperationW(&nFileOp);
+	        }
+	        else
+	        {
+	          retCode = 0x750;/* value unknown */
+	          goto shfileop_error;
+	        }
+	      }
+	      else
+	      {
+	        if (!(ask_overwrite && SHELL_ConfirmDialogW(ASK_OVERWRITE_FILE, pTempTo))
+	        && (not_overwrite))
+	        {
+	          /* we still need the value for the returncode, we use the mostly assumed */
+	          retCode = 0x73;
+	          goto shfileop_error;
+	        }
+	        /* TODO: use SHNotifyCopyFile() */
+	        if (!(CopyFileW(pTempFrom, pTempTo, FALSE)))
+	        {
+	          retCode = 0x77; /* value unknown */
+	          goto shfileop_error;
+	        }
+	      }
+	    } /* end-switch */
+	  } /* end-while */
+	}
+shfileop_normal:
+	if (!(nFileOp.fAnyOperationsAborted))
+	  retCode = 0;
+shfileop_error:
+	if (retCode)
+	  nFileOp.fAnyOperationsAborted = TRUE;
+	if (hFind != INVALID_HANDLE_VALUE)
+	  FindClose(hFind);
+	hFind = INVALID_HANDLE_VALUE;
+	if (pTempFrom)
+	  HeapFree(GetProcessHeap(), 0, pTempFrom);
+
+	TRACE("%s level=%d AnyOpsAborted=%s ret=0x%x, with %s%s%s\n",
+	      cFO_Name[0], level, nFileOp.fAnyOperationsAborted ? "TRUE":"FALSE",
+	      retCode, debugstr_w(pFrom), pTo ? " -> ":"", debugstr_w(pTo));
+
+	lpFileOp->fAnyOperationsAborted = nFileOp.fAnyOperationsAborted;
+	return retCode;
 }
 
 /*************************************************************************
- * SHFileOperation				[SHELL32.@]
+ * SHFileOperation        [SHELL32.@]
  *
  */
 DWORD WINAPI SHFileOperationAW(LPVOID lpFileOp)




More information about the wine-patches mailing list