[Файловая система] Народ помогите мне нужно скопировать файлы на Флешку

[nikolay-nik]

$var = DriveGetDrive( "all" )

If NOT @error Then
    For $i = 1 to $var[0]
	FileExists($var[$i]& "\NOD_UPD\update.ver")
    FileDelete($var[$i]& "\NOD_UPD\*.*")
    FileCopy("NOD_UPD\*.*",$var[$i]& "\NOD_UPD\*.*",1)
    Next
EndIf

у меня не получается скопировать на флешку но при этом буква не известна при создании дериктории он создаёт её на всех дисках что можно сделать ?

 

[ynbIpb]

Re: [Массивы] Народ помогите мне нужно скопировать файлы на Флешку

$source = "Z:\Bases_NOD32" ;источник антивирусных баз
$AllDrives = DriveGetDrive("REMOVABLE")
For  $i = 1 to $AllDrives[0]
	If $AllDrives[$i] <> "a:" Then ; если это не флопик, то проверяем на нём наличие update.ver
	If FileExists ($AllDrives[$i]& "\Bases_NOD32\update.ver") Then
	DirRemove($AllDrives[$i]& "\Bases_NOD32" ,1); удалить папку с содержимым
	DirCopy($source, $AllDrives[$i]& "\Bases_NOD32", 1)
	MsgBox (0,"","Базы скопированы на диск: " & $AllDrives[$i])
    EndIf
    EndIf
Next

На будущее: не надо так раскидывать код по посту (лишние пробелы) и обрамляй тегом

 

[nikolay-nik]

$source = @DesktopDir &"\NOD_UPD\*.*" ;источник антивирусных баз
$AllDrives = DriveGetDrive("REMOVABLE")
For  $i = 1 to $AllDrives[0]
    If $AllDrives[$i] <> "a:" Then ; если это не флопик, то проверяем на нём наличие update.ver
    If Not @error Then
    FileExists ($AllDrives[$i]& "\NOD_UPD\update.ver")
    DirRemove($AllDrives[$i]& "\NOD_UPD" ,1); удалить папку с содержимым
    DirCreate($AllDrives[$i]& "\NOD_UPD")
    FileCopy($source, $AllDrives[$i]& "\NOD_UPD\*.*", 1)
    MsgBox (0,"","Базы скопированы на диск: " & $AllDrives[$i])
    EndIf
    EndIf
Next

спасибо !!!! решение при отсутствии папки

 

[CreatoR]

nikolay-nik
Используй тег autoit при вставке кусков кода.

 

[XM]

как вариант:

$aDrives = DriveGetDrive ("REMOVABLE")
	$driveCount = UBound($aDrives)
If IsArray($aDrives) Then
   For $i=1 To $aDrives[0]
	   $label = DriveGetLabel($aDrives[$i])
	   $serialn = DriveGetSerial($aDrives[$i])
	   	If $label = "" Then ContinueLoop
		$letter = $aDrives[$i]
   Next

 

[kaster]

Предупреждение

vendor
Прекращаем некропостинг

 

[JOKER-2013]

День добрый, помогите пожалуйста, что не так делаю;
Хочу создать скрипт для копирования файлов из своей папки, с флешки, scard, и hdd носитилей. Или с носителя на носитель копировать файлы.
Не могу понять, точнее разобраться в этом скрипте. Пробовал уже по разному, ничего не выходит у меня.
Спасибо за помощь.

$source = @DesktopDir &"\NOD_UPD\*.*" ;источник антивирусных баз - Это папку нужно указывать где моя папка откуда будут копироватся файлы?
$AllDrives = DriveGetDrive("REMOVABLE")
For $i = 1 to $AllDrives[0]
If $AllDrives[$i] <> "a:" Then ; если это не флопик, то проверяем на нём наличие update.ver
If Not @error Then
FileExists ($AllDrives[$i]& "\NOD_UPD\update.ver") - Для чего это каманда нужна?
DirRemove($AllDrives[$i]& "\NOD_UPD" ,1); удалить папку с содержимым - Это для удаления файлов или папки?
DirCreate($AllDrives[$i]& "\NOD_UPD")
FileCopy($source, $AllDrives[$i]& "\NOD_UPD\*.*", 1) - Это откуда будет копироваться?
MsgBox (0,"","Базы скопированы на диск: " & $AllDrives[$i])
EndIf
EndIf
Next

 

[joiner]

Смотреть справку по функциям. Если совсем не получается, то создать новую тему с примером кода и подробным описанием проблемы.
Тема закрыта