2009-05-19, 00:27
clackerdacker Wrote:The issue is the GetMoviePath function is checking extensions in the parent directory only, i.e. it's not looking for VOB files in the VIDEO_TS sub directory.[snip]
Ok... maybe it is that easy. Question: where do the nfo/fanart/poster go? In the VIDEO_TS folder or in the main movie folder? If they go in the VIDEO_TS folder that IS all it will take, it seems. If they go in the main movie folder then there's a little more work to do. lol
EDIT:
Code:
Public Shared Function GetMoviePath(ByVal sPath As String) As String
'//
' Get the proper path to movie
'\\
Dim di As DirectoryInfo
Dim lFi As New List(Of FileInfo)
If Directory.Exists(String.Format("{0}\{1}", sPath, "VIDEO_TS")) Then
di = New DirectoryInfo(String.Format("{0}\{1}", sPath, "VIDEO_TS"))
Else
di = New DirectoryInfo(sPath)
End If
lFi.AddRange(di.GetFiles())
lFi = lFi.FindAll(Function(f As FileInfo) (f.Extension.ToLower() = ".avi" _
OrElse f.Extension.ToLower() = ".divx" _
OrElse f.Extension.ToLower() = ".mkv" _
OrElse f.Extension.ToLower() = ".iso" _
OrElse f.Extension.ToLower() = ".mpg" _
OrElse f.Extension.ToLower() = ".mp4" _
OrElse f.Extension.ToLower() = ".wmv" _
OrElse f.Extension.ToLower() = ".wma" _
OrElse f.Extension.ToLower() = ".mov" _
OrElse f.Extension.ToLower() = ".mts" _
OrElse f.Extension.ToLower() = ".m2t" _
OrElse f.Extension.ToLower() = ".img" _
OrElse f.Extension.ToLower() = ".dat" _
OrElse f.Extension.ToLower() = ".bin" _
OrElse f.Extension.ToLower() = ".cue" _
OrElse f.Extension.ToLower() = ".vob" _
OrElse f.Extension.ToLower() = ".dvb" _
OrElse f.Extension.ToLower() = ".evo" _
OrElse f.Extension.ToLower() = ".asf" _
OrElse f.Extension.ToLower() = ".asx" _
OrElse f.Extension.ToLower() = ".avs" _
OrElse f.Extension.ToLower() = ".nsv" _
OrElse f.Extension.ToLower() = ".ram" _
OrElse f.Extension.ToLower() = ".ogg" _
OrElse f.Extension.ToLower() = ".ogm" _
OrElse f.Extension.ToLower() = ".ogv" _
OrElse f.Extension.ToLower() = ".flv" _
OrElse f.Extension.ToLower() = ".swf" _
OrElse f.Extension.ToLower() = ".nut" _
OrElse f.Extension.ToLower() = ".viv" _
OrElse f.Extension.ToLower() = ".rar" _
OrElse f.Extension.ToLower() = ".m2ts" _
OrElse f.Extension.ToLower() = ".dvr-ms") _
AndAlso Not f.Name.Contains("-trailer"))
If lFi.Count > 0 Then
Return lFi(0).FullName.ToString
Else
Return String.Empty
End If
End Function