Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Сфера Microsoft » Программное обеспечение Windows » Прочие - [решено] Программа создающая пустые копии файлов и папок

Ответить
Настройки темы
Прочие - [решено] Программа создающая пустые копии файлов и папок

Аватара для i-Lex

Старожил


Сообщения: 290
Благодарности: 3


Конфигурация

Профиль | Отправить PM | Цитировать


Нужно сделать так называемый "Слепок" папки с внутренностями.
Руками создавать папки и переименовывать коипровать название оригиналов - очень долго и нудно.
Помню, была программка, которая делал "слепки" каталогов и файлов. Но сейчас не могу найти(
Мож кто помнит?

Отправлено: 16:58, 06-05-2016

 

Пользователь


Сообщения: 129
Благодарности: 0

Профиль | Отправить PM | Цитировать


а неподскажете как:
есть список файлов , их следует заменить нулевым размером (изменить размер файла на 0 ) вместо удаления.

Последний раз редактировалось kero, 29-03-2020 в 21:13.


Отправлено: 21:07, 29-03-2020 | #11



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Цитата kero:
есть список файлов »
В чём? Если текстовый файл — в каком виде (с полными путями, относительными путями, без путей — тогда как определить, в каком каталоге эти файлы), в какой кодировке, какие концы строк?

Отправлено: 01:39, 30-03-2020 | #12


Пользователь


Сообщения: 129
Благодарности: 0

Профиль | Отправить 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
Благодарности: 8086

Профиль | Отправить 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:
просто интерисует как в пакетном файле выполнить такое. »
При использовании кодировки OEM/866:
Скрытый текст
Код: Выделить весь код
@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
Благодарности: 0

Профиль | Отправить PM | Цитировать


Iska,
Спасибо

Отправлено: 23:44, 01-04-2020 | #15



Компьютерный форум OSzone.net » Сфера Microsoft » Программное обеспечение Windows » Прочие - [решено] Программа создающая пустые копии файлов и папок

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
[решено] Программа, создающая вкладки документов в 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




 
Переход