loren:网上下载的蓝光原盘基本都是散装文件,需要做成镜像播放。
如果直接用最好的PowerDVD8或者9播放,会出现无法播放的情况,这个时候需要补全目录才能够重新播放。先看一下正常的蓝光结构
下面是脚本的制作方法
'检查蓝光光盘目录结构完整性脚本
Dim SourceFolder, FSO, MSG
SourceFolder = BrowseForFolder("请选择需要检查的蓝光光盘目录", 0, 17)
If SourceFolder <> "" Then
Dim Folder(15)
Folder(0) = SourceFolder
Folder(1) = "\BDMV"
Folder(2) = "\BDMV\AUXDATA"
Folder(3) = "\BDMV\BACKUP"
Folder(4) = "\BDMV\BACKUP\BDJO"
Folder(5) = "\BDMV\BACKUP\CLIPINF"
Folder(6) = "\BDMV\BACKUP\JAR"
Folder(7) = "\BDMV\BACKUP\PLAYLIST"
Folder(8) = "\BDMV\BDJO"
Folder(9) = "\BDMV\CLIPINF"
Folder(10) = "\BDMV\JAR"
Folder(11) = "\BDMV\META"
Folder(12) = "\BDMV\PLAYLIST"
Folder(13) = "\BDMV\STREAM"
Folder(14) = "\CERTIFICATE"
Folder(15) = "\CERTIFICATE\BACKUP"
Set FSO = Wscript.CreateObject("Scripting.FileSystemObject")
For i = 1 To UBound(Folder)
If Not FSO.FolderExists(SourceFolder & Folder(i)) Then
FSO.CreateFolder(SourceFolder & Folder(i))
MSG = MSG & Folder(i) & vbCrLf
End If
Next
If MSG = "" Then
MSG = SourceFolder & "目录下的蓝光光盘目录结构完整"
Else
MSG = "以下目录缺失并已修复" & vbCrLf & vbCrLf & MSG
End If
Else
MSG = "所指定的路径无效"
End If
MsgBox MSG , 64, "完成"
Function BrowseForFolder(ByVal pstrPrompt, ByVal pintBrowseType, ByVal pintLocation)
Dim ShellObject, pstrTempFolder
Set ShellObject = WScript.CreateObject("Shell.Application")
On Error Resume Next
Set pstrTempFolder = ShellObject.BrowseForFolder(0, pstrPrompt, pintBrowseType, pintLocation)
BrowseForFolder = pstrTempFolder.ParentFolder.ParseName(pstrTempFolder.Title).Path
If Err.Number <> 0 Then BrowseForFolder = ""
Set pstrTempFolder = Nothing
Set ShellObject = Nothing
End Function
以上的文件保存为一个.vbs后缀的文件,双击即可。我打包好了文件,直接就可以使用
14 Comments
gg
2012-09-04 at 15:48good
kelus
2012-09-01 at 11:22楼主好人
loren
2012-09-01 at 11:22好人算不上,能帮到你我很开心(得意)
loren
2012-08-31 at 15:21希望能帮到你
斯坦尼斯拉夫斯基佬
2012-08-22 at 21:27感谢,下载了几个原盘,用TMT总是提示请插入一张有效的光盘
loren
2012-08-23 at 11:03嗯,我也是,用PowerDVD会报错,后来才找到原因。
ken
2012-08-05 at 15:46很實用,謝啦
龙龙
2012-08-05 at 12:18学习了
LIN
2012-07-05 at 15:47谢谢版主的讲解
loren
2012-07-05 at 16:15客气,我们多多交流。
miniwatrs
2012-07-05 at 15:00:razz: 不错,知道自己刻录的光盘为什么放不出了
loren
2012-07-05 at 15:05嗯,必须要补齐目录结构,不然刻盘或者做镜像,是无法播放的。