// This code is part of VDF GUIdance // Visit us @ http://www.vdf-guidance.com // e-Mail us @ info@vdf-guidance.com // VDF GUIdance is a mutual project of // Frank Vandervelpen - Vandervelpen Systems and // Wil van Antwerpen - Antwise Solutions // All software source code should be used <> without any warranty. // // // *** Windows 32bit file handling wrapper class *** // ANSI variant // 05-09-2000 **WvA: Changed namingconvention of all classes and methods to new standard // This may be painfull for some of you, but it was really needed as it was // getting messy. The "vs" -prefix we used before was confusing and could // unintentionally have been interpreted as "Vdf-GUIdance String". // // The used naming-convention is: // - a prefix of "vWin32_" for every external function declaration // - a prefix of the letter "v" for the full API name for the vdf-wrapper function. // // By using this we are guarding ourselves for conflicts with variable declarations // of DataAccess in the future. // Or at least almost as the letter "v" is now also synonym for variant (duh~!) // // mm-dd-yyyy Author Description // // vSHGetFolderPath added to retrieve the new shell folders // vGetWindowsDirectory // // vGetTempFileName // vGetTempPath // 11-17-2001 **WvA: Removed User Interface Error popups such as Error handling. // This is an absolute need for WebApp. We expect you to handle the // error in your application anyways. Changed this for: // vDeleteFile, vCopyFile, vMoveFile and vRenameFile // 03-02-2002 **WvA: vRemoveDirectory added // 03-11-2002 **WvA: The parameter lpdword in the external function declaration for // vWin32_SHBrowsForFolder can cause compiler errors. // It is renamed too avoid this. // 11-11-2002 **WvA: Codecleanup, vcSelectFile_Dialog is now cvSelectFile_Dialog, its // function vSelectedFileName is now just SelectedFileName // Removed the local keyword in the variable declarations // 10-17-2003 **WvA: Cleaned up function vSelect_File and added code to destroy the dynamically // created file-open dialog // 02-12-2004 **WvA: Allan Ankerstjeme pointed me into a bug for the vCreateTempFileInPath // in that it didn't exactly return the correct filename of the file created. // This has now been taken care of. // 02-19-2004 **WvA: Removed all API declarations from the package itself to improve readability // These declarations are now included from the vWin32fh header file. // 02-19-2004 **WvA: Changed the default way in which the standard file handling works // Before today one could always undo the operation, as of now you cannot as // the default was a silly one using unnecessary resources (mainly diskspace) // Since i don't really expect someone to use that feature it has been removed. // One can however restore to the old way of handling by simply calling the // vWin32fhCompatibilityMode procedure ONE time before accessing any of the // filehandling operations // 02-19-2004 **WvA: The functions ParseFolderName, ParseFileName and ParseFileExtenstion added // as well as the StringFromRightOfChar function. // 02-19-2004 **WvA: sfoFormatDisk function added which can use to format a floppydisk // DISABLED now as testing shows that it does not work as advertised... // 02-20-2004 **WvA: The function vDDE_Error_Handler didn't pass the errornumber on to the DDE_Error_To_String function // Moved the hardcoded strings from vDDE_Error_Handler to define declarations for easier translation later on. // 09-10-2004 **WvA: Added the ToAnsi function to the fileoperations method so that // extended characters are treated ok too. // Reported by Flemming from // 12-17-2004 **WvA: Changed vFilePathExists to be global, reported by Peter van Mil // 12-28-2004 **WvA: WebApp compatibility added by introducing compiler directives // 03-10-2006 **WvA: Added more CSIDL types to our header file for use with the vSHGetFolderPath function // 01-02-2007 **WvA: Set NoChangeDir_State on vSelect_File and vSelectSaveFile to True but changed it back due to side effects. // Added vSelectSavefile function to create a file save dialog // Fixed ParseFolderName which was horribly broken (thanks for the reports) // Added vParentPath function to retrieve the parent "node" of a path // 01-04-2008 **WvA: Fixed vCreateTempFileInPath as the function wasn't working // 10-04-2009 **WvA: Added vshCreateDirectoryEx from Micheal Mullan, moved filedialogs to cvFileDialogs.pkg // 01-11-2010 **WvA: Added vWin32_APIFilesize as supplied by Renato Villa, to get the filesize of the specified file. See http://support.dataaccess.com/forums/showthread.php?t=41982 // 10-02-2011 **WvA: Added vCSIDL_SYSTEMX86, courtesy of Ola Eldoy for pointing this out and providing the define statement. // 20-12-2012 **WvA: Default behavior on copy/move is now to autocreate subfolders, tip by Frank Cheng // 29-09-2014 **WvA: Added function vFolderFileCount to count the number of files in a folder, add vCSIDL_PROGRAM_FILESx86 // 04-10-2014 **WvA: Added extra checks on vFilePathExists and vFolderExists courtesy of Nils Svedmyr Use vWin32fhA.h // Header file with WinAPI ANSI declarations #IF (!@ < 191) // This is the one function that keeps DataFlex versions from before DF19.1 from using // modern syntax, so we declare it instead. Function ZeroString Global Integer iSize Returns String String sRetVal Move (Repeat(Character(0), iSize)) to sRetVal Function_Return sRetVal End_Function #ENDIF // Does the directory exist? - No = false, Yes = True // This also works with UNC path encoding and wildcards Function vFolderExists Global String sFolderName Returns Boolean Boolean bFolderExists Boolean bStop String sFolder sTmp Integer iCh // 2013-09-29 NGS Check for empty folder name and convert to ANSI Move (ToANSI(Trim(sFolderName))) to sFolderName If (sFolderName = "") Begin Function_Return False End Move True to bFolderExists Move False to bStop Move "dir:" to sFolder Append sFolder sFolderName Get Seq_New_Channel to iCh // get free channel for input If (iCh = DF_SEQ_CHANNEL_NOT_AVAILABLE) Begin Error DFERR_PROGRAM "No I/O channel available for process (vFolderExists)" Function_Return False End Direct_Input channel iCh sFolder Repeat Readln channel iCh sTmp Move (SeqEof) to bStop If (Trim(sTmp)="") Begin Move False to bFolderExists End Else Begin Move True to bFolderExists Move True to bStop End Until (bStop) Close_Input channel iCh Send Seq_Release_Channel iCh Function_Return bFolderExists End_Function // returns folder name if a folder was selected, otherwise returns "" Function vSHBrowseForFolder Global String sDialogTitle Returns String String sFolder sTitle sPath Pointer lpItemIdList Integer iFolderSelected iRetval tvBrowseInfo BrowseInfo Move "" to sPath If (sDialogTitle<>"") Begin Move sDialogTitle to sTitle // Torben Lund suggested converting the string with toansi. Doing it like that // disables showing some commonly used ascii characters like ascii 137 (‰) // These chars are correctly shown if no toansi is used. // I can imagine that he wanted to path to be ANSI, but as long as it isa just // selected it will always be valid. Move (AddressOf(sTitle)) to BrowseInfo.lpszTitle End Move vBIF_RETURNONLYFSDIRS to BrowseInfo.ulFlags // Torben Lund added line below. Move handle of focus object to structure before // calling function. Otherwise, the folderdialog will be started as a seperate task. Move (window_handle(focus(desktop))) to BrowseInfo.hWndOwner // null 128 chars into var (make space) Move (Repeat(Character(0), vMAX_PATH)) to sFolder // select folder Move (vWin32_SHBrowseForFolder(AddressOf(BrowseInfo))) to lpItemIdList // get selected folder name Move (vWin32_SHGetPathFromIDList(lpItemIdList, AddressOf(sFolder))) to iFolderSelected // release memory resources that are used by the ItemIdList Move (vWin32_CoTaskMemFree(lpItemIdList)) to iRetval If (iFolderSelected<>0) Begin Move (CString(sFolder)) to sPath End Function_Return sPath End_Function // returns 0 if the folder is created. // 1 if the API-call returned an error. Function vCreateDirectory Global String sNewFolder Returns Integer String sFolder Integer iRetval bFolderCreated tvSecurity_attributes SA Move False to bFolderCreated // null MAX_PATH chars into var (make space) Move (Repeat(Character(0), vMAX_PATH)) to sFolder If (sNewFolder <> "") Begin Move (SizeOfType(tvSecurity_attributes)) to SA.nLength Move 0 to SA.lpDescriptor Move 1 to SA.bInheritHandle // Move (sNewFolder+"") to sFolder Move (vWin32_CreateDirectory(AddressOf(sFolder), AddressOf(SA))) to bFolderCreated End If (bFolderCreated=false) Begin Move 1 to iRetVal End Function_Return iRetVal End_Function // **WvA: 03-02-2002 Function created. // With this function one can remove a directory. // returns 0 if the folder is removed. // 1 if the API-call returned an error (Use GetLastError API to get the details) // 2 if the folder did not exist // 3 if the sFolder parameter passed is equal to "" Function vRemoveDirectory Global String sFolder Returns Integer Boolean bRemoved String sPath Integer iRetval Move 0 to iRetVal Move False to bRemoved Move (Trim(sFolder)) to sFolder If (sFolder="") Begin Move 3 to iRetVal End If (vFolderExists(sFolder)=False) Begin Move 2 to iRetVal End If (iRetVal=0) Begin // null MAX_PATH chars into var (make space) Move (Repeat(Character(0), vMAX_PATH)) to sPath // Move (Insert(sFolder,sPath,1)) to sPath Move (vWin32_RemoveDirectory(AddressOf(sPath))) to bRemoved End If (iRetVal=0 And bRemoved=False) Begin Move 1 to iRetVal End Function_Return iRetVal End_Function // This will perform an operation on a file (e.g. open) with the application // registered in the Windows Registry to open that type of file (via its extension) // sOperation would be "OPEN" (it could also be "PRINT" etc). Procedure vShellExecute Global String sOperation String sDocument String sParameters String sPath Handle hInstance hWnd // remove any leading/trailing spaces in the string Move (Trim(sDocument)) to sDocument Move (Trim(sPath)) to sPath // Make the strings readable for windows API, by converting them to null-terminated Append sOperation (Character(0)) Append sDocument (Character(0)) Append sParameters (Character(0)) Append sPath (Character(0)) Get Window_Handle to hWnd Move (vWin32_ShellExecute (hWnd, AddressOf(sOperation), AddressOf(sDocument), AddressOf(sParameters), AddressOf(sPath), 1)) to hInstance If (hInstance <= 32) Begin Send vDDE_Error_Handler hInstance End End_Procedure Class cShellFileOperations is a Array Procedure Construct_Object Forward Send Construct_Object Property Integer piDeleteFlags 0 Property Integer piCopyFlags 0 Property Integer piMoveFlags 0 Property Integer piRenameFlags 0 Set piDeleteFlags to (vFOF_SILENT Ior vFOF_NOCONFIRMATION) Set piCopyFlags to (vFOF_SILENT iOr vFOF_NOCONFIRMMKDIR Ior vFOF_NOCONFIRMATION) Set piMoveFlags to (vFOF_SILENT iOr vFOF_NOCONFIRMMKDIR iOr vFOF_NOCONFIRMATION) Set piRenameFlags to (vFOF_SILENT Ior vFOF_NOCONFIRMATION) End_Procedure // This function uses the shell API to perform a file operation on the // files supplied. // Function FileOperation String sSource String sDestination Integer eOperation Integer iFlags Returns Integer Integer iRetVal Integer iUserAbort tvShFileOpStruct FOS Move (ToAnsi(sSource)+Character(0)+Character(0)) to sSource Move (ToAnsi(sDestination)+Character(0)+Character(0)) to sDestination If (eOperation <> vFO_DELETE) Begin Move (AddressOf(sDestination)) to FOS.pTo End Move eOperation to FOS.wFunc Move (AddressOf(sSource)) to FOS.pFrom Move iFlags to FOS.fFlags Move (vWin32_SHFileOperation(AddressOf(FOS))) to iRetVal Move FOS.fAnyOperationsAborted to iUserAbort If (iUserAbort <> 0) Begin Move 80 to iRetVal // file Operation Aborted by USER End Function_Return (iRetVal) End_Function Function sfoDeleteFile String sFileName Returns Integer Integer iRetVal Integer iFlags Get piDeleteFlags to iFlags Get FileOperation sFileName "" vFO_DELETE iFlags to iRetVal Function_Return iRetVal End_Function Function sfoCopyFile String sSource String sDestination Returns Integer Integer iRetVal Integer iFlags Get piCopyFlags to iFlags Get FileOperation sSource sDestination vFO_COPY iFlags to iRetVal Function_Return iRetVal End_Function Function sfoMoveFile String sSource String sDestination Returns Integer Integer iRetVal Integer iFlags Get piMoveFlags to iFlags Get FileOperation sSource sDestination vFO_MOVE iFlags to iRetVal Function_Return iRetVal End_Function // Rename a file or folder // Returns a nonzero value if the operation failed. Function sfoRenameFile String sSource String sDestination Returns Integer Integer iRetVal Integer iFlags Get piRenameFlags to iFlags Get FileOperation sSource sDestination vFO_RENAME iFlags to iRetVal Function_Return iRetVal End_Function // Courtesy Of Steve Walter // Requires Windows 2000 and up according to msdn but it was // in fact available before that as an unpublished API call // a little google search shows that this was already available // in windows 95 and NT // // The format is controlled by the dialog interface. // That is, the user must click the OK button To actually Begin the format // the format cannot be started programmatically. // An alternative to this functionality would be to use a controlpanel // http://www.vdf-guidance.com/ContribPage.asp?Page=PKGCLSDFCPLAPP&ContribRecId=93 // // hWnd = The windows handle of the object from which the format Function // is called. // To Get this, // use: Get Window_Handle Of