Random Error?

[AlphaWolf]

When i try to make a directory, it either doesnt make it at all,no error message,or i get:

>"I:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Documents and Settings\Joe Duffy\Desktop\Installer2.au3"

C:\Documents and Settings\Joe Duffy\Desktop\Installer2.au3 (56) : ==> Error in expression.:

DirCreate($drcrt"\quake\")

DirCreate(^ ERROR

>Exit code: 1 Time: 3.094

Here is the code:

expandcollapse popup

#include <GUIConstants.au3>
#include "Misc.au3"
if _Singleton("Installer",1) = 0 Then
    Msgbox(0,"Warning","An occurence of This is already running")
    Exit
EndIf
Msgbox(65,"Hells Army Installer http:\\www.pspwzrd.com\HellsArmy","Hello, this will install The Hells Army Server Files For Your Use. Press ok to continue.")
$sloc = RegRead("HKEY_CURRENT_USER\Software\Valve\Steam", "SteamPath")
If @error == 1 Then
msgbox(48,"Steam not found.", "Error 8, Steam Directory was not Found.")
Exit
EndIf
If @error == 2 Then
msgbox(48,"Steam not found.", "Error 12, Steam Registration was not Found.")
Exit
EndIf
If @error == 3 Then
msgbox(48,"Connection Failed.", "Error 16, Unable to remote connect to the registry.")
Exit
EndIf
If @error == -1 Then
msgbox(48,"Error!", "Error 20, Unable to open requested value.")
Exit
EndIf
$id = InputBox("Enter steamId", "Please Enter your steam id.")
If @error == 1 Then
msgbox(48,"Need Id!", "Steam Id is needed to Find the Directory. Installer will now close.")
Exit
EndIf
If @error == 1 Then
msgbox(48,"Error!", "ERROR 29!")
Exit
EndIf
$fdir = $sloc & "\steamapps\" & $id & "\counter-strike source\cstrike\maps\"
$drcrt = $sloc & "\steamapps\ "& $id & "\counter-strike source\cstrike\sound\"
DirGetSize ( $fdir , 2)
If @error == 1 Then
msgbox(48,"Steam Id not found.", "Steam Id does not Exist on this computer. Make sure you entered it correctly. Installer will now close.")
Exit
EndIf
$bdir = $sloc & "\steamapps\" & $id & "\counter-strike source\cstrike\"
$r = Msgbox(65,"Ready to Install", "Directory For Maps Found! Instalation will now begin. Press ok to Contine.")
If $r=2 Then
Exit
EndIf
GuiCreate("Steam Install",500,60)
$File=GUICtrlCreateLabel("File :",5,5,390,17)
$progress=GUICtrlCreateProgress(5,25,390,20)
GUISetState()
FileInstall("I:File Pack\aim_ag_texture2.bsp",$fdir)
GUICtrlSetData($progress,33.3)
GUICtrlSetData($File,"File : Aim_ag_texture2")
FileInstall("I:\File Pack\aim_ag_texture1695.bsp",$fdir)
GUICtrlSetData($progress,66.6)
GUICtrlSetData($File,"File : Aim_ag_texture1695")
DirCreate($drcrt"\quake\")
FileInstall("I:\File Pack\sounds\headshot.mp3",$drcrt)
GUICtrlSetData($progress,100)
GUICtrlSetData($File,"File : Finalizing Installation")
FileInstall("I:\File Pack\ReadMe.txt",$fdir)
GUICtrlSetData($progress,100)
GUICtrlSetData($File,"File : Finalizing Installation")
MsgBox(64,"Complete", "Installation complete! Now Go Own Some Noobs!")

i have tried :

$drcrt = $sloc & "\steamapps\ "& $id & "\counter-strike source\cstrike\sound\quake\" instead of $drcrt = $sloc & "\steamapps\ "& $id & "\counter-strike source\cstrike\sound\"

what you can see

DirCreate($drcrt) with $drcrt = $sloc & "\steamapps\ "& $id & "\counter-strike source\cstrike\sound\quake\"

ans alsorts of combos,its either the error,or it just doesnt do a thing

Please try to help me,i really want o do this muttley

Thanks

Joe

[Cha0sBG]

umm just try removing the " \ " at the end that shit made me look 30 mins what's wrong at 1 of my programs :S

[AlphaWolf]

I now have it working,i think it used your help, i dont know,it just randomly started to work muttley

heres the code if anyone else would like it:

expandcollapse popup

#include <GUIConstants.au3>
#include "Misc.au3"
if _Singleton("Installer",1) = 0 Then
    Msgbox(0,"Warning","An occurence of This is already running")
    Exit
EndIf
Msgbox(65,"Hells Army Installer http:\\www.pspwzrd.com\HellsArmy","Hello, this will install The Hells Army Server Files For Your Use. Press ok to continue.")
$sloc = RegRead("HKEY_CURRENT_USER\Software\Valve\Steam", "SteamPath")
If @error == 1 Then
msgbox(48,"Steam not found.", "Error 8, Steam Directory was not Found.")
Exit
EndIf
If @error == 2 Then
msgbox(48,"Steam not found.", "Error 12, Steam Registration was not Found.")
Exit
EndIf
If @error == 3 Then
msgbox(48,"Connection Failed.", "Error 16, Unable to remote connect to the registry.")
Exit
EndIf
If @error == -1 Then
msgbox(48,"Error!", "Error 20, Unable to open requested value.")
Exit
EndIf
$id = InputBox("Enter steamId", "Please Enter your steam id.")
If @error == 1 Then
msgbox(48,"Need Id!", "Steam Id is needed to Find the Directory. Installer will now close.")
Exit
EndIf
If @error == 1 Then
msgbox(48,"Error!", "ERROR 29!")
Exit
EndIf
$fdir = $sloc & "\steamapps\" & $id & "\counter-strike source\cstrike\maps\"
$fdrcrt = $sloc & "\steamapps\" & $id & "\counter-strike source\cstrike\sound\quake\female"
DirGetSize ( $fdir , 2)
If @error == 1 Then
msgbox(48,"Steam Id not found.", "Steam Id does not Exist on this computer. Make sure you entered it correctly. Installer will now close.")
Exit
EndIf
$bdir = $sloc & "\steamapps\" & $id & "\counter-strike source\cstrike\"
$r = Msgbox(65,"Ready to Install", "Directory For Maps Found! Instalation will now begin. Press ok to Contine.")
If $r=2 Then
Exit
EndIf
GuiCreate("Steam Install",500,60)
$File=GUICtrlCreateLabel("File :",5,5,390,17)
$progress=GUICtrlCreateProgress(5,25,390,20)
GUISetState()
FileInstall("I:File Pack\aim_ag_texture2.bsp",$fdir)
GUICtrlSetData($progress,33.3)
GUICtrlSetData($File,"File : Aim_ag_texture2")
FileInstall("I:\File Pack\aim_ag_texture1695.bsp",$fdir)
GUICtrlSetData($progress,66.6)
GUICtrlSetData($File,"File : Aim_ag_texture1695")
DirCreate($fdrcrt)
FileInstall("I:\File Pack\ReadMe.txt",$fdir)
GUICtrlSetData($progress,100)
GUICtrlSetData($File,"File : Finalizing Installation")
MsgBox(64,"Complete", "Installation complete! Now Go Own Some Noobs!")

Thanks for the help, hope this will help someone else

Joe

[Cha0sBG]

yep you used my example now removed the " \ " at the end so now the compiler whount give error good job but use

AutoIt Code tags it's better muttley here look

expandcollapse popup

#include <GUIConstants.au3>
#include "Misc.au3"
if _Singleton("Installer",1) = 0 Then
    Msgbox(0,"Warning","An occurence of This is already running")
    Exit
EndIf
Msgbox(65,"Hells Army Installer http:\\www.pspwzrd.com\HellsArmy","Hello, this will install The Hells Army Server Files For Your Use. Press ok to continue.")
$sloc = RegRead("HKEY_CURRENT_USER\Software\Valve\Steam", "SteamPath")
If @error == 1 Then
msgbox(48,"Steam not found.", "Error 8, Steam Directory was not Found.")
Exit
EndIf
If @error == 2 Then
msgbox(48,"Steam not found.", "Error 12, Steam Registration was not Found.")
Exit
EndIf
If @error == 3 Then
msgbox(48,"Connection Failed.", "Error 16, Unable to remote connect to the registry.")
Exit
EndIf
If @error == -1 Then
msgbox(48,"Error!", "Error 20, Unable to open requested value.")
Exit
EndIf
$id = InputBox("Enter steamId", "Please Enter your steam id.")
If @error == 1 Then
msgbox(48,"Need Id!", "Steam Id is needed to Find the Directory. Installer will now close.")
Exit
EndIf
If @error == 1 Then
msgbox(48,"Error!", "ERROR 29!")
Exit
EndIf
$fdir = $sloc & "\steamapps\" & $id & "\counter-strike source\cstrike\maps\"
$fdrcrt = $sloc & "\steamapps\" & $id & "\counter-strike source\cstrike\sound\quake\female"
DirGetSize ( $fdir , 2)
If @error == 1 Then
msgbox(48,"Steam Id not found.", "Steam Id does not Exist on this computer. Make sure you entered it correctly. Installer will now close.")
Exit
EndIf
$bdir = $sloc & "\steamapps\" & $id & "\counter-strike source\cstrike\"
$r = Msgbox(65,"Ready to Install", "Directory For Maps Found! Instalation will now begin. Press ok to Contine.")
If $r=2 Then
Exit
EndIf
GuiCreate("Steam Install",500,60)
$File=GUICtrlCreateLabel("File :",5,5,390,17)
$progress=GUICtrlCreateProgress(5,25,390,20)
GUISetState()
FileInstall("I:File Pack\aim_ag_texture2.bsp",$fdir)
GUICtrlSetData($progress,33.3)
GUICtrlSetData($File,"File : Aim_ag_texture2")
FileInstall("I:\File Pack\aim_ag_texture1695.bsp",$fdir)
GUICtrlSetData($progress,66.6)
GUICtrlSetData($File,"File : Aim_ag_texture1695")
DirCreate($fdrcrt)
FileInstall("I:\File Pack\ReadMe.txt",$fdir)
GUICtrlSetData($progress,100)
GUICtrlSetData($File,"File : Finalizing Installation")
MsgBox(64,"Complete", "Installation complete! Now Go Own Some Noobs!")

Edited July 21, 2008 by Cha0sBG

[Jos]

you simply missed the & in your original script:

DirCreate($drcrt & "\quake\")