Need Help counting number of files on FTP Server

[PerryRaptor]

Subject says it all...I'm lost!

I've got the FTP.au3 include, but there isn't a command to count files in it. I'm struggling through a For...Next loop playing with _FtpFileFindNext() in hopes of getting the file names into an array.

Any ideas?

[Zedna]

Look here

There is also example of use.

[PerryRaptor]

I've already chewed through that post and examples

[SmOke_N]

This looks like the road you're trying to travel:

http://www.autoitscript.com/forum/index.ph...st&p=253635

But I don't know, since you've posted on that same page... Are you sure you even have permissions? Have you tried to just get one file to make sure?

[PerryRaptor]

Permissions are not an issue...I can UL, DL, MD, RD etc

$FileInfo = _FtpFileFindFirst($Conn, $ftpfolder & $ftpfilemask, $Handle, $DllRect)
    If $FileInfo[0] Then
        $i=1
        Do
        $dl_file[$i] = $FileInfo[10]
        $FileInfo = _FtpFileFindNext($Handle, $DllRect)
        $i = $i+1
        Until Not $FileInfo[0]
    EndIf

If I set a value for $i in $DL_file[$i] greater than the number of files on the server all is fine If I attempt to dynamically fill $DL_file array with file names on the fly I run into trouble.

[Zedna]

Permissions are not an issue...I can UL, DL, MD, RD etc

$FileInfo = _FtpFileFindFirst($Conn, $ftpfolder & $ftpfilemask, $Handle, $DllRect)
    If $FileInfo[0] Then
        $i=1
        Do
        $dl_file[$i] = $FileInfo[10]
        $FileInfo = _FtpFileFindNext($Handle, $DllRect)
        $i = $i+1
        Until Not $FileInfo[0]
    EndIf

If I set a value for $i in $DL_file[$i] greater than the number of files on the server all is fine If I attempt to dynamically fill $DL_file array with file names on the fly I run into trouble.

You need to ReDim $dl_file[$i]

ReDim $pole[UBound($$dl_file)+1]
  $dl_file[$i] = $FileInfo[10]

Also in your example you have not declared $dl_file[]

[PerryRaptor]

How often must I ReDim? I tried _ArrayPush(), but it didn't work either. I'll try ReDim

[Zedna]

How often must I ReDim? I tried _ArrayPush(), but it didn't work either. I'll try ReDim

Search forum for examples of Redim ...

[PerryRaptor]

$i=1
Dim $dl_file[2]; there are 8 files on the FTP server right now but more are on the way

$FileInfo = _FtpFileFindFirst($Conn, $ftpfolder & $ftpfilemask, $Handle, $DllRect)
    If $FileInfo[0] Then
        Do
        $dl_file[$i] = $FileInfo[10]
        $FileInfo = _FtpFileFindNext($Handle, $DllRect)
        Redim $dl_file[UBound($dl_file,1)+1]
        $i = $i + 1
        Until Not $FileInfo[0]
    EndIf
_ArrayDisplay($dl_file,"FTP Server Files")

Okay...It is fixed...

Edited January 25, 2007 by PerryRaptor

[PerryRaptor]

Here is the whole potato...Get FTP Server file names into a single dimension array, count the number of files, and download them.

I like .ini files so here is the one I used.

<instructions go here>
...THIS WILL OVERWRITE EXISITING FILES WITHOUT WARNING...look closely at the settings below...
<end instructions>
[SERVER]
Server=upload.comcast.net
UserName=*************
Password=**************
FileFolder=WorkFolder/Projects/
FileMask=*.*
LocalFolder=C:\WorkFolder\Projects
[BATTLE]
ShowFileCount=7

expandcollapse popup

#include <C:\program files\autoit3\include\Ftp.au3>
#include <C:\program files\autoit3\include\Array.au3>
; lets read in values and settings needed for FTP operations
$FTPconfig = "FTP_DL.ini"
$FTPserver = IniRead($FTPconfig, "SERVER", "Server", "NotFound")
$FTPuser = IniRead($FTPconfig, "SERVER", "UserName", "NotFound")
$FTPpass = IniRead($FTPconfig, "SERVER", "Password", "NotFound")
$FTPfolder = IniRead($FTPconfig, "SERVER", "FileFolder", "NotFound")
$FTPfilemask = IniRead($FTPconfig, "SERVER", "FileMask", "*.*")
$LocalFolder = IniRead($FTPconfig, "SERVER", "LocalFolder", "NotFound")
$FileCount = IniRead($FTPconfig, "BATTLE", "ShowFileCount",5)
If @error Then 
    MsgBox(4096, "", "Error occurred, probably no INI file.")
Else
    MsgBox(4096, "in-the-blind FTP file download", "FTP Server: " & $FTPserver & @CRLF & "UserName: " & $FTPuser & @CRLF & "Password: " & $FTPpass & @CRLF & "From FTP Path: " & $FTPfolder & @CRLF & "To Local Path: " & $LocalFolder)
EndIf
; setup FTP Operations
$dllhandle = DllOpen('wininet.dll') 
$Open = _FTPOpen('ftp'); I roll with Comcast so this is all I need here
$Conn = _FTPConnect($Open, $FTPserver, $FTPuser, $FTPpass)
Dim $Handle
Dim $DllRect
$l_Flags = 2; Binary Download mode
$l_Fail = 0; Overwite local files is OK
$l_Attributes = 0; I don't know what this is for
$l_Context = 0; no callbacks required
$i=1
Dim $dl_file[2]; there are more files on the FTP server right now--the array can grow larger as needed 
;lets create a single dimension array with file names from the FTP Server 
$FileInfo = _FtpFileFindFirst($Conn, $ftpfolder & $ftpfilemask, $Handle, $DllRect)
    If $FileInfo[0] Then
        Do
        $dl_file[$i] = $FileInfo[10]
        $FileInfo = _FtpFileFindNext($Handle, $DllRect)
        Redim $dl_file[UBound($dl_file,1)+1]
        $i = $i + 1
        Until Not $FileInfo[0]
    EndIf
; need to delete the last {empty} element   
Redim $dl_file[UBound($dl_file,1)-1]
; store the file count in element [0] of the array holding the file names
$dl_file[0] = UBound($dl_file)-1
_ArrayDisplay($dl_file,"FTP Server Files")
; now to download the files
$i=1
For $i = 1 to $FileCount; or you can use $dl_file[0] if you want to download everything
    $file_dl = $dl_file[$i]
    $FTP_DL = _FTPGetFile($Conn, $ftpfolder & $file_dl, $LocalFolder & "\" & $file_dl, $l_Flags, $l_Fail, $l_Attributes, $l_Context)
Next
; close up resources used
_FtpFileFindClose($Handle, $DllRect)
_FTPClose($Open)
DllClose($dllhandle)
MsgBox(0,"FTP Server Download","Download Complete --> " & $dl_file[0] & " files should be there")

Tomorrow, I will reverse the process...Upload from local computer to FTP server.

[sendme]

Tomorrow, I will reverse the process...Upload from local computer to FTP server.

[sendme]

Tomorrow, I will reverse the process...Upload from local computer to FTP server.?? Now Please !!

[Jos]

4 hours ago, sendme said:

Now Please !!

Not sure what you want to tell us but :

• Sounds like you are not very patient.
• You are resurrecting an 10 year old thread and your question is  supposed to be related?
• Your question is totally unclear so try to explain this better what it is you are trying to do.

Jos