Visual Basic .NET : erreur inattendue !!Résolu

Question

Bonjour &#224; tous,

je voudrais faire un prog qui recherche dans tous les fichiers TXT du r&#233;pertoire c:\WINDOWS\wormskiller	emp les mots delete, del, erase, remove, format et qui, s'il les trouvent, envoit une fenetre Windows, sinon, il envoit une autre fenetre windows (voir la source ci-dessous) : aidez-moi SVP !!!!

ma source  :

imports Microsoft.VisualBasic
imports System
imports System.Collections
imports System.IO
imports System.ComponentModel
imports System.Drawing
imports System.Windows.Forms


' initialisation des fenetres windows
public class rien : inherits System.Windows.Forms.Form
 public sub new()
  Me.Text = "Rien"
  ' bien sur je finirais la fenetre ...
 end sub
end class


public class detecte : inherits System.Windows.Forms.Form
 public sub new()
  Me.Text = "Detecte !"
  ' la aussi je finirais la fenetre ...
 end sub
end class


' module de recherche
public module MyModule
 
 ' recherche
 function recherche() as integer
  ' ouvrir les fichiers TXT du dossier suivant
        Dim sr as new StreamReader("C:\WINDOWS\wormskiller	emp\*.txt")
  ' ouvrir
  sr.Read()
   Dim FichierScan as new Hashtable(sr.ReadToEnd)
   ' si les fichiers contiennent les mots ... renvoyer ...
   if FichierScan.ContainsValue("delete") then return 1
   if FichierScan.ContainsValue("del") then return 2
   if FichierScan.ContainsValue("remove") then return 3
   if FichierScan.ContainsValue("erase") then return 4
   if FichierScan.ContainsValue("format") then return 5
  ' fermer
  sr.Close()
 end function


 ' retour
 sub Main
  ' si la fonction recherche = 0 alors lanc&#233; la fenetre Windows "Rien"
  if recherche = 0 then
   Application.Run(new rien())
  else
  ' sinon lanc&#233; la fenetre "d&#233;tect&#233; !"
   Application.Run(new detecte())
  end if
 end sub


end module

cs_69chris · Accepted Answer

Salut,

A la place de 

Dim sr as new StreamReader("C:\WINDOWS\wormskiller	emp\*.txt")

tu pourrais faire un truc du genre

For Each strFichier As String In  Directory.GetFiles("C:\WINDOWS\wormskiller	emp", "*.txt")

    Dim sr as new StreamReader(strFichier)

    ......

    sr.Close()

Next





Chris


N'oubliez pas de cloturer votre post.

cs_69chris · Answer

Et j'y pense, ajoutes un bloc try/catch dans tes m&#233;thodes, &#231;a &#233;vite des probl&#232;mes et &#231;a permet de localiser les erreurs...

Du genre, "new StreamWriter(<Chemin vers un fichier>)" car ta
synthaxe (si &#231;a marchais) &#231;a donnerais un flux vers un ensemble de
fichiers, un 'ti coup d'oeil &#224; la doc fait pas de mal.


Chris


N'oubliez pas de cloturer votre post.

allthew3 · Answer

C bon : probl&#232;me r&#233;gl&#233; ! merci

et je suis un d&#233;butant, alors ....

&#224;+

Visual Basic .NET : erreur inattendue !!

3 réponses

Discussions similaires