Возникла проблемка :
Пишу програму для бекапа пользовательских даных.
Вот код :
Как подключится к папке : \\192.168.0.21\backUP\
И залить весь контент в папку
Если
Логин : backup
ПАроль : backup_123
Буду очень признателен.
Думал как-то подключать сетевой диск заливать и отключать.
Но реализовать не смог !
Пишу програму для бекапа пользовательских даных.
Вот код :
Код:
#include <zip.au3>
#include <file.au3>
Dim $cfgfile,$backup,$time,$share,$login,$enpass,$array ;
$time=@HOUR & ":" & @MIN & ":" & @SEC;
$day=@MDAY & "." & @MON & "." & @YEAR;
$cfgfile="config.cfg";
$backup="backup.cfg";
$temp="c:\windows\temp\backup\";
$zipfile=$temp & $day & ".zip" ;
$log="log.txt";
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
AutoItSetOption("TrayIconHide", 1)
if FileExists($cfgfile) Then
$copytime=FileReadLine($cfgfile,2);
$share=FileReadLine($cfgfile,4);
$login=FileReadLine($cfgfile,6);
$enpass=FileReadLine($cfgfile,8);
Else
MsgBox(0,"ERROR","ERROR FILE NOT FOUND");
EndIf
if FileExists("backup.cfg") Then
_FileReadToArray($backup,$array);
_Zip_Create($zipfile);
_Zip_AddFolder($zipfile,$array[1]);
_Zip_AddFolder($zipfile,$array[2]);
_Zip_AddFolder($zipfile,$array[3]);
_Zip_AddFolder($zipfile,$array[4]);
_Zip_AddFolder($zipfile,$array[5]);
_Zip_AddFolder($zipfile,$array[6]);
_Zip_AddFolder($zipfile,$array[7]);
_Zip_AddFolder($zipfile,$array[8]);
_Zip_AddFolder($zipfile,$array[9]);
_Zip_AddFolder($zipfile,$array[10]);
FileCopy($zipfile,$share);
;MsgBox(0,"",$zipfile)
FileWriteLine($log,$day & " - " &$time & "- GOOD");
Else
MsgBox(0,"ERROR","FILE NOT FOUND");
EndIf
Как подключится к папке : \\192.168.0.21\backUP\
И залить весь контент в папку
Если
Логин : backup
ПАроль : backup_123
Буду очень признателен.
Думал как-то подключать сетевой диск заливать и отключать.
Но реализовать не смог !