[Солидворкер]

Коллеги, помогите чайнику!
Нужен батник, который сканирует директорию, в которой запущен, создает папки с именами идентичными именам файлов в директории и и перемещает файлы в эти одноименные папки. Одна папка-один файл.


Поиск выдал только плагины к ТС с аналогичным функционалом, а нужно прямо из проводника.

Заранее спасибо за любую помощь!

[bargool]

Димаааа_!

[gomer]

VBScript можно поюзать, не?

[Дима_]

Ну и вопросы в воскресенье вечером - давно я не брал в руки шашки:

Код:

[Выделить все]

attrib +h test.bat
FOR %%a IN (*.*) DO (
   if exist "%%~na" (ren "%%~na" tmpxx) else (md tmpxx)
   move "%%a" "tmpxx\%%a"
   ren "tmpxx" "%%~na")
attrib -h test.bat

Важно файл скрипта должен называтся test.bat (или по другому - но как в 1-ой и последней строке) - инчае его тоже перенесет из активной директории и он не отработает до конца.

[Солидворкер]

Сообщение от Дима_ Важно файл скрипта должен называтся test.bat (или по другому - но как в 1-ой и последней строке) - инчае его тоже перенесет из активной директории и он не отработает до конца.

Вроде, получилось, но со второго раза
В первый раз он запустился, но создал только 2 пустых папки с именами %%a) и %%axxx

Во второй раз я его запустил не даблкликом, а из адресной строки проводника. Окучил все, кроме нескольких файлов у которых длина имени была больше 256/2 символов

[Дима_]

ЭЭЭ а какая операционка? (win95 что-ли) - у меня на 7-ке и 8-ке то, что ты описываешь воспроизвести не удалось - работает с клика естественно в соотв. папке и перетаскивает любую длинну
з.ы. попробуй поменять расширение на cmd (соответственно и в файле 2 строки) - уж не помню - был какой-то прикол с этим - но т.к. у меня и так и так работает - то не знаю.
з.з.ы можно еще shell попробывать смастерить (он по моему с vist'ы идет), ну или вобще экзешник.


Вру - точно длинные не тягает - сейчас подумаю...

----- добавлено через ~6 мин. -----
Все допер - обновил в #4.

[Солидворкер]

Сообщение от Дима_ ЭЭЭ а какая операционка? (win95 что-ли)

8 и 7

Сейчас все, вроде, работает.

А расширение файлов реально не включать в имя папки?

[Дима_]

а два с одинаковым именем но разным разрешением - в одну положить или как?

[Солидворкер]

Сообщение от Дима_ а два с одинаковым именем но разным разрешением - в одну положить или как?

В одну

[Дима_]

#4
Offtop: На следующей сходке 50мл беленькой...

[Солидворкер]

Сообщение от Дима_ #4 Offtop: На следующей сходке 50мл беленькой...

Шаман!

Offtop: На такое и 150 мл не жалко...

[Дима_]

Сообщение от Солидворкер 150 мл не жалко...

Это уже по сути на троих....

[sdv79]

Создай файл на пример _mySchema clear_copy files.vbs
вставь содержимое в соответствии со своими путями

Код:

[Выделить все]

' автор Сологубов Дмитрий
' email: Sologubov.D.V@gmail.com


' Удаление ВСЕХ файлов в папке:

On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("d:\Sologubov_D\mySchema")
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
errResults = objSubfolder.Delete
Next
Set files_col = objFolder.files
For each file_obj in files_col
file_obj.delete(true)
Next
'WScript.Echo "Очистка d:\Sologubov_D\mySchema завершенна"


' Удаление файла
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile  	"d:\Sologubov_D\Tuning\AutoCAD\AutoLISP\mySchema\mySchema.fas"


' Создание папки получателя:
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CreateFolder  "d:\Sologubov_D"
objFSO.CreateFolder  "d:\Sologubov_D\mySchema"


' Копирование файлов:
Const OverwriteExisting = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")

' ---- Program Files ---
'objFSO.CopyFile "myQFlookUP_ODCL.lsp",				"c:\Program Files\mySchema\",OverwriteExisting
'objFSO.CopyFile "mySchema.fas",					"c:\Program Files\mySchema\",OverwriteExisting


' ------- Диск D ------
objFSO.CopyFile  "--- Запусти для установки mySchema ---.dwg", "d:\Sologubov_D\mySchema\",OverwriteExisting
objFSO.CopyFile  "acaddoc.lsp",				     "d:\Sologubov_D\mySchema\",OverwriteExisting


' Копирование папок:
Const OverWriteFiles = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
' ---- Program Files ---
'objFSO.CopyFolder "DB",			"c:\Program Files\mySchema\",OverWriteFiles
'objFSO.CopyFolder "SPDS",			"c:\Program Files\mySchema\", OverWriteFiles


' ------- Диск D ------
 objFSO.CopyFolder "Disk_D",		"d:\Sologubov_D\mySchema\",OverWriteFiles
 objFSO.CopyFolder "DB",			"d:\Sologubov_D\mySchema\",OverWriteFiles


WScript.Echo "Обновление пользовательских данных завершено"
' Типа алерт
' Dim TheExtension
' TheExtension = InputBox("Копирование завершено")