03. februar 2013 - 21:03
Der er
12 kommentarer og 1 løsning
Mellemrum i filnavne
Hej, For i = 0 To ListBox2.Items.Count - 1 xx = ListBox2.Items.Item(i) strCommand = "TxtRar.Text" & " " & "a" & " " & "TxtGem.Text" & " " & "xx" Dim aroras As Process = Process.Start(strCommand) aroras.WaitForExit() Hvis der er lange filnavne med mellemrum i strcommand, virker det ikke. Hvordan får man Process.start til at acceptere filnavne med mellemrum ?
Annonceindlæg fra DE-CIX
03. februar 2013 - 21:08
#1
"" omkring
03. februar 2013 - 21:09
#2
Eks.: Process.Start("cmd /c copy ""f o o.txt"" ""b a r.txt""")
03. februar 2013 - 21:14
#3
Ja, men hvis det er fra en variabel, så ved jeg ikke lige hvordan det skal gøres. der er 3-4 variabler i linjen
03. februar 2013 - 21:16
#4
Dette er den rigtige linje, strCommand = TxtRar.Text & " " & "a" & " " & TxtGem.Text & " " & xx
03. februar 2013 - 22:45
#5
Og hvad indeholder TxtRar og TxtGem?
04. februar 2013 - 15:11
#6
TxtRar er en textbox, hvor i der står stien til hvor Rar.exe filen ligger. TxtGem er en tekstbox hvor i der står en sti til hvor mine pakkede filer skal forefindes. XX er også en sti, hvor rar skal tage filer og pakke fra.
04. februar 2013 - 15:33
#7
strCommand = """" & TxtRar.Text & """ " & "a" & " """ & TxtGem.Text & """ """ & xx & """" proev og udskriv den og se om den ser OK ud
04. februar 2013 - 17:14
#8
Virker ikke strCommand = Nothing. :(
04. februar 2013 - 18:10
#9
Det kan vist ikke passe. Hvis der assignes noget til strCommand, saa kan den ikke vaere Nothing.
04. februar 2013 - 19:01
#10
kører jeg programmet med break, så står der at StrCommand = nothing,, Før skrev den linjen som den skal, dog uden "", så mellemrum i filnavn bliver ikke sendt korrekt,
04. februar 2013 - 19:07
#11
sorry, min fejl, det ser rigtig ud, men den popper bare op med en cmd vindue, som jeg ikke kan nå at læse, hvirdan stopper vi den ?
04. februar 2013 - 21:34
#12
Så fik jeg det løst. Lavede det om Dim s As String = xx ' Split string based on spaces Dim words As String() = s.Split(New Char() {"\"c}) Dim word As String For Each word In words xgem = word Next Dim p As New ProcessStartInfo x = "-v" & TxtSize.Text * 1024 & " " xpath = TxtGem.Text & "\" & xgem p.FileName = TxtRar.Text p.Arguments = "a -m0 " & x & """" & xpath & """ """ & xx & """" p.WindowStyle = ProcessWindowStyle.Normal Process.Start(p)
05. februar 2013 - 17:40
#13
Løste det jo selv, med noget hjælp.
Kurser inden for grundlæggende programmering