Unzip Problem!

[Darkhomer]

Hallo Epvpers,

Ich habe Folgendes Problem ich habe diesen Code gefunden und der Funktioniert auch mit Pfad Angabe (z.B: C:/ or D:/), ich möchte jetzt aber nicht erst ein Pfad angeben sonder den direkten Pfad (./) eintragen aber das geht so nicht :O

Dim sc As New Shell32.Shell()
IO.Directory.CreateDirectory("./test")
Dim output As Shell32.Folder = sc.NameSpace("./test")
Dim input As Shell32.Folder = sc.NameSpace("./ZipFile.zip")
output.CopyHere(input.Items, 4)

(Beim Testlauf erscheint der Fehler: Eine nicht behandelte Ausnahme des Typs "System.NullReferenceException" ist aufgetreten)

So Funktioniert es nicht, wenn ich jetzt aber C:/test und C:/ZipFile.zip angebe geht es. Funktioniert das auch irgendwie so das der den Pfad nimmt wo die EXE drin ist??(Standard: ./)


MfG: Darkhomer

['Heaven.]

 Dim path As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase)

[Darkhomer]

was soll ich damit anfangen, soll ich es Hinzufügen? wenn ja WO?

PS. Bin noch nicht lange dabei in .NET Languages :/

MfG!

['Heaven.]

Das ist der aktuelle Pfad des Programmes, den musst du mit deinem Ordner in Verbindung bringen

[Syc]

Originally Posted by Waka Toa

 Dim path As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase)

Warum nicht

Application.StartupPath()

?

['Heaven.]

In einer Konsolenanwendung gibt es die Klasse Application nicht

[tolio]

in der folgenden kleinen testanwendung ist My.Application.Info.DirectoryPath um den faktor 30-50 schneller als der via Reflection das zu machen. Reflection ist zwar schön und inovativ aber auch sehr langsam und sollte vermieden werden wenn es auch einen anderen Weg gibt

    Sub Main()
        Dim sw As Stopwatch = New Stopwatch
        sw.Start()
        Dim p1 As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase)
        sw.Stop()

        Dim sw2 As Stopwatch = New Stopwatch
        sw2.Start()
        Dim p2 As String = My.Application.Info.DirectoryPath
        sw2.Stop()


        Console.Out.WriteLine(p1 & vbCrLf & sw.ElapsedMilliseconds & vbCrLf)
        Console.Out.WriteLine(p2 & vbCrLf & sw2.ElapsedMilliseconds & vbCrLf)
        Console.In.ReadLine()
    End Sub

['Heaven.]

Seltsam, bei mir benötigt My.Application 2510 Ticks und Reflection grade mal 68



Am schnellsten wäre immer noch

Thread.GetDomain().BaseDirectory

[Darkhomer]

ok, jetzt steige ich da gar nicht mehr durch,

ich möchte ein Code haben der z.b die test.zip Datei in den neu erstellten Ordner test Entpackt für eine Windows Form Anwendung, die ich mit einem Button starten kann ...

Bitte schreibt die Namen GROSS die ich noch ändern muss den durch diese Codes die ihr mir geschickt habt Check ich gerade nicht durch

['Heaven.]

Dim sc As New Shell32.Shell()

Dim myDirectory As String = GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase)

Dim path as String = Path.Combine(myDirectory,"test")

If Not Directory.Exists(path)
IO.Directory.CreateDirectory(path)
End If

Dim output As Shell32.Folder = sc.NameSpace(path)
Dim input As Shell32.Folder = sc.NameSpace(Path.Combine(myDirectory,"ZipFile.zip"))
output.CopyHere(input.Items, 4)

Habs nicht getestet, aber so in etwa müsste das aussehen

[Darkhomer]

Nein Funktioniert nicht mit einer Windows Form Anwendung -,-

['Heaven.]

Dann sag doch mal explizit, was nicht funktioniert

[Darkhomer]

GetDirectiryName wurde nicht deklariert ...

path.Combine ist kein Member von String

Directory wurde nicht deklariert

:/ habe aber jetzt ein anderen Code der macht zumindest schon mal 50% von dem was ich will.


nur das ich noch Manual die Datei auswählen muss ist blöd


Öffnet zwar den Richtigen Pfad, aber sollte schon den Pfad nehmen wo die exe drin ist und automatisch die Datei test.zip entpacken

so wie der Code jetzt ist muss ich die noch selber Auswählen

        Using ofd As New OpenFileDialog
            ofd.Filter = "ZipFile|*.zip"
            If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim file As String = ofd.FileName
                Dim cu As New ClassUnzip(file, Path.Combine(Path.GetDirectoryName(file), "unzip_folder"))
                AddHandler cu.UnzipFinishd, AddressOf Unziped
                cu.UnzipNow()
            End If
        End Using

    Private Sub Unziped()
        MessageBox.Show("Unzipping finished")
    End Sub

evtl versteht man es so besser:

Ich Drücke den Button,
Es sucht selber die Datei "test.zip" in den Pfad wo die "EXE" drin ist.
und entpackt diese in den "test" Ordner

['Heaven.]

Path.Combine
Path.GetDirectoryName

[Darkhomer]

WOW so rein geschmissen ...

was soll ich damit machen?

wenn ich es in das ändere passiert nix bleibt trotzdem der Fehler