Hallo
Ich stecke bei einem Problem fest und zwar habe ich mir eine Funktion gebastelt. Sie soll eine bestimmte vorher festgelegte Datei entpacken.
Ich versuche es in der Funktion mit dem Parameter Winrar.exe -e "C:\test.zip". Dieser Parameter funktioniert problemlos in der CMD.
Die Funktion
Button1
Ich komme einfach nicht weiter...
Liebe Grüße Leon
Ich stecke bei einem Problem fest und zwar habe ich mir eine Funktion gebastelt. Sie soll eine bestimmte vorher festgelegte Datei entpacken.
Ich versuche es in der Funktion mit dem Parameter Winrar.exe -e "C:\test.zip". Dieser Parameter funktioniert problemlos in der CMD.
Die Funktion
VB.NET-Quellcode
- Private Function EntPacken(ByVal Pfad As String) As Boolean
- Dim WInRarPath As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\WinRAR\WinRAR.exe"
- If File.Exists(WInRarPath) Then
- Process.Start(WInRarPath, " -e " & """" & Pfad & """")
- Else
- If MessageBox.Show("Winrar wird benötigt" & vbCrLf & " Soll es nun herruntergeladen werden ?", "Information", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then
- Dim Dl As String = Regex.Match(New WebClient().DownloadString("http://www.winrar.de/download.php"), "Deutsche Versionen:</b></p>\s+<p><a href=""([^""]+)").Groups(1).Value
- Dim Client As New WebClient
- Client.DownloadFile(Dl, Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\WinRar.exe")
- Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\Winrar.exe")
- Return False
- End If
- End If
- Return Directory.Exists(Pfad)
- End Function
Button1
Ich komme einfach nicht weiter...
Liebe Grüße Leon