[Iska]

а в указанную папку не выходит ни как, »

А как Вы указывали «указанную папку»?

[A.N.D.R.E.I.S.M]

Iska, Приветсвую вас))
Автоматически копирует из указанной папки по пути"%userprofile%\Downloads\copy.txt" на флешку. А вот чтоб скопировать на флешку в указанную папку, не могу ни как((

[Iska]

A.N.D.R.E.I.S.M, ещё раз — Вы пишете:

а в указанную папку не выходит ни как »

Так я спрашиваю — как именно Вы пытались сделать?

[A.N.D.R.E.I.S.M]

Iska, Вот так пробовал - if %%l equ 2 ( \Folder

[megaloman]

Код:

@Echo Off
cls
Set "FileOut=Z:\Box_In\Мой контент\Книги\djvu\Windows Servrt 2012 полное руководство.djvu" 
Set "OutDir=Папка на флешке"

FOR /F "usebackq tokens=1,2 delims= " %%i IN (`"wmic logicaldisk get caption,drivetype"`) DO (
	If "%%j"=="2" Xcopy "%FileOut%" "%%i\%OutDir%\" >nul
)
pause

[A.N.D.R.E.I.S.M]

megaloman, День Добрый, РАБОТАЕТ))
Спасибо большущие вам, что помогли мне разобратся. То-что нужно мне)

[Iska]

Ну, пусть будет до кучи и WSH:

Скрытый текст

Код:

Option Explicit

Dim strSourceFileName
Dim strSourceFile
Dim strDestPath

Dim objFolder
Dim objDrive

Dim strDestFolder


strSourceFileName = "copy.txt"
strDestPath       = "Sample folder"

Set objFolder = WScript.CreateObject("Shell.Application").NameSpace("shell:Downloads")

If objFolder Is Nothing Then
	WScript.Echo "Can't determine source folder."
	WScript.Quit 1
End If

With WScript.CreateObject("Scripting.FileSystemObject")
	strSourceFile = .BuildPath(objFolder.self.Path, strSourceFileName)
	
	If .FileExists(strSourceFile) Then
		For Each objDrive In .Drives
			If objDrive.DriveType = 1 And objDrive.IsReady Then
				strDestFolder = .BuildPath(objDrive.RootFolder.Path, strDestPath)
				
				If .FolderExists(strDestFolder) Then
					.CopyFile strSourceFile, strDestFolder & "\", True
					
					Exit For
				End If
			End If
		Next
	Else
		WScript.Echo "Can't find source file [" & strSourceFile & "]."
		WScript.Quit 2
	End If
	
	Set objFolder = Nothing
End With

WScript.Quit 0

[alpap]

а чего в wmic сразу не указать тип диска?

Код:

@echo off
set "in=C:\In"
set "out=Out"

for /f %%a in ('"wmic path Win32_LogicalDisk where (drivetype="2" and mediatype=null) get name|find ":""') do >nul xcopy "%in%" "%%a\%out%"
pause

[A.N.D.R.E.I.S.M]

Доброе утро.
megaloman, Здравствуйте, а можно еще добавить команду, создать папку на флешке?
Нашел одну проблему, все что в папке копирует с диска C:\Folder\Word.txt, а вот подкаталоги C:\Folder не хочет чего-то копировать((

@Echo Off cls Set "FileOut=Z:\Box_In\Мой контент\Книги\djvu\Windows Servrt 2012 полное руководство.djvu" Set "OutDir=Папка на флешке" FOR /F "usebackq tokens=1,2 delims= " %%i IN (`"wmic logicaldisk get caption,drivetype"`) DO ( If "%%j"=="2" Xcopy "%FileOut%" "%%i\%OutDir%\" >nul ) pause

Iska, Спасибо большущие вам в помощи)
alpap, Здравствуйте, вот такой тип указать?

'USB%'"