As the idiom says "There's more than one way to skin a cat."
Note: For these functions to work correctly you will require WinAPIEx.au3 by Yashied to be added to either the Include folder located in the install path of AutoIt or the location of where you save these functions.
Even though some of these examples aren't 'speedy' I decided to create them anyway to showcase that the Windows API has a lot to offer when creating an application or code. In the past I've found that after creating a convoluted function that a simple API call would've been suffice.
My gratitude goes towards Yashied as well as the author(s) of the original functions (in File.au3) as without the initial idea(s) I wouldn't have created these functions.
Any comments or suggestions then please post below. Thanks.
Example use of _PathSplitEx:
AutoIt
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7 #include <Array.au3> #include <File.au3> #include <WinAPIEx.au3> ; Download From http://www.autoitscript.com/forum/topic/98712-winapiex-udf/ by Yashied. Local $aArray = 0, $hTimer = 0, $sDirectory = '', $sDrive = '', $sExtension = '', $sFileName = '' ; Variables to be used with _PathSplit() & _PathSplitEx() $hTimer = TimerInit() $aArray = _PathSplit(@ScriptFullPath, $sDrive, $sDirectory, $sFileName, $sExtension) $hTimer = TimerDiff($hTimer) ConsoleWrite('Orignal: ' & @ScriptFullPath & @CRLF & _ 'Drive: ' & $sDrive & @CRLF & _ 'Directory: ' & $sDirectory & @CRLF & _ 'FileName: ' & $sFileName & @CRLF & _ 'Extension: ' & $sExtension & @CRLF & _ '_PathSplit Time: ' & $hTimer & @CRLF & @CRLF) _ArrayDisplay($aArray, '_PathSplit in AutoIt') $hTimer = TimerInit() $aArray = _PathSplitEx(@ScriptFullPath, $sDrive, $sDirectory, $sFileName, $sExtension) $hTimer = TimerDiff($hTimer) ConsoleWrite('Orignal: ' & @ScriptFullPath & @CRLF & _ 'Drive: ' & $sDrive & @CRLF & _ 'Directory: ' & $sDirectory & @CRLF & _ 'FileName: ' & $sFileName & @CRLF & _ 'Extension: ' & $sExtension & @CRLF & _ '_PathSplitEx() Time: ' & $hTimer & @CRLF & @CRLF) _ArrayDisplay($aArray, '_PathSplitEx by guinness') Func _PathSplitEx($sFilePath, ByRef $sDrive, ByRef $sDirectory, ByRef $sFileName, ByRef $sExtension) ; Created by guinness with the idea from _PathSplit(). Local $aReturn[5] = [$sFilePath, _ StringTrimRight(_WinAPI_PathStripToRoot($sFilePath), 1), _ ; Required to mimic the return style of _PathSplit(). _WinAPI_PathRemoveBackslash() doesn't work on the drive path. '' & _WinAPI_PathSkipRoot(_WinAPI_PathRemoveFileSpec($sFilePath)) & '', _ ; are required to mimic the return style of _PathSplit(). _WinAPI_PathStripPath(_WinAPI_PathRemoveExtension($sFilePath)), _ _WinAPI_PathFindExtension($sFilePath)] $sDrive = $aReturn[1] $sDirectory = $aReturn[2] $sFileName = $aReturn[3] $sExtension = $aReturn[4] Return $aReturn EndFunc ;==>_PathSplitEx
Example use of _PathGetRelativeEx:
AutoIt
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7 #include <File.au3> #include <WinAPIEx.au3> ; Download From http://www.autoitscript.com/forum/topic/98712-winapiex-udf/ by Yashied. Local $hTimer = 0, $sFilePath = '' $hTimer = TimerInit() $sFilePath = _PathGetRelative(@ScriptDir, @ScriptFullPath) $hTimer = TimerDiff($hTimer) ConsoleWrite('Original Path: ' & @ScriptFullPath & @CRLF & _ 'Relative Path: ' & $sFilePath & @CRLF & _ '_PathGetRelative() Time: ' & $hTimer & @CRLF & @CRLF) $hTimer = TimerInit() $sFilePath = _PathGetRelativeEx(@ScriptDir, @ScriptFullPath) $hTimer = TimerDiff($hTimer) ConsoleWrite('Original Path: ' & @ScriptFullPath & @CRLF & _ 'Relative Path: ' & $sFilePath & @CRLF & _ '_PathGetRelativeEx() Time: ' & $hTimer & @CRLF & @CRLF) Func _PathGetRelativeEx($sFrom, $sTo) ; Created by guinness with the idea from _PathGetRelative(). Local $iIsFolder = 0 If _WinAPI_PathIsDirectory($sTo) Then ; Check the destination path is a directory or file path. $sTo = _WinAPI_PathAddBackslash($sTo) ; Add a backslash to the directory. $iIsFolder = 1 EndIf Local $sRelativePath = _WinAPI_PathRelativePathTo(_WinAPI_PathAddBackslash($sFrom), 1, $sTo, $iIsFolder) ; Retrieve the relative path. If @error Then Return SetError(1, 0, $sTo) EndIf If $sRelativePath = '.' Then $sRelativePath &= '' ; This is used when the source and destination are the same directory. EndIf Return $sRelativePath EndFunc ;==>_PathGetRelativeEx
Example use of _PathFullEx:
AutoIt
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7 #include <File.au3> #include <WinAPIEx.au3> ; Download From http://www.autoitscript.com/forum/topic/98712-winapiex-udf/ by Yashied. Local $hTimer = 0, $sFilePath = '' $hTimer = TimerInit() $sFilePath = _PathFull('.' & @ScriptName, @ScriptDir) $hTimer = TimerDiff($hTimer) ConsoleWrite('Original Path: ' & '.' & @ScriptName & @CRLF & _ 'Full Path: ' & $sFilePath & @CRLF & _ '_PathFull() Time: ' & $hTimer & @CRLF & @CRLF) $hTimer = TimerInit() $sFilePath = _PathFullEx('.' & @ScriptName, @ScriptDir) $hTimer = TimerDiff($hTimer) ConsoleWrite('Original Path: ' & '.' & @ScriptName & @CRLF & _ 'Full Path: ' & $sFilePath & @CRLF & _ '_PathFullEx() Time: ' & $hTimer & @CRLF & @CRLF) Func _PathFullEx($sRelativePath, $sBasePath = @WorkingDir) ; Created by guinness with the idea from _PathFull(). Local $sWorkingDir = @WorkingDir _WinAPI_SetCurrentDirectory($sBasePath) ; Same as using FileChangeDir(). Change the working directory of the current process to the base path as _WinAPI_GetFullPathName() merges the name of the current drive and directory with the specified file name. $sRelativePath = _WinAPI_GetFullPathName($sRelativePath) _WinAPI_SetCurrentDirectory($sWorkingDir) ; Reset the working directory to the previous path. Return $sRelativePath EndFunc ;==>_PathFullEx
All of the above has been included in a ZIP file.
_Path_ Functions (WinAPIEx).zip 2.38KB
81 downloads
Edited by guinness, 08 October 2012 - 09:30 PM.
