我的电影文件夹里有和多部电影文件,能不能根据电影文件名新建一个相对应的文件夹,可能的话把电影文件复制到相对应的文件夹里???
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 根据文件夹里的文件建对应的文件夹
查看 1,184 回复 9
楼 主
根据文件夹里的文件建对应的文件夹
发表于 2006-12-19 16:48 · 中国 广东 广州 花都区 电信
第 2 楼
发表于 2006-12-19 20:22 · 中国 辽宁 联通
:将文件保存到以文件名命名的文件夹中。
@echo off
for %%a in (*.*) do mkdir "%%~na"
for %%a in (*.*) do COPY %%a "%%~na" ::如果把COPY改成MOVE就会把文件移动
@echo off
for %%a in (*.*) do mkdir "%%~na"
for %%a in (*.*) do COPY %%a "%%~na" ::如果把COPY改成MOVE就会把文件移动
第 3 楼
在发一个用VBS写的。
发表于 2006-12-19 20:56 · 中国 辽宁 联通
'目的：把当前文件夹下的所有文件保存到以文件名命名的文件夹里。
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,"操作完成"
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,"操作完成"
本帖最近评分记录
（共 1 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| ccwan | +5 | 2006-12-20 21:05 |
第 4 楼
发表于 2006-12-19 21:17 · 中国 河北 廊坊 三河市 移动
兄的vbs做得不错，但2楼的批处理还有问题，不能成功。
三人行，必有吾师焉。 学然后知不足，教然后知困，然后能自强也。
第 5 楼
发表于 2006-12-19 22:07 · 中国 辽宁 联通
还请CCWAN兄指点 :)
第 6 楼
发表于 2006-12-19 22:09 · 中国 河北 廊坊 三河市 移动
你客气了，我是认为可以以namejm版主的批处理代码为原型，修改一下就行了。
等我过了冷却期再给兄加分吧。^_^
等我过了冷却期再给兄加分吧。^_^
三人行，必有吾师焉。 学然后知不足，教然后知困，然后能自强也。
第 7 楼
发表于 2006-12-20 07:03 · 中国 广东 广州 花都区新华镇 电信
第一个问题能不能解决？？根据电影文件名新建和电影文件名一样的文件夹？？
第 8 楼
发表于 2006-12-20 07:06 · 中国 广东 广州 花都区新华镇 电信
还有问问 "%%~na" 是什么意思啊
第 9 楼
发表于 2007-01-04 13:59 · 中国 湖南 娄底 电信
::每个文件生成一个同名文件夹，然后把各个文件拷贝到同名文件夹中
for %%i in (*.rmvb) do md "%%~ni" && copy %%i "%%~ni"
exit
for %%i in (*.rmvb) do md "%%~ni" && copy %%i "%%~ni"
exit
第 10 楼
发表于 2007-01-08 06:50 · 中国 黑龙江 哈尔滨 联通
@echo off
set /p um=生成一个文件夹然后拷到夹中,‘确定按回车’：
::如果把COPY改成MOVE就会把文件移动
::每个文件生成一个同名文件夹，然后把各个文件拷贝到同名文件夹中
for %%i in (*.*) do (md "%%~ni"
for %%j in (%%i) do copy %%i "%%~ni"
)
可惜文件名中含空格我不会处理
set /p um=生成一个文件夹然后拷到夹中,‘确定按回车’：
::如果把COPY改成MOVE就会把文件移动
::每个文件生成一个同名文件夹，然后把各个文件拷贝到同名文件夹中
for %%i in (*.*) do (md "%%~ni"
for %%j in (%%i) do copy %%i "%%~ni"
)
可惜文件名中含空格我不会处理
论坛跳转: