imi trebuie ajutor la cod

Salut.Incerc sa fac un program.La un moment dat am scris asa:
Public Class scanform

    

Private Sub FileSystemWatcher_Create(ByVal sender As System.Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Created
		MsgBox("A Possible Program that could harm your computer was found.....Scanning it......(if Virus Contained program will ask you to delete it)")
   Dim arr() As String 
   Dim strl As String
   Dim newbox As New TextBoxnewbox.Multiline = True newbox.Text = My.Computer.FileSystem.ReadAllText(e.FullPath) strl = ListBox1.Text arr = Split(strl, ",", , CompareMethod.Text) 
   Dim i As Integer For i = 0 To UBound(arr) 
   Dim newstring As String For Each newstring In newbox.Lines If newstring = arr(i) Then If MsgBox("Virus(es)was found during Scan, delete it???", MsgBoxStyle.Critical + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then My.Computer.FileSystem.DeleteFile(e.FullPath) MsgBox("Virus Successfully Deleted File!") 
Exit Sub 
End If 
End If 
Next 
Next 
End 
	End Sub
End Class

Si primesc eroare End of statement expected.
Oricate enduri pun... tot asa arata.


Putin ajutor

L.E.:E mai bine asa edu2004edu?

Edited by Mehanix, 01 August 2010 - 18:06.

Macar daca formatai codul putin, dar daca ii dai paste asa cum l`a lasat Dumnezeu, cine crezi ca se oboseste sa descifreze ce ai tu acolo...? Sincer, mai bine mi`am pierdut timpul cu acest comentariu pana la urma inutil, decat sa te ajut.
Noroc si la mai mare.

Cred ca ai vrut sa scrii ceva in genul asta:

Private Sub FileSystemWatcher_Create(ByVal sender As System.Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Created
	MsgBox("A Possible Program that could harm your computer was found.....Scanning it......(if Virus Contained 
														program will ask you to delete it)")
	Dim arr() As String
	Dim strl As String
	Dim newbox As New TextBox
	newbox.Multiline = True 
	newbox.Text = My.Computer.FileSystem.ReadAllText(e.FullPath) 
	strl = ListBox1.Text arr = Split(strl, ",", , CompareMethod.Text)
	Dim i As Integer 
	For i = 0 To UBound(arr)
		Dim newstring As String 
		For Each newstring In newbox.Lines 
			If newstring = arr(i) Then 
				If MsgBox("Virus(es)was found during Scan, delete it???",
									 MsgBoxStyle.Critical + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then 
					My.Computer.FileSystem.DeleteFile(e.FullPath) 
					MsgBox("Virus Successfully Deleted File!")
					Exit Sub
				End If
			End If
			Next
		End					 <------------- pe asta l-ai uitat
		Next
	End
End Sub

VB cod
Salut am si eu nevoe un sfat pentru

	Dim Write As New System.IO.StreamWriter(CurDir() & "\Fisier.txt")
	Write.Write(" Ip meu IP")
	Write.Close()
	Dim AppPath = (CurDir() & "\fisier.exe")
	Shell(AppPath, vbMinimizedFocus)
	Close()

Vreau sa pot pune un ip in fisierul text si cand apas butonul start sa citeasca ip din fisierul txt
Va multumesc

Si ce legatura are citirea din fisierul text cu executarea lui fisier.exe?

dani.user, on 7th November 2010, 18:38, said:

acel fisier.exe este pentru a deschide un joc nu partea de jos ma intereseaza a scriptului
Dim Write As New System.IO.StreamWriter(CurDir() & "\fisier.txt")
Write.Write("  IP meu") in loc de IP meu vreau sa citeasca ip din fisier.txt nu sa il scrie
Multumesc
Daca poti sa imi dai o mana de ajutor iti sunt recunoscator
Ma intereseaza connect la ip din fisier txt

Edited by adrianstayll, 08 November 2010 - 20:12.

http://msdn.microsof...reamreader.aspx