Visning af filer med mellemrum

Jeg har et stykke kode der henter alle filer fra et bib ud i browseren. så lang så godt. Men den vil ikke vise filerne hvis der er mellem rum i filen eg. "k1 pic.jpg" hvordan skal jeg gøre det? koden til filoversigten er som flg:
<% strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files

For Each objFileItem in objFolderContents
If NOT objFileItem.Name = "index.asp" then
    Response.write "<a href="
    Response.Write(objFileItem.Name)
    response.write ">"
    Response.Write(objFileItem.Name & "<br>")
    Response.write "</a>"
    end if
Next %>