Что нового

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

  • Автор темы nikolay-nik
  • Дата начала
Статус
Закрыто для дальнейших ответов.
N

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

Скриптер
Сообщения
399
Репутация
110
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

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

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

Must AutoIt!
Команда форума
Администратор
Сообщения
8,670
Репутация
2,472
nikolay-nik
Используй тег autoit при вставке кусков кода.
 

XM

Знающий
Сообщения
70
Репутация
8
как вариант:
Код:
$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

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

JOKER-2013

Новичок
Сообщения
4
Репутация
0
День добрый, помогите пожалуйста, что не так делаю;
Хочу создать скрипт для копирования файлов из своей папки, с флешки, 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

Модератор
Локальный модератор
Сообщения
3,460
Репутация
609
Смотреть справку по функциям. Если совсем не получается, то создать новую тему с примером кода и подробным описанием проблемы.
Тема закрыта
 
Статус
Закрыто для дальнейших ответов.
Верх