Архивирование и точки в именах
 

Добрый день.
есть такие строки на vbs по архивированию файлов:

Set WshShell = WScript.CreateObject("WScript.Shell")
For Each oI In cF
WshShell.Run "C:\Progra~1\7-Zip\7z.exe a " & oI &".zip " & oI & " -tzip",,True
Next

Однако косяк происходит на именах, в которых много точек (например: 02.12.2015 17.18.53.718 Xml6008.xml )
Помогите исправить код должным образом :)

«Косяк» происходит на именах, содержащих пробельные символы. Обрамляйте пути и имена кавычками.

Большое спасибо!!!