文件批量改名问题 转移贴

及时雨

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导入，以：--：为记号。
但是怎么能建立文件夹，然后再把这个歌曲拷贝进去呢。

谢谢了

及时雨

;17 老师死的早

妮可宝贝

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

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

及时雨

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



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

;11 你跟着捣乱。。。

guodl

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

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

放到001这个目录。


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

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

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

guodl

将文件内容显示一下：

FileRen.bat

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

复制代码

FileRen.vbs

1. Option Explicit
   
2. 
   
3. '
   
4. ' 要搜索的字符，这里设置为--，也可以改成其它的字符
   
5. '
   
6. Const constType="--"
   
7. 
   
8. 
   
9. '
   
10. ' 选项，是拷贝还是移动,选项为 "Copy" 或者　"Move"
    
11. '         Const constOption="Move"
    
12. '         Const constOption="Copy"
    
13. '      
    
14. '
    
15. '
    
16. '
    
17. Const constOption="Move"
    
18. 
    
19. 
    
20. 
    
21. 
    
22. Dim fileSystemObject, folderInfo, SongList
    
23. Set fileSystemObject = CreateObject("Scripting.FileSystemObject")
    
24. 
    
25. Dim WshShell, strFullName
    
26. Set WshShell = WScript.CreateObject("WScript.Shell")
    
27. 
    
28. ' 获得当前目录
    
29. Set folderInfo = fileSystemObject.GetFolder(WshShell.CurrentDirectory)
    
30. 
    
31. 
    
32. ' 当前目录下所有的文件
    
33. Set SongList = folderInfo.Files
    
34. 
    
35. Dim iPos, strSinger, strSong
    
36. For Each strFullName In SongList
    
37. 
    
38.     iPos=InStr(strFullName,constType)
    
39.     If iPos>0 Then
    
40.         ' 如果文件的类型匹配，则开始下面的操作
    
41.         strSinger=Left(strFullName, (iPos-1))
    
42.         strSong=Right(strFullName, Len(strFullName)-(iPos-1)-Len(constType))
    
43. 
    
44.    
    
45.         If ( Not fileSystemObject.FolderExists(strSinger)) Then
    
46.             ' 创建以歌手为名的目录
    
47.             fileSystemObject.CreateFolder(strSinger)
    
48.         End If
    
49. 
    
50.         ' 拷贝文件，同时更名
    
51.         WScript.Echo "Copying " & strFullName & " to " & strSong
    
52.         fileSystemObject.CopyFile strFullName, strSinger & "" & strSong
    
53.         
    
54.         If (constOption="Move" and fileSystemObject.FileExists(strSinger & "" & strSong)) Then
    
55.             ' 如果选项是移动文件，查看目录文件是否存在。如果存在，删除原文件
    
56.             WScript.Echo "Deleting " & strFullName
    
57.             fileSystemObject.DeleteFile strFullName     
    
58.         End If
    
59.     End If
    
60. Next

复制代码

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

及时雨

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

及时雨

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

要是能变成剪切就好了。

yhhsy

怕怕哦，不知道怎么用