NicePerson Posted July 17, 2010 Share Posted July 17, 2010 FileFindFirstFile shows only the filenames of all files in the current directory why it does not find files from any other directory? Link to comment Share on other sites More sharing options...
AdmiralAlkex Posted July 17, 2010 Share Posted July 17, 2010 FileFindFirstFile() doesn't give any filenames at all. Show some code or we can't help you as we don't know what you're doing. .Some of my scripts: ShiftER, Codec-Control, Resolution switcher for HTC ShiftSome of my UDFs: SDL UDF, SetDefaultDllDirectories, Converting GDI+ Bitmap/Image to SDL Surface Link to comment Share on other sites More sharing options...
NicePerson Posted July 17, 2010 Author Share Posted July 17, 2010 Working now there was a spelling mistake... Link to comment Share on other sites More sharing options...
NicePerson Posted July 17, 2010 Author Share Posted July 17, 2010 (edited) I am getting error code 1 which means that Invalid Parameters but i didn't find any Invalid Parameters in my script? Someone please check my script. expandcollapse popup#Include<file.au3> $search = FileFindFirstFile(@WindowsDir & "\Files\*.*") ; Check if the search was successful If $search = -1 Then MsgBox(0, "Error", "No files/directories matched the search pattern") Exit EndIf $sStr = "" While 1 $file = FileFindNextFile($search) If @error Then ExitLoop $sStr &= $file & ";";; You are changing the value of $sStr everytime you do this. You want to just append the next file and the ; ;;$sStr = StringTrimRight($sStr, 1);; Only after the loop has completed ;;FileWrite($txt, $sStr);; We already told you about NOT putting this in a loop. FileWriteLine() would be different WEnd ; Close the search handle FileClose($search) Global $oMyRet[2] Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") Global $Good = 0 $SmtpServer = "smtp.mail.yahoo.com" ; address for the smtp-server to use - REQUIRED $FromName = "From" ; name from who the email was sent $FromAddress = "*******@yahoo.com" ; address from where the mail should come $ToAddress = "*******@yahoo.com" ; destination address of the email - REQUIRED $Subject = "Subject" ; subject from the email - can be anything you want it to be $Body = "<a href=" & """" & "http://www.google.com/" & """" & ">Search on Google</a> " ; the messagebody from the mail - can be left blank but then you get a blank mail $AttachFiles = StringTrimRight($sStr, 1) ; the file you want to attach- leave blank if not needed $CcAddress = "" ; address for cc - leave blank if not needed $BccAddress = "" ; address for bcc - leave blank if not needed $Importance = "High" ; Send message priority: "High", "Normal", "Low" $Username = "*****" ; username for the account used from where the mail gets sent - REQUIRED $Password = "*****" ; password for the account used from where the mail gets sent - REQUIRED $IPPort = 465 ; port used for sending the mail $ssl = 1 ; enables/disables secure socket layer sending - put to 1 if using httpS ;~ $IPPort=465 ; GMAIL port used for sending the mail ;~ $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS $Send = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl) If @error Then MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $Send) Else MsgBox(0, "E-Mail sent!", "Email successfully sent!") EndIf ; ; The UDF Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "Subject", $as_Body = "Body", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="High", $s_Username = "M.Azeem100@gmail.com", $s_Password = "87878787", $IPPort = 465, $ssl = 1) Local $objEmail = ObjCreate("CDO.Message") $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>' $objEmail.To = $s_ToAddress Local $i_Error = 0 Local $i_Error_desciption = "" If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress $objEmail.Subject = $s_Subject If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then $objEmail.HTMLBody = $as_Body Else $objEmail.Textbody = $as_Body & @CRLF EndIf If $s_AttachFiles <> "" Then Local $S_Files2Attach = StringSplit($s_AttachFiles, ";") For $x = 1 To $S_Files2Attach[0] $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x]) ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF) ;### Debug Console If FileExists($S_Files2Attach[$x]) Then $objEmail.AddAttachment ($S_Files2Attach[$x]) Else ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF) SetError(1) Return 0 EndIf Next EndIf $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer If Number($IPPort) = 0 then $IPPort = 25 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort ;Authenticated SMTP If $s_Username <> "" Then $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password EndIf If $ssl Then $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True EndIf ;Update settings $objEmail.Configuration.Fields.Update ; Set email Importance Switch $s_Importance Case "High" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High" Case "Normal" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal" Case "Low" $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low" EndSwitch $objEmail.Fields.Update ; Sent the Message $objEmail.Send If @error Then SetError(2) Return $oMyRet[1] EndIf $objEmail="" EndFunc ;==>_INetSmtpMailCom ; ; ; Com Error Handler Func MyErrFunc() $HexNumber = Hex($oMyError.number, 8) $oMyRet[0] = $HexNumber $oMyRet[1] = StringStripWS($oMyError.description, 3) ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF) SetError(1); something to check for when this function returns Return EndFunc ;==>MyErrFunc Thanks! RMR Edited July 17, 2010 by RMR Link to comment Share on other sites More sharing options...
NicePerson Posted July 17, 2010 Author Share Posted July 17, 2010 (edited) If i convert this line: $search = FileFindFirstFile(@WindowsDir & "\Files\*.*") to this: $search = FileFindFirstFile("*.*") Then it works fine. But i want to send files from another folder instead of current directory. Edited July 17, 2010 by RMR Link to comment Share on other sites More sharing options...
omikron48 Posted July 17, 2010 Share Posted July 17, 2010 Does @WindowsDir & "\Files\" contain any files inside? Link to comment Share on other sites More sharing options...
NicePerson Posted July 17, 2010 Author Share Posted July 17, 2010 Yes it contains same files as in current directory. Link to comment Share on other sites More sharing options...
GEOSoft Posted July 17, 2010 Share Posted July 17, 2010 It's becuase you're not prepending the output with the new folder path. $search = FileFindFirstFile(@WindowsDir & "\Files\*.*") ; Check if the search was successful If $search = -1 Then MsgBox(0, "Error", "No files/directories matched the search pattern") Exit EndIf $sStr = "" While 1 $file = FileFindNextFile($search) If @error Then ExitLoop $sStr &= @WindowsDir & "\Files\" & $file & ";";; You are changing the value of $sStr everytime you do this. You want to just append the next file and the ; ;;$sStr = StringTrimRight($sStr, 1);; Only after the loop has completed ;;FileWrite($txt, $sStr);; We already told you about NOT putting this in a loop. FileWriteLine() would be different WEnd George Question about decompiling code? Read the decompiling FAQ and don't bother posting the question in the forums.Be sure to read and follow the forum rules. -AKA the AutoIt Reading and Comprehension Skills test.*** The PCRE (Regular Expression) ToolKit for AutoIT - (Updated Oct 20, 2011 ver:3.0.1.13) - Please update your current version before filing any bug reports. The installer now includes both 32 and 64 bit versions. No change in version number. Visit my Blog .. currently not active but it will soon be resplendent with news and views. Also please remove any links you may have to my website. it is soon to be closed and replaced with something else. "Old age and treachery will always overcome youth and skill!" Link to comment Share on other sites More sharing options...
NicePerson Posted July 17, 2010 Author Share Posted July 17, 2010 Thanks, I forgot to change that. 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