
Mikhail@satirov
13 439 Сообщений
Pro
Цитата: Mikhail от 04.07.2025, 16:34
Roman, Привет.
CreateObject("Scripting.FileSystemObject").CopyFile "ffmpeg.exe", "C:\Windows\"
Roman, Привет.
СкопированоCreateObject("Scripting.FileSystemObject").CopyFile "ffmpeg.exe", "C:\Windows\"
«Любой дурак может знать. Дело в том, чтобы понять.» — Альберт Эйнштейн

Mikhail@satirov
13 439 Сообщений
Pro
Цитата: Mikhail от 04.07.2025, 18:39
Можно так, в строчку, Set fs = CreateObject("Scripting.FileSystemObject") : For Each f In Array("ffmpeg.exe","ffmpeg2.exe") : fs.CopyFile f, "C:\Windows\", True : Next
Можно так, в строчку, СкопированоSet fs = CreateObject("Scripting.FileSystemObject") : For Each f In Array("ffmpeg.exe","ffmpeg2.exe") : fs.CopyFile f, "C:\Windows\", True : Next
«Любой дурак может знать. Дело в том, чтобы понять.» — Альберт Эйнштейн

Mikhail@satirov
13 439 Сообщений
Pro
Цитата: Mikhail от 05.07.2025, 03:37
Вот так: Set fs=CreateObject("Scripting.FileSystemObject"):For Each f In Array("1.exe","2.exe"):fs.DeleteFile "C:\Windows\" & f,True:Next
Вот так: СкопированоSet fs=CreateObject("Scripting.FileSystemObject"):For Each f In Array("1.exe","2.exe"):fs.DeleteFile "C:\Windows\" & f,True:Next
«Любой дурак может знать. Дело в том, чтобы понять.» — Альберт Эйнштейн

ReplaceString@replacestring
162 Сообщения
Цитата: ReplaceString от 05.07.2025, 12:06
Михаил всегда помогает даже с теми проблемами, которые кажутся неразрешимыми.
Михаил всегда помогает даже с теми проблемами, которые кажутся неразрешимыми.
Лайкнули Mikhail, Илья и Roman

Mikhail@satirov
13 439 Сообщений
Pro
Цитата: Mikhail от 10.07.2025, 09:43
Roman, Привет.
Если на vbs, то вот - Set fs=CreateObject("Scripting.FileSystemObject"):src="test1":dst="test2":If Not fs.FolderExists(dst) Then fs.CreateFolder dst:End If:fs.CopyFolder src,dst,True
Roman, Привет.
Если на vbs, то вот - СкопированоSet fs=CreateObject("Scripting.FileSystemObject"):src="test1":dst="test2":If Not fs.FolderExists(dst) Then fs.CreateFolder dst:End If:fs.CopyFolder src,dst,True
«Любой дурак может знать. Дело в том, чтобы понять.» — Альберт Эйнштейн

Mikhail@satirov
13 439 Сообщений
Pro
Цитата: Mikhail от 10.07.2025, 11:20
Roman, сохрани файл/код с кодировкой ANSI и все будет копировать и с русским названием.
Roman, сохрани файл/код с кодировкой ANSI и все будет копировать и с русским названием.
«Любой дурак может знать. Дело в том, чтобы понять.» — Альберт Эйнштейн