Hallo Leute,
ich muß einmal in der Woche Firmenintern auf über 100 Server zugreifen und die Größe einer Datei checken. Hab mir dazu ein script erstellt. Nur hab ich dabei ein kleines Problem
_FTP_FileGetSize funzt nicht ganz. Im Gegensatz zu dem Befehl FileGetSize krieg ich irgendeine Zahlenkombination daher --> aber keine Kilobytes. Gibts da irgendeine Möglichkeit??
lg
Jogi
Hallo JoGi.
_FTP_FileGetSize gibt eine Zahl zurück, das sind die Bytes.
Kannst du mit Mathematik in KB, MB etc. umwandeln 
Ich checks nicht.
Wenn ich diese besagte Datei downloade und sie mit FILEGETSIZE überprüfe dann bekomme ich als Antwort 116224 (Das sind 116 kB). So soll es sein und so ist es auch. Greife ich aber mit _FTP_FileGetsize darauf zu bekomme ich immer 4294967295. Egal ob die Datei 116kB hat oder nur 100kB. Da läuft doch garantiert was falsch. Und garantiert bin ich dran schuld 
Liegt doch immer am Programmierer.
Unten der besagte Auszug aus meinem Script
Die Variablen habe ich vorher deklariert (username und passwort)
Einzig die IP Adressen lese ich über FileReadLine aus einem txt File aus
$Open = _FTP_Open('MyFTP Control')
$Conn = _FTP_Connect($Open, $IP, $username, $pass)
$FileSize = _FTP_FileGetSize($Conn, "Datei.exe")
If @error then
_GUICtrlEdit_AppendText($Edit1, "Keine Verindung_" & $IP & @CRLF)
Else
_GUICtrlEdit_AppendText($Edit1, "Datei OK_" & $IP & "_" & $FileSize & @CRLF)
EndIf
$Ftpc = _FTP_Close($Open)Hi,
das Ergebnis ist ein die Dateigröße als uint64.
Aber das ist eigentlich nur unter mysql relevant.
Kanst du net
FileGetSize
[/autoit]nutzen?
Oder du schaust mal unter Google was "Autoit uint64" zurückgibt.
MfG
Der_Doc
Das was mich am meisten wundert ist die Größe der Datei mit 4294967295, das ist nämlich 0xFFFFFFFF, sehr ungewöhnlich, da der Server im Zweifelsfall als Größe 0 zurückgibt.
Entweder benutzt du eine nicht aktuelle FTPex.AU3, oder sonst ist irgendetwas faul.
Funktioniert das Beispielscript aus der Hilfe zu _FTP_FileGetSize?
Dort wird die Dateigröße des (zuerst gefundenen Verzeichnisses "Contrib" ) auch mit 0 angegeben, aber die Dateigröße von der Datei "Public-Key" wird richtigerweise mit 2201 zurückgegeben.
Ich gehe einfach mal davon aus, daß du die bei UNIX-Servern nötige Groß/Kleinschreibung beachtest.
Das Beispiel aus der Hilfe:
#include <FTPEx.au3>
#include <Array.au3>
$server = 'ftp.csx.cam.ac.uk'
$username = ''
$pass = ''
$Open = _FTP_Open('MyFTP Control')
$Conn = _FTP_Connect($Open, $server, $username, $pass)
$dirset=_FTP_DirSetCurrent($Conn, "/pub/software/programming/pcre/")
$FileSize = _FTP_FileGetSize($Conn, "Public-Key")
MsgBox(262144,'Debug line ~' & @ScriptLineNumber,'Selection:' & @lf & '$FileSize' & @lf & @lf & 'Return:' & @lf & $FileSize) ;### Debug MSGBOX
Local $h_Handle
$aFile = _FTP_FindFileFirst($Conn, "/pub/software/programming/pcre/", $h_Handle)
_arraydisplay($afile)
ConsoleWrite('$Filename = ' & $aFile[10] & ' attribute = ' & $aFile[1] & ' -> Error code: ' & @error & ' extended: ' & @extended & @crlf)
$dirset=_FTP_DirSetCurrent($Conn, "/pub/software/programming/pcre/")
ConsoleWrite('$dirset = ' & $dirset & ' -> Error code: ' & @error & ' extended: ' & @extended & @crlf)
$FileSize = _FTP_FileGetSize($Conn, $aFile[10])
ConsoleWrite('$Filename = ' & $aFile[10] & ' size = ' & $FileSize & ' -> Error code: ' & @error & ' extended: ' & @extended & @crlf)
Local $Err, $Message
$FileSize = _FTP_GetLastResponseInfo($Err, $Message) ; error = Contrib: Not a regular file
ConsoleWrite('$Message = ' & $Message & ' err = ' & $Err & ' -> Error code: ' & @error & ' extended: ' & @extended & @crlf)
$aFile = _FTP_FindFileNext($h_Handle)
ConsoleWrite('$FilenameNext1 = ' & $aFile[10] & ' attribute = ' & $aFile[1] & ' -> Error code: ' & @error & ' extended: ' & @extended & @crlf)
$FileSize = _FTP_FileGetSize($Conn, $aFile[10])
ConsoleWrite('$FilenameNext1 = ' & $aFile[10] & ' size = ' & $FileSize & ' -> Error code: ' & @error & ' extended: ' & @extended & @crlf)
$FileSize = _FTP_GetLastResponseInfo($Err, $Message) ; no error
ConsoleWrite('$Message = ' & $Message & ' err = ' & $Err & ' -> Error code: ' & @error & ' extended: ' & @extended & @crlf)
$FindClose = _FTP_FindFileClose($h_Handle)
[/autoit] [autoit][/autoit] [autoit]$Ftpc = _FTP_Close($Open)
[/autoit]Hab den _FTP_GetFileSize Befehl mal getauscht gegen INETGetSize.
Komischerweise krieg ich da auch die 4294967295 zurück !!
Wird mir wohl nichts anderes übrig bleiben als das File downloaden -
FileGetSize und löschen....
Da kommt wieder einiges an Datenvolumen zusammen
Probier mal folgendes:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <FTPEx.au3>
#include <Array.au3>
$server = 'ftp.csx.cam.ac.uk'
$username = ''
$pass = ''
$Open = _FTP_Open('MyFTP Control')
$Conn = _FTP_Connect($Open, $server, $username, $pass)
Local $h_Handle, $aFiles[1][2] = [[0, 0]], $i = 0
$aFile = _FTP_FindFileFirst($Conn, "/pub/software/programming/pcre/", $h_Handle)
Do
ReDim $aFiles[$i + 1][2]
$aFiles[$i][0] = $aFile[10]
$aFiles[$i][1] = $aFile[9]
$i += 1
$aFile = _FTP_FindFileNext($h_Handle)
Until @error
_ArrayPrint($aFiles)
;~ _ArrayDisplay($aFiles)
$FindClose = _FTP_FindFileClose($h_Handle)
[/autoit] [autoit][/autoit] [autoit]$Ftpc = _FTP_Close($Open)
[/autoit] [autoit][/autoit] [autoit]; #Function# ===========================================================================================================================================
; Name............: _ArrayPrint
; Description.....: Prints a one or two dimensional array as a table into the console or just returns the table as string
; Syntax..........: _ArrayPrint($aArray)
; Parameters......:
; $aArray - The Array to print; with one or two dimensions
; $bConsole - [optional] If False the table will not be printed to the console and only returned
; Return values...:
; Success - The table as string
; Failure v
; -1 - $aArray is not an array
; -2 - $aArray has more than two dimensions
; Author .........: FichteFoll
; Modified........:
; Remarks ........:
; Related ........: __Max (or _Max from Math.au3)
; Link ...........;
; Example ........; _ArrayPrint(WinList())
; ======================================================================================================================================================
Func _ArrayPrint($aArray, $bConsole = True)
If Not IsArray($aArray) Then Return -1
Switch UBound($aArray, 0)
Case 1
Local $sLine, $sOutput = ''
Local $aiLenMax[2] = [__Max(StringLen(String(UBound($aArray, 1) - 1)), 3), 0], _
$acFlag[2] = ['', ''] ; "Row" = 3
For $i = 0 To UBound($aArray, 1) - 1
$aiLenMax[1] = __Max(StringLen(String($aArray[$i])), $aiLenMax[1])
If IsString($aArray[$i]) Then $acFlag[1] = '-'
Next
; Header
$sLine = StringFormat('+ %' & $acFlag[0] & $aiLenMax[0] & 's + %' & $acFlag[1] & $aiLenMax[1] & 's +', 'Row', 'Content')
$sOutput &= $sLine
If Not @Compiled Then $sLine = '- ' & $sLine
If $bConsole Then ConsoleWrite($sLine & @CRLF)
; Lines
For $i = 0 To UBound($aArray, 1) - 1
$sLine = StringFormat('| %' & $acFlag[0] & $aiLenMax[0] & 'd | %' & $acFlag[1] & $aiLenMax[1] & 's +', $i, StringReplace(String($aArray[$i]), "'", "\'"))
$sOutput &= @CRLF & $sLine
If Not @Compiled Then $sLine = '> ' & $sLine
If $bConsole Then ConsoleWrite($sLine & @CRLF)
Next
; Footer
$sLine = '+'
For $i = 0 To 1
$sLine &= '-'
For $j = 1 To $aiLenMax[$i]
$sLine &= '-'
Next
$sLine &= '-+'
Next
$sOutput &= @CRLF & $sLine
If Not @Compiled Then $sLine = '- ' & $sLine
If $bConsole Then ConsoleWrite($sLine & @CRLF)
Return $sOutput
[/autoit] [autoit][/autoit] [autoit]Case 2
Local $sExec, $sLine, $sOutput = ''
Local $aiElmts[2] = [UBound($aArray, 1), UBound($aArray, 2)], _
$aiLenMax[$aiElmts[1] + 1], _
$acFlag[$aiElmts[1] + 1]
$aiLenMax[0] = __Max(StringLen(String(UBound($aArray, 1) - 1)), 3) ; "Row" = 3
$acFlag[0] = '-'
For $j = 0 To $aiElmts[1] - 1
$aiLenMax[$j + 1] = StringLen(String(UBound($aArray, 2) - 1)) + 4 ; "Col_" = 4
Next
For $i = 0 To $aiElmts[0] - 1
For $j = 0 To $aiElmts[1] - 1
$aiLenMax[$j + 1] = __Max(StringLen(String($aArray[$i][$j])), $aiLenMax[$j + 1])
If IsString($aArray[$i][$j]) Then $acFlag[$j + 1] = '-'
Next
Next
; Header
$sExec = "StringFormat('+ %" & $acFlag[0] & $aiLenMax[0] & "s"
For $j = 0 To $aiElmts[1] - 1
$sExec &= " + %" & $acFlag[$j + 1] & $aiLenMax[$j + 1] & "s"
Next
$sExec &= " +', 'Row'"
For $j = 0 To $aiElmts[1] - 1
$sExec &= ", 'Col_" & $j & "'"
Next
$sExec &= ")"
$sLine = Execute($sExec)
$sOutput &= $sLine
If Not @Compiled Then $sLine = '- ' & $sLine
If $bConsole Then ConsoleWrite($sLine & @CRLF)
; Lines
For $i = 0 To $aiElmts[0] - 1
$sExec = "StringFormat('| %" & $aiLenMax[0] & "d"
For $j = 0 To $aiElmts[1] - 1
$sExec &= " | %" & $acFlag[$j + 1] & $aiLenMax[$j + 1] & "s"
Next
$sExec &= " |', " & $i
For $j = 0 To $aiElmts[1] - 1
$sExec &= ", '" & StringReplace(String($aArray[$i][$j]), "'", "\'") & "'"
Next
$sExec &= ")"
$sLine = Execute($sExec)
$sOutput &= @CRLF & $sLine
If Not @Compiled Then $sLine = '> ' & $sLine
If $bConsole Then ConsoleWrite($sLine & @CRLF)
Next
; Footer
$sLine = '+'
For $i = 0 To $aiElmts[1]
$sLine &= '-'
For $j = 1 To $aiLenMax[$i]
$sLine &= '-'
Next
$sLine &= '-+'
Next
$sOutput &= @CRLF & $sLine
If Not @Compiled Then $sLine = '- ' & $sLine
If $bConsole Then ConsoleWrite($sLine & @CRLF)
Return $sOutput
Case Else
EndSwitch
[/autoit] [autoit][/autoit] [autoit]Return -2
EndFunc ;==>_ArrayPrint
Func __Max($nNum1, $nNum2)
If $nNum1 > $nNum2 Then Return $nNum1
Return $nNum2
EndFunc ;==>__Max
Und vergleich die Dateigrößen in der Konsole mit den per HTML sichtbaren: ftp://ftp.csx.cam.ac.uk/pub/software/programming/pcre/
Bei mir funktioniert das super, wenn es bei dir nicht funktioniert, liegt es bestimmt an deiner FTPEx.au3 oder AutoIt Version.
PS: _ArrayDisplay hat mich irgendwie dazu inspiriert _ArrayPrint zu basteln...
FichteFoll, wie du aus seinem geposteten Ergebnis beim _FTP_GetFileSize()-Beispielscript sehen kannst, werden ja die richtigen Ergebnisse (u.a. Dateigrößen) ermittelt!
Ich kann nur nicht ganz nachvollziehen, wieso er bei einer x-beliebigen Datei aus dem Internet richtige Dateigrößen erhält, und bei seinen eigenen Dateien nicht...
Ich habe allerdings die Größe von _FTP_FileFindFirst zurückgeben lassen.
Wie auch immer, es wird wohl an seinen Servern liegen... Wirklich merkwürdig.
Also ich benutze die Autoitversion 3.3.6.1 und mit diesem Skript
#include <FTPEx.au3>
Dim $Datei = "test.txt" ; Datei auf dem FTP Server
Dim $Ftppath = "/ftp/" ; Ordner auf dem FTPserver
;Dim $Pfad = "d:\autoit\update\"
Dim $server = "server"
Dim $user = "user"
Dim $pass = "passwort"
_ftp()
Func _ftp()
$FTP_open = _FTP_Open("myftp")
If @error Then
MsgBox(4096, "Fehler FTP Verbindung oeffnen", "Es ist ein Fehler beim Versuch einer FTP Verbindung aufgetreten." &@CRLF& _
"Die Anwendung wird beendet!")
Exit
EndIf
$FTP_Connect = _FTP_Connect($FTP_open, $server, $user, $pass)
If @error Then
MsgBox(4096, "Fehler FTP Verbindung", "Bitte überprüfen Sie Username, Passwort oder FTPServernamen." &@CRLF& _
"Die Anwendung wird beendet!")
Exit
EndIf
; TrayTip("Auf Webseite", "Datei wird hochgeladen !", 1, 2) ;~ Erfolgreich erstellt Info anzeigen
; sleep(2000)
; if _FTP_FilePut($FTP_Connect, $Pfad & $Datei, $Ftppath& $Datei) = 0 then
; Msgbox(0,"Achtung","Die Datei wurde nicht hochgeladen!")
; Else
; TrayTip("Auf Webseite", "Datei erfolgreich hochgeladen !", 1, 1) ;~ Erfolgreich erstellt Info anzeigen
; sleep(2000)
; EndIf
$size = _FTP_FileGetSize($FTP_Connect,$Ftppath& $Datei)
if $size = 0 then
Msgbox(0,"Achtung","FileGetSize Fehler")
Else
MsgBox(0,"Ergebnis", "Dateigrösse in Byte "&$size)
EndIf
_FTP_Close($FTP_open)
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit]Bekomme ich eine Dateigrösse in Byte
MfG
Der_Doc
Und hinzu kommt das ich mich mit Array überhaupt nicht auskenn, nicht mal weiß was das ist
Ein Array ist nichts aufregendes, nur eine "Sammlung" von Daten, auf die mit einem Index zugegriffen wird. Wie in einer Pizzeria, wenn du die Nummer 5 bestellst, dann backt dir der Pizzabäcker nicht eine 5, sondern eine Pizza mit Salami, Käse und Schinken.
Das Array wäre in dem Fall die Speisekarte, die Nummern der jeweilige Index des Arrays, und die Gerichte der Wert oder der Inhalt des Arrayelementes.
dim $Pizza_array[Anzahl der Gerichte]
$Pizza_array[1]="Pizza Tomaten und Käse"
$Pizza_array[2]="Pizza Sardellen und Thunfisch"
$Pizza_array[3]
...usw usf
um jetzt auf die Daten zuzugreifen, sprichst du das Array mit dem Index an.
filewrite($file, $Pizza_array[22]) ;schreibt die Zutaten füpr die Pizza Nummer 22 in eine Datei
[/autoit][autoit][/autoit][autoit]for $i=0 to ubound($Pizza_array)-1 ;alle Elemente im array
filewrite($file, $Pizza_array[$i] & @crlf) ;schreibt die Zutaten aller Pizzen in eine Datei
next
Wenn es keine Funktionen speziell für deinen Anwendungsfall gibt, dann musst du die Elemente des Arrays selbst auslesen und in eine Datei speichern. Bugfixens TUT sollte dir weiterhelfen (s.link oben)
Thx to all who supported me 
AutoIT rockt 