标题: 根据文件夹里的文件建对应的文件夹 [打印本页]

---

作者: bbq123bbq     时间: 2006-12-19 16:48    标题: 根据文件夹里的文件建对应的文件夹

我的电影文件夹里有和多部电影文件,能不能根据电影文件名新建一个相对应的文件夹,可能的话把电影文件复制到相对应的文件夹里???

---

作者: jmz573515     时间: 2006-12-19 20:22
:将文件保存到以文件名命名的文件夹中。
@echo off
for %%a in (*.*) do mkdir "%%~na"
for %%a in (*.*) do COPY %%a "%%~na"  ::如果把COPY改成MOVE就会把文件移动

---

作者: jmz573515     时间: 2006-12-19 20:56    标题: 在发一个用VBS写的。

'目的：把当前文件夹下的所有文件保存到以文件名命名的文件夹里。


on error resume next
Set WshShell = WScript.CreateObject("WScript.Shell")
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(WshShell.CurrentDirectory)
set files=folder.files
for each file in files
if file.name<>wscript.scriptname then
if fso.folderexists(replace(file.name,"." & fso.GetExtensionName(file),"")) then
fso.movefile file, replace(file.name,"." & fso.GetExtensionName(file),"") & "\"
else
fso.createfolder(replace(file.name,"." & fso.GetExtensionName(file),""))
fso.movefile file, replace(file.name,"." & fso.GetExtensionName(file),"") & "\"
end if
else
end if
next
msgbox "已经将所有文件保存到以文件名命名的文件夹中。",48+4096,"操作完成"

---

作者: ccwan     时间: 2006-12-19 21:17
兄的vbs做得不错，但2楼的批处理还有问题，不能成功。

---

作者: jmz573515     时间: 2006-12-19 22:07
还请CCWAN兄指点  :)

---

作者: ccwan     时间: 2006-12-19 22:09
你客气了，我是认为可以以namejm版主的批处理代码为原型，修改一下就行了。
等我过了冷却期再给兄加分吧。^_^

---

作者: bbq123bbq     时间: 2006-12-20 07:03
第一个问题能不能解决？？根据电影文件名新建和电影文件名一样的文件夹？？

---

作者: bbq123bbq     时间: 2006-12-20 07:06
还有问问 "%%~na" 是什么意思啊

---

作者: 26933062     时间: 2007-1-4 13:59
::每个文件生成一个同名文件夹，然后把各个文件拷贝到同名文件夹中
for %%i in (*.rmvb) do md "%%~ni" && copy %%i "%%~ni"
exit

---

作者: ocnzhao     时间: 2007-1-8 06:50
@echo off
set /p um=生成一个文件夹然后拷到夹中,‘确定按回车’：
::如果把COPY改成MOVE就会把文件移动
::每个文件生成一个同名文件夹，然后把各个文件拷贝到同名文件夹中
for %%i in (*.*) do (md "%%~ni"
for %%j in (%%i) do copy %%i "%%~ni"
)
可惜文件名中含空格我不会处理