如何批量复制歌曲名字到word

1、“开始-运行”，输入 cmd /c dir /b E:\音乐\zuiai > E:\List.txt 然后回车；
2、在记事本里面打开 E:\List.txt，复制全部内容；
3、在Word里面粘贴；

或者你可以直接在Word里面打开E:\List.txt后再复制/粘贴到其它doc里面去也行。

来段VBS，将以下代码保存为扩展名为VBS的文件，双击即可在E盘生成一个list.doc的word文档：

Dim strFolder,objFolder,colFiles,strName
Dim strSubFolder,colSubFiles,subFile

strFolder = "e:\音乐\zuiai"
Set FSO = CreateObject("Scripting.FileSystemObject")

'#####################################################
' Root folder
'#####################################################
Set objFolder = FSO.GetFolder(strFolder)
Set colFiles = objFolder.Files

For Each objFile In colFiles
strName = strName & vbCrLf & objFile.Name
Next
'#####################################################
' Sub Folder
'#####################################################
Set strSubFolder = objFolder.Su