|
Компьютерный форум OSzone.net » Сфера Microsoft » Программное обеспечение Windows » Прочие - [решено] Программа создающая пустые копии файлов и папок |
|
Прочие - [решено] Программа создающая пустые копии файлов и папок
|
Старожил Сообщения: 290 |
Профиль | Отправить PM | Цитировать Нужно сделать так называемый "Слепок" папки с внутренностями.
Руками создавать папки и переименовывать коипровать название оригиналов - очень долго и нудно. Помню, была программка, которая делал "слепки" каталогов и файлов. Но сейчас не могу найти( Мож кто помнит? |
|
Отправлено: 16:58, 06-05-2016 |
Пользователь Сообщения: 129
|
Профиль | Отправить PM | Цитировать а неподскажете как:
есть список файлов , их следует заменить нулевым размером (изменить размер файла на 0 ) вместо удаления. |
Последний раз редактировалось kero, 29-03-2020 в 21:13. Отправлено: 21:07, 29-03-2020 | #11 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата kero:
|
|
Отправлено: 01:39, 30-03-2020 | #12 |
Пользователь Сообщения: 129
|
Профиль | Отправить PM | Цитировать Iska,
текстовый файл , чистые полные пути , один путь-одна строка , кодировка анси . пример "C:\11\aa aa\Catalog\06.cab" "C:\11\aa aa\Catalog\07.cab" "C:\11\aa aa\Catalog\01.cab" возможно вы имели ввиду что должен быть задействован текстовый файл, так то не обязательно, пути могу подставить в батнике , , просто интерисует как в пакетном файле выполнить такое. |
Последний раз редактировалось kero, 30-03-2020 в 22:37. Отправлено: 21:25, 30-03-2020 | #13 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать kero, если ANSI — то лучше WSH:
Скрытый текст
Option Explicit Dim strSourceFile Dim objFSO Dim strContent Dim strLine If WScript.Arguments.Count = 1 Then strSourceFile = WScript.Arguments.Item(0) Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(strSourceFile) Then With objFSO.OpenTextFile(strSourceFile) strContent = .ReadAll() .Close End With For Each strLine In Split(strContent, vbCrLf) If objFSO.FileExists(strLine) Then objFSO.CreateTextFile(strLine, True).Close Else WScript.Echo "Can't find file [" & strLine & "]." End If Next Else WScript.Echo "Can't find source file [" & strSourceFile & "]." WScript.Quit 2 End If Set objFSO = Nothing Else WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source file>" WScript.Quit 1 End If WScript.Quit 0 Кавычки в файле не нужны. Путь к целевому файлу с путями к файлам задаётся параметром скрипта (также можно просто перетащить целевой файл на скрипт в Проводнике). Цитата kero:
Скрытый текст
@echo off setlocal enableextensions enabledelayedexpansion set sSourceFile=%~1 if defined sSourceFile ( if exist "%sSourceFile%" ( for /f "usebackq delims=" %%i in ("%sSourceFile%") do ( if exist "%%~i" ( >nul copy /y nul "%%~i" ) else ( echo Can't find file [%%~i]. ) ) ) else ( echo Can't find source file [%sSourceFile%]. ) ) else ( echo Usage: %~nx0 ^<Source file^> ) endlocal exit /b 0 Путь к целевому файлу с путями к файлам задаётся параметром пакетного файла (также можно просто перетащить целевой файл на пакетный файл в Проводнике). |
|
Отправлено: 23:54, 30-03-2020 | #14 |
Пользователь Сообщения: 129
|
Профиль | Отправить PM | Цитировать Iska,
Спасибо |
Отправлено: 23:44, 01-04-2020 | #15 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
[решено] Программа, создающая вкладки документов в Office 2007 | Deep2007 | Хочу все знать | 5 | 26-09-2012 10:34 | |
Теория - Программа создающая программу. | FunTime | Программирование и базы данных | 5 | 01-04-2010 17:43 | |
Утилиты - Нужна программа шпион делающая копии файлов копируемых на флешки | decadent | Защита компьютерных систем | 3 | 01-02-2009 13:02 | |
Программа поиска файлов/папок у которых запорчены права доступа | Bird Feniks | Microsoft Windows NT/2000/2003 | 1 | 19-07-2007 09:26 | |
Программа поиска файлов/папок у которых запорчены права доступа | Bird Feniks | Программное обеспечение Windows | 0 | 18-07-2007 18:43 |
|