文件批量改名问题转移贴

及时雨 · 发表于 2008-10-20 12:27:51

G:\新歌需要整理1
├─其他歌曲
│  ├─大陆
│  │  ├─001
│  │  │    张靓颖+三角COOL--HEROS.mpg
│  │  │    李子璇--有没有一种爱让人不流泪(原版伴奏).mpg
│  │  │    沈建祥-我的心你能够明白吗.mpg
│  │  │    爱戴-听雪(消伴).mpg
│  │  │    王键－飞蛾扑火DIY(左伴右唱）.mpg
│  │  │    石卫--痴人(原版伴奏).mpg
│  │  │    胡灵--不爱拉倒(消伴).mpg
│  │  │    蛤蟆爱天鹅[动漫+原版伴奏].mpg
│  │  │    郭燕-下半生.mpg
│  │  │    长春虫子--动了情伤了心(原版伴奏).mpg
│  │  │    陈玉建-爱上离婚的女人.mpg
│  │  │    高榕--钢琴上的芭蕾(天音原伴).mpg
│  │  │
│  │  ├─002
│  │  │    初百军-今天你爱了吗.dat
│  │  │    小宋佳--女人的梦(天音).mpg
│  │  │    小宋佳--如果我离开(天音).mpg
│  │  │    张爽--写一首歌.mpg
│  │  │    张爽--挽留(天音原伴).mpg
│  │  │    李宇春-差生(天音).mpg
│  │  │    李维--风与叶子(原版伴奏).mpg
│  │  │    高寒--情罪.mpg

硬盘里的文件就是这样的，
G:\新歌需要整理1\大陆\李子璇--有没有一种爱让人不流泪(原版伴奏).mpg

我需要修改成

G:\新歌需要整理1\大陆\李子璇\有没有一种爱让人不流泪(原版伴奏).mpg
就是说要把“--”前面的字生成文件夹，然后把这个文件放到这个文件夹里。如果能把(原版伴奏)去掉也可以。

tree把文件列表出来生成TXT文件，然后用EXCEL导入，以：--：为记号。
但是怎么能建立文件夹，然后再把这个歌曲拷贝进去呢。

谢谢了

及时雨 · 发表于 2008-10-20 12:44:19

;17 老师死的早

妮可宝贝 · 发表于 2008-10-20 14:49:05

原帖由 及时雨 于 2008-10-20 12:44 发表
;17 老师死的早

狠好..狠强大.. 谁回复了谁死的早.. @:onioncn_12)

及时雨 · 发表于 2008-10-20 15:00:03

原帖由 妮可宝贝 于 2008-10-20 14:49 发表

狠好..狠强大.. 谁回复了谁死的早.. @:onioncn_12)

;11 你跟着捣乱。。。

guodl · 发表于 2008-10-20 19:02:15

下载附件，解压后有两个文件：FileRen.bat和FileRen.vbs。　把这两个文件和歌曲放在同一目录中，例如：　

G:\新歌需要整理1
├─其他歌曲
│ ├─大陆
│ │ ├─001

放到001这个目录。

注意，为了安全，先测试一下。将你的部分歌曲拷贝到一个临时目录，之后把这两个文件也拷贝过来，运行FileRen.bat看是否能达到你的要求。如果可以，再正式运行。

为了安全，没有采用移动歌曲，只是拷贝。运行完后，手动将原来的歌曲删除即可。

[ 本帖最后由 guodl 于 2008-10-20 23:24 编辑 ]

guodl · 发表于 2008-10-20 19:03:31

将文件内容显示一下：

FileRen.bat

@REM
@REM 将形式为　歌手--歌曲　类型的文件改成　歌手\歌曲，歌手变成目录。
@REM
@REM
@REM 例如：
@REM G:\新歌需要整理1\大陆\李子璇--有没有一种爱让人不流泪(原版伴奏).mpg
@REM
@REM 修改成
@REM
@REM G:\新歌需要整理1\大陆\李子璇\有没有一种爱让人不流泪(原版伴奏).mpg
@REM
@REM
@REM
@REM 注意：
@REM --也可换成其它的字符，在FileRen.vbs中更改下一行：
@REM
@REM　　　　　　　　　　　　Const constType="--"　　　　　　
CScript //nologo FileRen.vbs

复制代码

FileRen.vbs

Option Explicit
'
' 要搜索的字符，这里设置为--，也可以改成其它的字符
'
Const constType="--"
'
' 选项，是拷贝还是移动,选项为 "Copy" 或者　"Move"
' Const constOption="Move"
' Const constOption="Copy"
'
'
'
'
Const constOption="Move"
Dim fileSystemObject, folderInfo, SongList
Set fileSystemObject = CreateObject("Scripting.FileSystemObject")
Dim WshShell, strFullName
Set WshShell = WScript.CreateObject("WScript.Shell")
' 获得当前目录
Set folderInfo = fileSystemObject.GetFolder(WshShell.CurrentDirectory)
' 当前目录下所有的文件
Set SongList = folderInfo.Files
Dim iPos, strSinger, strSong
For Each strFullName In SongList
iPos=InStr(strFullName,constType)
If iPos>0 Then
' 如果文件的类型匹配，则开始下面的操作
strSinger=Left(strFullName, (iPos-1))
strSong=Right(strFullName, Len(strFullName)-(iPos-1)-Len(constType))
If ( Not fileSystemObject.FolderExists(strSinger)) Then
' 创建以歌手为名的目录
fileSystemObject.CreateFolder(strSinger)
End If
' 拷贝文件，同时更名
WScript.Echo "Copying " & strFullName & " to " & strSong
fileSystemObject.CopyFile strFullName, strSinger & "" & strSong
If (constOption="Move" and fileSystemObject.FileExists(strSinger & "" & strSong)) Then
' 如果选项是移动文件，查看目录文件是否存在。如果存在，删除原文件
WScript.Echo "Deleting " & strFullName
fileSystemObject.DeleteFile strFullName
End If
End If
Next

复制代码

[ 本帖最后由 guodl 于 2008-10-20 23:27 编辑 ]

及时雨 · 发表于 2008-10-20 20:22:14

;05 我不能给你加分了猪哥，对不住。回头给你介绍个MM吧，看你怪缺MM地。。

及时雨 · 发表于 2008-10-20 20:30:38

俺要的就是你这个效果。
;13
fileSystemObject.CopyFile strFullName, strSinger & "\" & strSong
End If
Next

要是能变成剪切就好了。

yhhsy · 发表于 2008-10-20 22:41:05

怕怕哦，不知道怎么用

		自动登录	找回密码
密码			立即注册

文件批量改名问题 转移贴

本帖子中包含更多资源

文件批量改名问题转移贴