Fehler bei Pfadangabe

Forumthread: Fehler bei Pfadangabe
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Fehler bei Pfadangabe

29.01.2007 00:17:00

Anja

Hallo Leute,
komm mit der "Sub" nicht weiter, wie kann ich das "Entpack" an "o:\Doku\" mit anhängen. Habe schon mit "+" und "&" probiert aber es funktioniert nicht.
Hat jemand eine Idee? So wie es dasteht funzt es leider nicht.
Gruß Anja


Sub Entpacken
Dim strFolder As String
Dim Entpack As String
Dim pId As Double
strFolder = Sheets(1).Range("A" & selection.Row) & "_" & selection
Entpack = strFolder & ".zip"
pId = Shell("c:\program files\winzip\9_EL\WINZIP32.EXE -e o:\Doku\+Entpack O:\Doku\" + strFolder, vbMinimizedNoFocus)
End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Fehler bei Pfadangabe

29.01.2007 01:05:12

Nepumuk
AW: Fehler bei Pfadangabe

29.01.2007 02:22:23

Anja

AW: Fehler bei Pfadangabe

29.01.2007 01:05:12

Nepumuk

Hallo Anja,
versuch es mal so:

Sub Entpacken()

    Dim strFolder As String
    Dim Entpack As String
    Dim pId As Double

    strFolder = Sheets(1).Range("A" & Selection.Row) & "_" & Selection
    Entpack = strFolder & ".zip"

    pId = Shell("c:\program files\winzip\9_EL\WINZIP32.EXE -e o:\Doku\" & _
        Entpack & " O:\Doku\" & strFolder, vbMinimizedNoFocus)

End Sub

Gruß
Nepumuk

AW: Fehler bei Pfadangabe

29.01.2007 02:22:23

Anja

Supi ich dank dir ganz doll.
Gruß Anja