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