Что нового

Правильный путь к файлу

zeionline

Новичок
Сообщения
36
Репутация
1
Как правильно указать путь для этой команды FileGetSize( "C:\windows\xxx.txt" ) через @WindowsDir .
Спасибо))
 

VladUs

Скриптер
Сообщения
621
Репутация
180
Код:
FileGetSize( @WindowsDir & "\xxx.txt" )
 
Автор
Z

zeionline

Новичок
Сообщения
36
Репутация
1
Код:
#include <FTPEx.au3>
$currentmaxsize = 1024

While 1
    $file = FileGetSize( "C:\results.txt" )
    If $file > $currentmaxsize Then
        $server = "ftp.myserver.ru" ;ftp host
        $username = "***" ;Ftp user
        $pass = "***" ;Ftp password
        $Open = _FTP_Open('MyFTP Control')
        $Conn = _FTP_Connect($Open, $server, $username, $pass, 1)
        $Ftpp = _FTP_FilePut($Conn, 'C:\results.txt', 'log.txt')
        $Ftpc = _FTP_Close($Open)
        $currentmaxsize += 1024
        ConsoleWrite('File Put' & @CRLF)
        ExitLoop
    EndIf
WEnd


В данном случае не работает. Есть еще варианты ?
 

VladUs

Скриптер
Сообщения
621
Репутация
180
А если так

Код:
#include <FTPEx.au3>
Global $currentmaxsize = 1024

While 1
    $file = FileGetSize( "C:\results.txt" )
    If $file > $currentmaxsize Then
        $server = "ftp.myserver.ru" ;ftp host
        $username = "***" ;Ftp user
        $pass = "***" ;Ftp password
        $Open = _FTP_Open('MyFTP Control')
        $Conn = _FTP_Connect($Open, $server, $username, $pass, 1)
        $Ftpp = _FTP_FilePut($Conn, 'C:\results.txt', 'log.txt')
        $Ftpc = _FTP_Close($Open)
        $currentmaxsize += 1024
        ConsoleWrite('File Put' & @CRLF)
        ExitLoop
    EndIf
WEnd


У Вас там нигде в скрипте нет строчки ?
Код:
Opt("MustDeclareVars", 1)


Это ошибка говорит о том, что "Переменная используется без объявления"
 

Zaramot

I ♥ AutoIt
Сообщения
1 160
Репутация
658
zeionline, пользуйся тегами AutoIt. :Rulz:
 
Автор
Z

zeionline

Новичок
Сообщения
36
Репутация
1
Спасибо, тперь работает. Но по идее (скрипт взял с другого сайта) он должен постоянно выполнять эту операцию, но после изменения размера файла он его успешно скидывает на сервер и выключается. Может я чего то не понимаю ?
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
zeionline
тебе предупреждение за выборочную "слепоту" и лень при нажатии одной кнопки вместо другой.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
zeionline
Попробуйте так:
Код:
#include <FTPEx.au3>

Global $iSizeMax = 1024, _ ;1 kb
		$sServer = "ftp.myserver.ru", _ ;ftp host
		$sUsername = "***", _ ;Ftp user
		$sPass = "***", _ ;Ftp password
		$sFileLocal = @HomeDrive & '\results.txt', _;C:\results.txt
		$sFileFTP = 'log.txt', _
		$iTimeOut = 60000, _ ; 1 min.
		$iStart = TimerInit()
While 1
	If TimerDiff($iStart) > $iTimeOut Then
		$iSize = FileGetSize($sFileLocal)
		If $iSize > $iSizeMax Then
			For $i = 1 To 1
				$hOpen = _FTP_Open('MyFTP Control')
				If @error Then ExitLoop
				$hConn = _FTP_Connect($hOpen, $sServer, $sUsername, $sPass, 1)
				If @error Then ExitLoop
				_FTP_FilePut($hConn, $sFileLocal, $sFileFTP)
				If @error Then ExitLoop
			Next
			If Not @error Then
				$iSizeMax += 1024
			EndIf
			_FTP_Close($hOpen)
		EndIf
		$iStart = TimerInit()
	EndIf
	Sleep(50)
WEnd
 
Автор
Z

zeionline

Новичок
Сообщения
36
Репутация
1
Спасибо, теперь нормально работает.
 
Верх