+ Ответить в теме
Показано с 1 по 6 из 6

Тема: Win XP. Настройки (твики) проводника.

  1. #1
    Кандидат в умники Kay'lus кто это? Аватар для Kay'lus
    Регистрация
    21.04.2007
    Адрес
    близГЭС-Энер
    Возраст
    45
    Сообщений
    414
    Поблагодарил(а)
    146
    Получено благодарностей: 142 (сообщений: 91).

    Question Win XP. Настройки (твики) проводника.

    Сам не нашёл (( Не знаю, как-то можно заставить проводник показывать папки всегда вверху списка, независимо от сортировки? (а то подбешивает, когда папки получаются внизу - привычка из win9x, да и winrar так делает)

  2. #2
    Кандидат в умники Kay'lus кто это? Аватар для Kay'lus
    Регистрация
    21.04.2007
    Адрес
    близГЭС-Энер
    Возраст
    45
    Сообщений
    414
    Поблагодарил(а)
    146
    Получено благодарностей: 142 (сообщений: 91).

    По умолчанию

    Или вот. Как-то можно удалять каталоги из командного файла с подстановочными знаками? (под win9x была deltree *.tmp - и все дела). А rmdir подстановочные знаки не принимает, хотя есть ещё команда for. Но строка "for %f in (*.tmp) do rmdir /s /q %f " выдаёт только "непредвиденное появление f". Что не так?

  3. #3
    Гений Eugene_Z Взлетаю Eugene_Z Взлетаю Eugene_Z Взлетаю Eugene_Z Взлетаю Eugene_Z Взлетаю Eugene_Z Взлетаю Eugene_Z Взлетаю Eugene_Z Взлетаю Eugene_Z Взлетаю Eugene_Z Взлетаю Eugene_Z Взлетаю
    Регистрация
    27.11.2007
    Возраст
    44
    Сообщений
    2,432
    Поблагодарил(а)
    3
    Получено благодарностей: 1,113 (сообщений: 647).

    По умолчанию

    Цитата Сообщение от Kay'lus Посмотреть сообщение
    Или вот. Как-то можно удалять каталоги из командного файла с подстановочными знаками? (под win9x была deltree *.tmp - и все дела). А rmdir подстановочные знаки не принимает, хотя есть ещё команда for. Но строка "for %f in (*.tmp) do rmdir /s /q %f " выдаёт только "непредвиденное появление f". Что не так?
    Можно через VBScript пойти

    Код:
    'Путь к обрабатываемому каталогу
    dim DirPath
    DirPath = "D:\Temp"
    
    'Обработка всех файлов в каталоге
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Folder = FSO.GetFolder(DirPath)
    
    for each FolderName in Folder.SubFolders
    	FolderName.Delete
    next
    Это нужно сохранить в простом текстовом файле с расширением *.vbs. Код проверил - работает, удаляет каталоги даже если они и не пустые. Так что осторожнее

  4. #4
    Кандидат в умники Kay'lus кто это? Аватар для Kay'lus
    Регистрация
    21.04.2007
    Адрес
    близГЭС-Энер
    Возраст
    45
    Сообщений
    414
    Поблагодарил(а)
    146
    Получено благодарностей: 142 (сообщений: 91).

    По умолчанию

    Факт - работает. Но ежели нужно по выборке, скажем "*DIR.TMP" ?
    Полагаю, если на vbs, то как-то извлекать имя каталога, потом отрезать часть имени, сравнивать с образцом и по условию удалять. И всё это для того, что раньше обходилось одной строкой deltree - нда уж ((

  5. #5
    Гений Eugene_Z Взлетаю Eugene_Z Взлетаю Eugene_Z Взлетаю Eugene_Z Взлетаю Eugene_Z Взлетаю Eugene_Z Взлетаю Eugene_Z Взлетаю Eugene_Z Взлетаю Eugene_Z Взлетаю Eugene_Z Взлетаю Eugene_Z Взлетаю
    Регистрация
    27.11.2007
    Возраст
    44
    Сообщений
    2,432
    Поблагодарил(а)
    3
    Получено благодарностей: 1,113 (сообщений: 647).

    По умолчанию

    Цитата Сообщение от Kay'lus Посмотреть сообщение
    Факт - работает. Но ежели нужно по выборке, скажем "*DIR.TMP" ?
    Полагаю, если на vbs, то как-то извлекать имя каталога, потом отрезать часть имени, сравнивать с образцом и по условию удалять. И всё это для того, что раньше обходилось одной строкой deltree - нда уж ((
    Ну да. Но это не так трудно

    Код:
    'Путь к обрабатываемому каталогу
    dim DirPath
    DirPath = "D:\Temp"
    
    'Обработка всех файлов в каталоге
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Folder = FSO.GetFolder(DirPath)
    
    pattern = ".tmp"
    
    'Удаление всех подкаталогов
    for each FolderName in Folder.SubFolders
    	
    	'Без учета регистра, в конце названия (расширение)
    	If ucase(Right(FolderName.Name, len(pattern))) = ucase(pattern) then
    		'FolderName.Delete
    	End If
    
    	'С учетом регистра, в конце названия (расширение)
    	If Right(FolderName.Name, len(pattern)) = pattern then
    		'FolderName.Delete
    	End If
    	
    	'Без учета регистра, в любом месте названия
    	If InStr(ucase(FolderName.Name), ucase(pattern)) then
    		FolderName.Delete
    	End If
    
    	'С учетом регистра, в любом месте названия
    	If InStr(FolderName.Name, pattern) then
    		FolderName.Delete
    	End If
    
    next
    Оставить надо, естественно, только один из вариантов сравнения - по вкусу.

  6. 1 пользователь сказал cпасибо Eugene_Z за это полезное сообщение:

    Kay'lus (02.12.2008)

  7. #6
    Кандидат в умники Kay'lus кто это? Аватар для Kay'lus
    Регистрация
    21.04.2007
    Адрес
    близГЭС-Энер
    Возраст
    45
    Сообщений
    414
    Поблагодарил(а)
    146
    Получено благодарностей: 142 (сообщений: 91).

    По умолчанию

    Тьфу, заработало - нужно внимательнее читать справку. Оказывается, для for нужно писать %переменная, когда в командной строке и %%переменная, когда в командном файле. О как! И for /D %%f in (%1) do rmdir /s /q %%f теперь пашет как надо, уря!

+ Ответить в теме

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

     

Похожие темы

  1. Opera - интернет браузер
    от Flagman в разделе Software
    Ответов: 329
    Последнее сообщение: 23.06.2014, 16:58
  2. Настройки GPRS/EDGE и CDMA Интернета
    от Claus в разделе Mobile
    Ответов: 126
    Последнее сообщение: 05.10.2012, 19:46
  3. Windwos Vista
    от sheff master в разделе Операционные системы
    Ответов: 279
    Последнее сообщение: 21.04.2010, 13:32
  4. Тексты песен
    от TOTALREN в разделе Non-Music
    Ответов: 765
    Последнее сообщение: 23.04.2008, 04:49
  5. Help!!! Как найти конци настройки почтового сервера?
    от GriZZZLee в разделе Интернет/Веб-дизайн
    Ответов: 8
    Последнее сообщение: 23.03.2007, 20:31

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
Рейтинг@Mail.ru
Администрация сайта не выражает согласия
с высказыванием участников форума и не несет
ответственности за их содержание.

Копирование любого материала возможно только
при наличии ссылки на сайт.