Problem with spaces in File and Folder names 1

[malaygal]

I was hoping somebody can help mw with this, as I have been working on this for the past couple of days now.
I am trying to automate unzipping of files as follows:

Dim pinfo As New ProcessStartInfo
pinfo.FileName = "C:\Program Files\7-Zip\7z.exe"
Dim zipFile As String = "C:\File to Zip.7z"
Dim unZipfldr As String = "C:\UnZip Folder"
Dim pwd As String = "test"

pinfo.Arguments = "e " & zipFile & " -O" & unZipfldr & " -p" & pwd
Dim p As Process = Process.Start(pinfo)


This does not work with spaces in the file and folder names and I do not have control in naming them.
I tried enclosing the name in single-quote, double-quote and escape the names with \, but to no avail.
Any help and/or guidance will be greatly appreciated.

 

[malaygal]

After much trial and errors, this work

pinfo.Arguments = "e """ & zipFile & """ -O""" & unZipfldr & """ -p" & pwd

 

[Andrzejek]

If you need to use [tt]"[/tt] in your paths, this may be easier to read:
[tt]
pinfo.Arguments = "e " & Chr$(34) & zipFile & Chr$(34) & " -O" & Chr$(34) & unZipfldr & Chr$(34) & " -p" & pwd
[/tt]
Chr$(34) is the equivalent of [tt]"[/tt] (double-quotes)


---- Andy

There is a great need for a sarcasm font.

 

[malaygal]

Thank you so much. It made the code easier to read and maintain.

 

[Andrzejek]

Of course you may go even further and do this:

Private Const sDQ As String = Chr$(34) [green]'Double Quotes "[/green]
...
pinfo.Arguments = "e " & sDQ & zipFile & sDQ & " -O" & sDQ & unZipfldr & sDQ & " -p" & pwd

Or declare it as Public in a Module so you can use it anywhere in your App if you need to.



---- Andy

There is a great need for a sarcasm font.