rename a file or delete a file

[itech20059]

Hi new to VB I am trying something simple. To rename a exe if it exists. Eventually I would want to try and delete it. How my if else is not working.
I am getting a Line 2 end of statement expected error at char 57. Can anyone help me out.
Thanks.

If fso.FolderExists ("C:\Program Files\Winamp\")Then
Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.MoveFile "C:\Program Files\Winamp\winamp.exe" , "C:\Program Files\Winamp\Winamp_is_prohibited.txt";
		Else
'Do nothing



End If

 

[TipGiver]

It seems to me as vb6. If yes then goto forum222 .

 

[earthandfire]

You are trying to put multiple commands on one line:

If fso.FolderExists ("C:\Program Files\Winamp\")Then
Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.MoveFile "C:\Program Files\Winamp\winamp.exe" , "C:\Program Files\Winamp\Winamp_is_prohibited.txt";
        Else
'Do nothing



End If

should be

If fso.FolderExists ("C:\Program Files\Winamp\")Then
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	objFSO.MoveFile "C:\Program Files\Winamp\winamp.exe" , "C:\Program Files\Winamp\Winamp_is_prohibited.txt"
Else	
	'Do nothing
End If

Additionally since this isn't c or pascal etc you don't end lines with ;

Hope this helps.

 

[itech20059]

i do a lot of php so lines end with ;

 

[earthandfire]

Not in vb (.net or otherwise) though.