[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
czjt1234

Rank: 5Rank: 5

帖子
935 
积分
1399 
技术
101  
捐助
0  
注册时间
2010-4-30 
1楼 跳转到 »
发表于 2013-5-3 17:28 | 显示全部帖子 
  1. Set objFSO = CreateObject("Scripting.FileSystemObject")

  2. set objWmp = CreateObject("WMPlayer.ocx")

  3. 

  4. strFolder = CreateObject("Wscript.Shell").CurrentDirectory	'指定文件夹

  5. strResult = "缺少以下歌曲：" & vbCrLf & vbCrLf

  6. 

  7. Set objFolders = objFSO.GetFolder(strFolder).SubFolders

  8. For Each objFolder In objFolders		'遍历所有歌手名

  9.     Set objFiles = objFSO.GetFolder(objFolder).Files

  10.     For Each objFile In objFiles		'遍历所有专辑名

  11.         Set objTextStream = objFSO.OpenTextFile(objFile.Path, 1, False)

  12.         strLost = ""

  13.         Do Until objTextStream.AtEndOfStream

  14.             strLine = Trim(objTextStream.ReadLine)

  15.             If strLine = "" Then Exit Do	'容错处理，遇到空行就认为文件已结束

  16.             If objFSO.FileExists(strFolder & "\" & strLine & ".mp3") Then

  17.                 Set objMp3File = objWmp.NewMedia(strFolder & "\" & strLine & ".mp3")

  18.                 objMp3File.SetItemInfo "author", objFolder.Name

  19.                 objMp3File.SetItemInfo "title", strLine

  20.                 objMp3File.SetItemInfo "WM/AlbumTitle", Split(objFile.Name, ".")(0)

  21.             Else

  22.                 strLost = strLost & Space(8) & strLine & vbCrLf

  23.             End If

  24.         Loop

  25.         If strLost <> "" Then

  26.             strResult = strResult & objFolder.Name & vbCrLf & Space(4) & _

  27.                         Split(objFile.Name, ".")(0) & vbCrLf & strLost & vbCrLf

  28.         End If

  29.     Next

  30. Next

  31. 

  32. objFSO.OpenTextFile("result.txt", 2, True).WriteLine strResult
复制代码
1

评分人数


QQ 20147578

TOP

czjt1234

Rank: 5Rank: 5

帖子
935 
积分
1399 
技术
101  
捐助
0  
注册时间
2010-4-30 
2楼
发表于 2013-5-5 16:59 | 显示全部帖子
本帖最后由 czjt1234 于 2013-5-5 17:00 编辑

限制只读取txt文件，假定所有txt文件都是专辑
  1. Set objFSO = CreateObject("Scripting.FileSystemObject")

  2. set objWmp = CreateObject("WMPlayer.ocx")

  3. 

  4. strFolder = CreateObject("Wscript.Shell").CurrentDirectory & "\"

  5. strResult = "缺少以下歌曲：" & vbCrLf & vbCrLf

  6. 

  7. Set objFolders = objFSO.GetFolder(strFolder).SubFolders

  8. For Each objFolder In objFolders                '遍历所有歌手名

  9.     Set objFiles = objFSO.GetFolder(objFolder).Files

  10.     For Each objFile In objFiles                '遍历所有专辑名

  11.         If Lcase(Split(objFile.Name, ".")(1)) = "txt" Then

  12.             Set objTextStream = objFSO.OpenTextFile(objFile.Path, 1, False)

  13.             strLost = ""

  14.             Do Until objTextStream.AtEndOfStream

  15.                 strLine = Trim(objTextStream.ReadLine)

  16.                 If strLine = "" Then Exit Do    '遇到空行就认为文件已结束

  17.                 If objFSO.FileExists(strFolder & strLine & ".mp3") Then

  18.                     Set objMp3File = objWmp.NewMedia(strFolder & strLine & ".mp3")

  19.                     objMp3File.SetItemInfo "author", objFolder.Name

  20.                     objMp3File.SetItemInfo "title", strLine

  21.                     objMp3File.SetItemInfo "WM/AlbumTitle", Split(objFile.Name, ".")(0)

  22.                 Else

  23.                     strLost = strLost & Space(8) & strLine & vbCrLf

  24.                 End If

  25.             Loop

  26.             If strLost <> "" Then

  27.                 strResult = strResult & objFolder.Name & vbCrLf & Space(4) & _

  28.                             Split(objFile.Name, ".")(0) & vbCrLf & strLost & vbCrLf

  29.             End If

  30.         End If

  31.     Next

  32. Next

  33. 

  34. objFSO.OpenTextFile("result.txt", 2, True).WriteLine strResult
复制代码

QQ 20147578

TOP

czjt1234

Rank: 5Rank: 5

帖子
935 
积分
1399 
技术
101  
捐助
0  
注册时间
2010-4-30 
3楼
发表于 2013-5-6 06:37 | 显示全部帖子
什么意思~~~~~

QQ 20147578

TOP

czjt1234

Rank: 5Rank: 5

帖子
935 
积分
1399 
技术
101  
捐助
0  
注册时间
2010-4-30 
4楼
发表于 2013-5-6 15:23 | 显示全部帖子
fso对象没这个功能

可以考虑Wscript.Shell对象运行cmd命令dir *.txt /a/b

然后读取输出的内容

不过没有必要吧，读取全部文件再判断是否是txt也不影响速度

QQ 20147578

TOP

czjt1234

Rank: 5Rank: 5

帖子
935 
积分
1399 
技术
101  
捐助
0  
注册时间
2010-4-30 
5楼
发表于 2013-5-6 19:45 | 显示全部帖子
你是担心这个啊

没问题的

QQ 20147578

TOP

czjt1234

Rank: 5Rank: 5

帖子
935 
积分
1399 
技术
101  
捐助
0  
注册时间
2010-4-30 
6楼
发表于 2013-5-6 23:29 | 显示全部帖子
啊，惭愧惭愧，考虑不周

这样

If Lcase(Right(objFile.Name, 3)) = "txt" Then

QQ 20147578

TOP

czjt1234

Rank: 5Rank: 5

帖子
935 
积分
1399 
技术
101  
捐助
0  
注册时间
2010-4-30 
7楼
发表于 2013-5-6 23:33 | 显示全部帖子
本帖最后由 czjt1234 于 2013-5-6 23:37 编辑 
  1. Set objFSO = CreateObject("Scripting.FileSystemObject")

  2. set objWmp = CreateObject("WMPlayer.ocx")

  3. 

  4. strFolder = CreateObject("Wscript.Shell").CurrentDirectory & "\"

  5. strResult = "缺少以下歌曲：" & vbCrLf & vbCrLf

  6. 

  7. Set objFolders = objFSO.GetFolder(strFolder).SubFolders

  8. For Each objFolder In objFolders                '遍历所有歌手名

  9.     Set objFiles = objFSO.GetFolder(objFolder).Files

  10.     For Each objFile In objFiles                '遍历所有专辑名

  11.         If Lcase(Right(objFile.Name, 3)) = "txt" Then

  12.             Set objTextStream = objFSO.OpenTextFile(objFile.Path, 1, False)

  13.             strLost = ""

  14.             Do Until objTextStream.AtEndOfStream

  15.                 strLine = Trim(objTextStream.ReadLine)

  16.                 If strLine = "" Then Exit Do    '遇到空行就认为文件已结束

  17.                 If objFSO.FileExists(strFolder & strLine & ".mp3") Then

  18.                     Set objMp3File = objWmp.NewMedia(strFolder & strLine & ".mp3")

  19.                     objMp3File.SetItemInfo "author", objFolder.Name

  20.                     objMp3File.SetItemInfo "title", strLine

  21.                     objMp3File.SetItemInfo "WM/AlbumTitle", Left(objFile.Name, Len(objFile.Name) - 4)

  22.                 Else

  23.                     strLost = strLost & Space(8) & strLine & vbCrLf

  24.                 End If

  25.             Loop

  26.             If strLost <> "" Then

  27.                 strResult = strResult & objFolder.Name & vbCrLf & Space(4) & _

  28.                             Left(objFile.Name, Len(objFile.Name) - 4) & vbCrLf & strLost & vbCrLf

  29.             End If

  30.         End If

  31.     Next

  32. Next

  33. 

  34. objFSO.OpenTextFile("result.txt", 2, True).WriteLine strResult
复制代码

QQ 20147578

TOP

返回列表