Variabelen gebruiken in een string met dubbele quotes zetten?

  • Onderwerp starter Onderwerp starter ML71
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

ML71

Gebruiker
Lid geworden
10 mrt 2006
Berichten
70
Ik heb voor nieuwe werkzaamheden een bestand overgedragen gekregen waarin de volgende coderegel wordt gebruikt:

Code:
 Test = """C:\Program Files (x86)\RES Software\Workspace Manager\pwrgate.exe"" 342 -system ""P0026100"" -auth ""ad"" -nologo ""S:\STAT\BBES\CSDB\DQM\Regulier\Emissies en 144A\RegisterSector.rep"""

Ik hou er niet van om paden en bestandsnamen ín coderegels te zetten, die wil ik graag bij elkaar plaatsen zodat aanpassingen gemakkelijker kunnen worden gemaakt. Ik krijg het echter niet voor elkaar om variabelen te gebruiken voor de in deze code opgenomen paden en bestandsnamen. Wie kan me op weg helpen?
 
Ik heb:

Code:
strDir1 = "C:\Program Files (x86)\RES Software\Workspace Manager\"
strDir2 = "S:\STAT\BBES\CSDB\DQM\Regulier\Emissies en 144A\"
strFile1 = "pwrgate.exe"
strFile2 = "RegisterSector.rep"

Test = ""strDir1 & strFile1" 342 -system ""P0026100"" -auth ""ad"" -nologo "strDir2 & strFile2""

Maar dat werkt dus niet :(
 
Doe het eens zo:
Code:
strDir1 = "C:\Program Files (x86)\RES Software\Workspace Manager\"
strDir2 = "S:\STAT\BBES\CSDB\DQM\Regulier\Emissies en 144A\"
strFile1 = "pwrgate.exe"
strFile2 = "RegisterSector.rep"
dq = Chr(34) 'Dubbele quote

Test = dq & strDir1 & strFile1 & _
       dq & " 342 -system " & _
       dq & "P0026100" & _
       dq & " -auth " & _
       dq & "ad" & _
       dq & " -nologo " & _
       dq & strDir2 & strFile2 & dq
 
Laatst bewerkt:
Code:
Sub M_snb()
  c06 = """C:\Program Files (x86)\RES Software\Workspace Manager\pwrgate.exe"" 342 -system ""P0026100"" -auth ""ad"" -nologo ""S:\STAT\BBES\CSDB\DQM\Regulier\Emissies en 144A\RegisterSector.rep"""
  MsgBox c06
   
  c00 = "C:\Program Files (x86)\RES Software\Workspace Manager\pwrgate.exe"
  c01 = "P0026100"
  c02 = "ad"
  c03 = "S:\STAT\BBES\CSDB\DQM\Regulier\Emissies en 144A\RegisterSector.rep"
  c04 = Replace("~" & c00 & "~ 342 -system ~" & c01 & "~ -auth ~" & c02 & "~ -nologo ~" & c03 & "~", "~", Chr(34))
  
  MsgBox c04
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan