Results 1 to 3 of 3
  1. #1
    Join Date
    Aug 2011

    Unanswered: VB File Path Spaces

    Good Afternoon,

    I am using the following script to allow multiple users to login to a database 'front end' (forms, queries, etc) with the table held in another database but link.
    However the network drive where the database(s) are held, some of the parent folders have spaces in the names which is returning an error. I'm looking for some help how to correct the script to either allow or remove the spaces so that the database can be opened.

    Set WshNetwork = CreateObject("WScript.Network")
    GetUser = WshNetwork.UserName
    Set WshNetwork = Nothing
    LUName = "computername\folder with spaces\PB_Database_V1.1.mdb"
    'Note: or LUName = "UNC Name"
    oldname = LUName
    newName = Replace(LUName, ".mde", "") & GetUser & ".mde"
    retval = 0
    Dim objFSO
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    retval = objFSO.CopyFile(oldname, newName, True)
    Set objFSO = Nothing
    Dim objShell
    Set objShell = CreateObject("Wscript.Shell")
    objShell****n "MSAccess.exe " & newName
    Set objShell = Nothing
    Any help appreciated....



  2. #2
    Join Date
    Jun 2004
    Arizona, USA
    Think about running a command from the command line. If the path contains spaces, you need to use a quoted path name.

    When scripting in windows, I believe you'll need to replace
    LUName = "computername\folder with spaces\PB_Database_V1.1.mdb"
    (which is the equivalent of computername\folder with spaces\PB_Database_V1.1.mdb)


    LUName = """" & "computername\folder with spaces\PB_Database_V1.1.mdb" & """"
    LUName = """computername\folder with spaces\PB_Database_V1.1.mdb"""
    either of which are the construction of a string containing "computername\folder with spaces\PB_Database_V1.1.mdb"

    Four quotes in a row represents a single quote mark. Two quotes in a row, within a quoted string, are escaped as one quote mark, within the quoted string.

    Your string would then contain leading and trailing quote marks, within the string.
    Last edited by loquin; 08-25-11 at 16:24.
    "Lisa, in this house, we obey the laws of thermodynamics!" - Homer Simpson
    "I have my standards. They may be low, but I have them!" - Bette Middler
    "It's a book about a Spanish guy named Manual. You should read it." - Dilbert

  3. #3
    Join Date
    Aug 2011
    Thanks loquin

    However I'm getting a VB error now for line 15.

    retval = objFSO.CopyFile(oldname, newName, True)
    Char 1, bad file name or number, code 800A0034

    I have tried both of the suggestions below and they both return the same error.

    Do you have any other ideas?

    Much appreciated.


Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts