[VB] Xcopy en spaties

[winux]

Ik heb eens script geschreven in VB.
Dit script laat een popup box zien, hier vul ik vervolgens de mapnaam en dan kopieert hij alles via xcopy naar de nieuwe locatie.

dus:
source c:\url\naar\map\mapnaam
destination c:\url\naar\map2\mapnaam

dit gaat allemaal perfect, tot ik een mapnaam met een spatie invul dus: map naam.
Dan kan hij de source niet meer lezen.
Nu heb ik dit uitgevoerd in dos. En daar werkt het wel met spaties.

Hoe kan ik dit oplossen?

[RobIII]

Quotes plaatsen om de mapnaam / parameters?

Hoe start je die XCopy? Shell je die? Start je een batchfile? Wat?

Post anders gerust wat relevante code als je wil dat we niet gaan zitten raden.

Overigens heb je het zéér waarschijnlijk ( ) niet onder DOS geprobeerd, want daar zijn spaties in bestandsnamen niet eens toegestaan (je weet wel, 8.3 enzo ). Jij hebt het geprobeerd in een command shell of ook wel CLI genoemd (Command Line Interface). Dat het een beetje lijkt op DOS maakt het nog geen DOS

[ Voor 44% gewijzigd door RobIII op 11-10-2006 14:56 ]

[winux]

code:

Dim Button, objFSO, strFolder, strSrcDir, intRunError, ObjShell, strSourceFolder,cmd, cmd2

strFolder = "c:\map1\"
strSrcDir = "c:\map2\"

strUserIn = InputBox("Vul mapnaam in:) 
strFolder = StrFolder + strUserIn
strSrcDir = strSrcDir + strUserIn
Button = msgbox ("De volgende map wordt aangemaakt: " & strFolder, vbOKCancel, "Bevestiging")

If Button = vbOK then
  Set fs = CreateObject("Scripting.FileSystemObject")
  set objShell = CreateObject("Wscript.Shell")
  objFSO = fs.Createfolder(strFolder)
Set WshShell=CreateObject("WScript.Shell")  
[b]WshShell.Run"xcopy.exe " & strSrcDir & " """ & strFolder & """ /e /o"[/b]
  If intRunError <> 0 Then
    Wscript.Echo "Fout bij kopieren mappen. Error code: " &intRunError
  else
  wscript.echo "De mappen zijn gekopieërd, naar het archief: " &strUserIn
  End If
  cmd2="%comspec% /c rd " & strSrcDir & " /s /q "
  intRunError = objShell.Run(cmd2, 0, True)
End If

de regel die is dik gedrukt is de xcopy regel.

[RobIII]

Dik gedrukt?
Regel 16 bedoel je...

Anyway; je doet dus een "ordinaire shell.run". Je kunt het dan dus oplossen door quotes om de source te zetten (zoals je ook al bij de destination hebt zo te zien)...

code:

WshShell.Run "xcopy.exe """ & strSrcDir & """ """ & strFolder & """ /e /o"

Easy as that.

Overigens, wat doet intRunError ? Die wordt nergens gezet of geïnitialiseerd en wordt wel gebruikt in een if-statement?

[ Voor 36% gewijzigd door RobIII op 11-10-2006 15:02 ]

[winux]

Ik zat te prutsen met enkele quotes .
Maar hij werkt nu
Die intRunError gebruikte ik eerst wel toe riep ik hem anders aan.
Maar bedankt voor je hulp.

[winux]

Hij werkt nu wel, als er alleen spaties in de mapnaam staan. Maar andere tekens pakt hij nu niet.
cmd="%comspec% /c xcopy.exe """ & strSrcDir & """ """ & strFolder & """ /e /o "

Ik heb bijv. een mapnaam "hallo, wie ben jij 12-34-56"

En die pakt hij niet.

Wie kan me nog helpen?

[whoami]

Krijg je errrors ?
Hoe ziet je commandline er uit voor je die echt uitvoert ? Heb je die al eens naar het scherm geprint ?

Kortom, heb je zelf al eens geprobeerd om het probleem op te lossen ?
We willen je hier best helpen, maar het is hier ook geen afhaalbalie.