You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

18 lines
599 B

Imports System.IO
Public Class Unzip
Public Shared Function UnzipMP3GFiles(ByVal zipFilename As String, ByVal outputPath As String) As String
UnzipMP3GFiles = ""
Dim myZip As New ICSharpCode.SharpZipLib.Zip.FastZip
myZip.ExtractZip(zipFilename, outputPath, "")
Dim myDirInfo As New DirectoryInfo(outputPath)
Dim myFileInfo() As FileInfo = myDirInfo.GetFiles("*.cdg", SearchOption.AllDirectories)
If myFileInfo.Length > 0 Then
UnzipMP3GFiles = myFileInfo(0).FullName
End If
Catch ex As Exception
End Try
End Function
End Class