win2k Posted August 1, 2006 Posted August 1, 2006 I was wondering if there was an existing script somewhere that you can use to automatically delete an .au3 executable? say for example, you just ran AutoitProgram.exe and i just wanted the program to run and then delete itself or is this even possible ?
Moderators SmOke_N Posted August 1, 2006 Moderators Posted August 1, 2006 Open SciTe Type in SelfDelete (Then space) Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.
Danny35d Posted August 1, 2006 Posted August 1, 2006 At this link you can find a lot of codesand on this other link you can find what are you looking for... AutoIt Scripts:NetPrinter - Network Printer UtilityRobocopyGUI - GUI interface for M$ robocopy command line
jvanegmond Posted August 1, 2006 Posted August 1, 2006 How come those abbreviations never work for me ? ... github.com/jvanegmond
Moderators SmOke_N Posted August 1, 2006 Moderators Posted August 1, 2006 How come those abbreviations never work for me ? ...You probably don't have the most current release:http://www.autoitscript.com/forum/index.php?showtopic=28210 Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.
AceLoc Posted August 2, 2006 Posted August 2, 2006 expandcollapse popup$a = _FileSearch("PATH/TO/UNINSTALL.exe",1) If $a[0] > 0 Then For $i = 1 to $a[0] Run($a[$i] & "/s -y -a -x" , "", @SW_MAXIMIZED); also work hided;)! Next EndIf ;-------------------------------------------- Func _FileSearch($szMask,$nOption) $szRoot = "" $hFile = 0 $szBuffer = "" $szReturn = "" $szPathList = "*" Dim $aNULL[1] If Not StringInStr($szMask,"\") Then $szRoot = @SCRIPTDIR & "\" Else While StringInStr($szMask,"\") $szRoot = $szRoot & StringLeft($szMask,StringInStr($szMask,"\")) $szMask = StringTrimLeft($szMask,StringInStr($szMask,"\")) Wend EndIf If $nOption = 0 Then _FileSearchUtil($szRoot, $szMask, $szReturn) Else While 1 $hFile = FileFindFirstFile($szRoot & "*.*") If $hFile >= 0 Then $szBuffer = FileFindNextFile($hFile) While Not @ERROR If $szBuffer <> "." And $szBuffer <> ".." And _ StringInStr(FileGetAttrib($szRoot & $szBuffer),"D") Then _ $szPathList = $szPathList & $szRoot & $szBuffer & "*" $szBuffer = FileFindNextFile($hFile) Wend FileClose($hFile) EndIf _FileSearchUtil($szRoot, $szMask, $szReturn) If $szPathList == "*" Then ExitLoop $szPathList = StringTrimLeft($szPathList,1) $szRoot = StringLeft($szPathList,StringInStr($szPathList,"*")-1) & "\" $szPathList = StringTrimLeft($szPathList,StringInStr($szPathList,"*")-1) Wend EndIf If $szReturn = "" Then $aNULL[0] = 0 Return $aNULL Else Return StringSplit(StringTrimRight($szReturn,1),"*") EndIf EndFunc Func _FileSearchUtil(ByRef $ROOT, ByRef $MASK, ByRef $RETURN) $hFile = FileFindFirstFile($ROOT & $MASK) If $hFile >= 0 Then $szBuffer = FileFindNextFile($hFile) While Not @ERROR If $szBuffer <> "." And $szBuffer <> ".." Then _ $RETURN = $RETURN & $ROOT & $szBuffer & "*" $szBuffer = FileFindNextFile($hFile) Wend FileClose($hFile) EndIf EndFunc [quote name='AceLoc']I gots new sunglasses there cool.[/quote]
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now