XavierNu Posted August 28, 2014 Share Posted August 28, 2014 Hey Forum, I'm a real programming/AutoIT newbie. I've only been doing either for about 6 months, but with a lot of time spent in the help file and some really good people here I've written the script I needed. It works, but there is one issue. I have a message box set to confirm whether a task was completed successfully or not. The problem is after the script has run successfully I still get 3-4 more instances of the "failure" message. I'm not even sure if I explained this well in words let alone how to fix it. Here is a bit of my script. I'm sure there are a billion better ways to do what I did, but this worked for me and I understood why it worked. Thanks for the help!!! CompPrep_WORKS_w_Documents.au3 expandcollapse popup#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.10.2 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #include <FileConstants.au3> #include <MsgBoxConstants.au3> ; Read a list of computer names from a text file on local machine. Global Const $sCompListFile = @DesktopDir & "\NewComputers.txt" Global $aCompList = FileReadToArray($sCompListFile) Global Const $aDataDrv = "\\dktp434932\WLIQ_Class_Folders\Software_Install_Files" If @error Then MsgBox(6, "File Error", "Could Not Open File", 5) Exit EndIf For $I = 0 To UBound($aCompList) - 1 CopyFiles($aCompList[$I]) Next ; Copy files to computer names listed in text file read previously. Func CopyFiles($CompList) Local Const $DOCS = "\\" & $CompList & "\C\Users\hesadmin\Documents\INSITE 101" ; Removes existing insite 101 folder $rtn00 = DirRemove($DOCS, 1) Sleep(10000) If $rtn00 = 0 Then MsgBox(0, "INSITE 101", "Directory Remove Failed", 5) ElseIf $rtn00 = 1 Then MsgBox(0, "INSITE 101", "Directory Remove Successful", 5) EndIf ;Copy Class files in the working directory to a new folder/directory called Scripts. DirCopy($aDataDrv & "\Documents\INSITE 101", $DOCS, $FC_OVERWRITE) If DirGetSize($DOCS) >= 0 Then MsgBox(0, "INSITE 101", "Copy Complete", 5) ElseIf DirGetSize($DOCS) = @error Then MsgBox(0, "INSTIE 101", "Copy Failed!", 5) EndIf EndFunc Link to comment Share on other sites More sharing options...
Developers Jos Posted August 28, 2014 Developers Share Posted August 28, 2014 Maybe a couple of empty records in NewComputers.txt that you are processing? Jos SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
Bert Posted August 28, 2014 Share Posted August 28, 2014 Would it be better if while testing you use consolewrite instead of a msgbox? Also if you really need logging use a txt file in the future so you can see stuff even when the script has exited. You also have in your script if the script is successful or not with msgboxes on both. The Vollatran project My blog: http://www.vollysinterestingshit.com/ Link to comment Share on other sites More sharing options...
XavierNu Posted August 28, 2014 Author Share Posted August 28, 2014 Guys thanks for the suggestions! I have deleted other comp names out of my text file so the cell may still be there. I also think I will remove the msgbox for @error since I can always check the remote machine to see if anything has changed. Link to comment Share on other sites More sharing options...
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