Snippets ( Files & Folders ) - Revision history

Skysnake: /* Windows - Built In ZIP and Unzip (Windows Shell) */

2020-09-20T19:37:51Z

Windows - Built In ZIP and Unzip (Windows Shell)

← Older revision		Revision as of 19:37, 20 September 2020
Line 1,149:		Line 1,149:
	If @error Then Exit MsgBox ($MB_SYSTEMMODAL,"","Error unzipping files : " & @error)		If @error Then Exit MsgBox ($MB_SYSTEMMODAL,"","Error unzipping files : " & @error)
	FileDelete ($sZipNew)		FileDelete ($sZipNew)
	Zip ($~~sZipFile~~, $sFolder)		Zip ($sZipNew, $sFolder)
	If @error Then Exit MsgBox ($MB_SYSTEMMODAL,"","Error zipping files : " & @error)		If @error Then Exit MsgBox ($MB_SYSTEMMODAL,"","Error zipping files : " & @error)

Skysnake: /* Windows - Built In Unzip (Windows Shell) */

2020-09-01T12:14:00Z

Windows - Built In Unzip (Windows Shell)

← Older revision		Revision as of 12:14, 1 September 2020
Line 1,129:		Line 1,129:


	== Windows - Built In Unzip (Windows Shell) ==		== Windows - Built In ZIP and Unzip (Windows Shell) ==

	{{Snippet Header		{{Snippet Header
Line 1,143:		Line 1,143:
	Const $sZipFile = @ScriptDir & "\Test.zip"		Const $sZipFile = @ScriptDir & "\Test.zip"
	Const $sFolder = @ScriptDir & "\Temp"		Const $sFolder = @ScriptDir & "\Temp"
			Const $sZipNew = @ScriptDir & "\Test2.zip"

	DirRemove ($sFolder, $DIR_REMOVE)		DirRemove ($sFolder, $DIR_REMOVE)
	UnZip($sZipFile, $sFolder)		UnZip($sZipFile, $sFolder)
	If @error Then Exit MsgBox ($MB_SYSTEMMODAL,"","Error unzipping files : " & @error)		If @error Then Exit MsgBox ($MB_SYSTEMMODAL,"","Error unzipping files : " & @error)
			FileDelete ($sZipNew)
			Zip ($sZipFile, $sFolder)
			If @error Then Exit MsgBox ($MB_SYSTEMMODAL,"","Error zipping files : " & @error)

	Func UnZip($sZipFile, $sDestFolder)		Func UnZip($sZipFile, $sDestFolder)
Line 1,163:		Line 1,167:
	Next		Next
	EndFunc ;==>UnZip		EndFunc ;==>UnZip

			Func Zip ($sZipFile, $sSourceFolder)
			If FileExists($sZipFile) Then Return SetError (1) ; destination file already exists
			If Not FileExists($sSourceFolder) Then Return SetError (2) ; source does not exist
			Local $hFile = FileOpen ($sZipFile, $FO_CREATEPATH+$FO_OVERWRITE+$FO_BINARY)
			Local Const $sString = Chr(80) & Chr(75) & Chr(5) & Chr(6) & _StringRepeat (Chr(0), 18) ; create ZIP file signature
			FileWrite ($hFile, $sString)
			FileClose($hFile)
			Local $oShell = ObjCreate("shell.application")
			If Not $oShell.NameSpace ($sSourceFolder).items.count Then Return SetError (3) ; folder empty
			Local $iFiles = 0
			For $oFile In $oShell.NameSpace($sSourceFolder).items
			$oShell.NameSpace($sZipFile).copyhere($oFile)
			Do
			Sleep (100) ; let the file being copied to ZIP
			Until $oShell.NameSpace($sZipFile).items.count > $iFiles
			$iFiles = $oShell.NameSpace($sZipFile).items.count
			Next
			EndFunc
	</syntaxhighlight>		</syntaxhighlight>


	[[#top \| ReturnToContents]]		[[#top \| ReturnToContents]]

Skysnake: Added at the end Windows - Built In Unzip (Windows Shell)

2020-08-31T09:18:09Z

Added at the end Windows - Built In Unzip (Windows Shell)

@@ Line 1,126: / Line 1,126: @@
 EndFunc
 </syntaxhighlight>
 [[#top | ReturnToContents]]

Guinness: /* _IsFileOlder */

2014-05-12T19:35:36Z

_IsFileOlder

← Older revision		Revision as of 19:35, 12 May 2014
Line 574:		Line 574:
	<syntaxhighlight lang="autoit">		<syntaxhighlight lang="autoit">
	#include <Date.au3> ; Required for _DateDiff()		#include <Date.au3> ; Required for _DateDiff()
			#include <MsgBoxConstants.au3>
			#include <MsgBoxConstants.au3>

	; Check if the current script is older than 10 days.		; Check if the current script is older than 10 days.
	If _IsFileOlder(@ScriptFullPath, 10) Then		If _IsFileOlder(@ScriptFullPath, 10) Then
	MsgBox(~~4096~~, '', 'File is older than 10 days.')		MsgBox($MB_SYSTEMMODAL, '', 'File is older than 10 days.')
	Else		Else
	MsgBox(~~4096~~, '', 'File isn''t older than 10 days.')		MsgBox($MB_SYSTEMMODAL, '', 'File isn''t older than 10 days.')
	EndIf		EndIf

	; Is a file older than a certain number of days.		; Is a file older than a certain number of days.
	Func _IsFileOlder($sFilePath, $iDays)		Func _IsFileOlder($sFilePath, $iDays)
	Local $aArray = FileGetTime($sFilePath, 0)		Local $aArray = FileGetTime($sFilePath, $FT_CREATED)
	Return _DateDiff('D', $aArray[0] & '/' & $aArray[1] & '/' & $aArray[2] & ' ' & $aArray[3] & ':' & $aArray[4] & ':' & $aArray[5], @YEAR & '/' & @MON & '/' & @MDAY & ' ' & @HOUR & ':' & @MIN & ':' & @SEC) >= $iDays		Return _DateDiff('D', $aArray[0] & '/' & $aArray[1] & '/' & $aArray[2] & ' ' & $aArray[3] & ':' & $aArray[4] & ':' & $aArray[5], @YEAR & '/' & @MON & '/' & @MDAY & ' ' & @HOUR & ':' & @MIN & ':' & @SEC) >= $iDays
	EndFunc ;==>_IsFileOlder		EndFunc ;==>_IsFileOlder

Guinness: /* _IsFile */

2014-05-12T19:34:08Z

_IsFile

← Older revision		Revision as of 19:34, 12 May 2014
Line 536:		Line 536:

	<syntaxhighlight lang="autoit">		<syntaxhighlight lang="autoit">
			ConsoleWrite('IsFile: Using a file - ' & IsFile(@ScriptFullPath) & @CRLF) ; Return 1
			ConsoleWrite('IsFile: Using a directory - ' & IsFile(@ScriptDir) & @CRLF) ; Return 0

	Func IsFile($sFilePath)		Func IsFile($sFilePath)
	Return ~~Number~~(FileExists($sFilePath) And StringInStr(FileGetAttrib($sFilePath), "D", 2, 1) = 0)		Return Int(FileExists($sFilePath) And StringInStr(FileGetAttrib($sFilePath), 'D', Default, 1) = 0)
	EndFunc ;==>~~IsFile~~		EndFunc ;==>IsFilee
	</syntaxhighlight>		</syntaxhighlight>

Guinness: /* _IsDir */

2014-05-12T19:33:33Z

_IsDir

← Older revision		Revision as of 19:33, 12 May 2014
Line 519:		Line 519:
	<syntaxhighlight lang="autoit">		<syntaxhighlight lang="autoit">
	ConsoleWrite("IsDir: Using a file - " & IsDir(@ScriptFullPath) & @CRLF) ; Return 0		ConsoleWrite("IsDir: Using a file - " & IsDir(@ScriptFullPath) & @CRLF) ; Return 0
	~~ConsoleWrite("IsFile: Using a file - " & IsFile(@ScriptFullPath) & @CRLF) ; Return 1~~
	ConsoleWrite("IsDir: Using a directory - " & IsDir(@ScriptDir) & @CRLF) ; Return 1		ConsoleWrite("IsDir: Using a directory - " & IsDir(@ScriptDir) & @CRLF) ; Return 1
	~~ConsoleWrite("IsFile: Using a directory - " & IsFile(@ScriptDir) & @CRLF) ; Return 0~~

	Func IsDir($sFilePath)		Func IsDir($sFilePath)
	Return ~~Number~~(FileExists($sFilePath) And StringInStr(FileGetAttrib($sFilePath), "D", 2, 1) > 0)		Return Int(FileExists($sFilePath) And StringInStr(FileGetAttrib($sFilePath), 'D', Default, 1) > 0)
	EndFunc ;==>IsDir		EndFunc ;==>IsDir
	</syntaxhighlight>		</syntaxhighlight>

Guinness: /* _FileDeleteEx */

2014-05-12T19:24:45Z

_FileDeleteEx

← Older revision		Revision as of 19:24, 12 May 2014
Line 141:		Line 141:
	; Ref: http://msdn.microsoft.com/en-us/library/windows/desktop/aa365240(v=vs.85).aspx		; Ref: http://msdn.microsoft.com/en-us/library/windows/desktop/aa365240(v=vs.85).aspx

	#include <~~APIConstants~~.au3> ~~; Included with WinAPIEx.au3~~		#include <APIFilesConstants.au3>
	#include <~~WinAPIEx~~.au3> ~~; Download From http://www.autoitscript.com/forum/topic/98712-winapiex-udf/ by Yashied.~~		#include <WinAPIFiles.au3>

	ConsoleWrite(_FileDeleteEx("C:\Example.dat") & @LF)		ConsoleWrite(_FileDeleteEx("C:\Example.dat") & @CRLF)

	Func _FileDeleteEx($sFilePath)		Func _FileDeleteEx($sFilePath)
	~~Local $iReturn =~~ FileDelete($sFilePath)		Return FileDelete($sFilePath) = 1 ? 1 : Int(_WinAPI_MoveFileEx(FileGetShortName($sFilePath), "", $MOVE_FILE_DELAY_UNTIL_REBOOT))
	~~If $iReturn Then~~
	~~Return $iReturn~~
	~~EndIf~~
	~~Return~~ _WinAPI_MoveFileEx(FileGetShortName($sFilePath), "", $MOVE_FILE_DELAY_UNTIL_REBOOT)
	EndFunc ;==>_FileDeleteEx		EndFunc ;==>_FileDeleteEx
	</syntaxhighlight>		</syntaxhighlight>

Guinness: /* DropFiles */

2014-05-12T19:21:05Z

DropFiles

← Older revision		Revision as of 19:21, 12 May 2014
Line 87:		Line 87:
	Local $aReturn = _WinAPI_DragQueryFileEx($iwParam)		Local $aReturn = _WinAPI_DragQueryFileEx($iwParam)
	If IsArray($aReturn) Then		If IsArray($aReturn) Then
	~~Local $aError[1] = [0]~~
	$__aDropFiles = $aReturn		$__aDropFiles = $aReturn
	Else		Else
			Local $aError[1] = [0]
	$__aDropFiles = $aError		$__aDropFiles = $aError
	EndIf		EndIf

JohnOne: /* _FileRename */

2014-03-01T20:36:22Z

_FileRename

← Older revision		Revision as of 20:36, 1 March 2014
Line 409:		Line 409:
	EndFunc ;==>_FileRename		EndFunc ;==>_FileRename
	</syntaxhighlight>		</syntaxhighlight>

			== _FileRename Alternative ==

	<syntaxhighlight lang="autoit">		<syntaxhighlight lang="autoit">

	;FileRename(PathFile, RenameFile		;FileRename(PathFile, RenameFile)
			;JohnOne

	FileRename(@ScriptDir & "\rename.txt", @ScriptDir & "\renamed.txt")		FileRename(@ScriptDir & "\rename.txt", @ScriptDir & "\renamed.txt")

JohnOne: /* _FileRename */

2014-03-01T20:35:11Z

_FileRename

@@ Line 408: / Line 408: @@
      Return SetError(Not $_FileMove, $_NewFileExists, $_FileMove)
 EndFunc   ;==>_FileRename
 </syntaxhighlight>