per VBA Dateinamen mit Leerzeichen zippen
08.11.2006 10:17:37
{mskro}
ich verzweifel mal wieder etwas und benötige eure Hilfe.
Was muß ich hier ändern, damit auch Dateinamen mit Leerzeichen richtig gezippt werden? Bei der u.a. version wird nur "und.zip" erzeugt.
Sub Datei_mit_Leerzeichen_zippen()
Dim sDatei As String
Dim sPfad As String
sPfad = "D:\Userform\"
sDatei = "und noch ein Test.xls"
zipName = "und noch ein Test.zip"
ChDrive sPfad
ChDir sPfad
Shell "c:\programme\winzip\winzip32.exe -min -a " & sPfad & zipName & " " & sDatei
End Sub
Gruß Manfred
Anzeige