Tom's Guide > Forum > Programmation > Message d'erreur dans une application vb.net

Message d'erreur dans une application vb.net

Forum Programmation : Message d'erreur dans une application vb.net

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Créer un nouveau sujet Répondre
Mot :    Pseudo :           
 
martin27_12   24-03-2009 à 13:52:36

Bonjour tout le monde,
j'ai un message d'erreur concernant l'instanciation d'un objet:

System.NullReferenceException: La référence d'objet n'est pas définie à une instance d'un objet. à PoMailPh.frmPrinc.procVerifFichier() à PoMailPh.frmPrinc.fct_watch_folder()

Suite a des recherches, j'ai su que ca se regle par new mais je vois pas ou je peux l'integrer et de quel objet il s'agit dans cette partie de code.

Code :
  1. Private Sub procVerifFichier()
  2.         Dim i As Integer
  3.         Dim sFiles() As String
  4.         Dim FreeF As Integer
  5.         Dim str() As String
  6.         Dim tmp() As String
  8. Do
  9.             Try
  10.                 'System.Threading.Thread.Sleep(5000)
  11.                 If Not File.Exists(f_in & "\pomail.lock" ) Then
  12.                     'pour avoir les noms des fichiers et des sous-répertoires
  13.                     sFiles = Directory.GetFiles(f_in)
  14.                     For i = 0 To sFiles.GetUpperBound(0)
  16.                         If InStr(sFiles(i), ".txt" ) > 0 Then
  18.                             'System.Threading.Thread.Sleep(5000)
  19.                             FreeF = FreeFile()                                            'Possibilité de mettre 1************
  20.                             FileOpen(FreeF, sFiles(i), OpenMode.Input)                  'Ouverture du fichier créé**********
  21.                             str = Split(InputString(FreeF, FileLen(sFiles(i))), Chr(10)) 'Séparation des lignes du fichier***
  22.                             FileClose(FreeF)
  23.                             File.Delete(archive & sFiles(i).Substring(27, sFiles(i).Length - 27))
  24.                             File.Move(sFiles(i), archive & sFiles(i).Substring(27, sFiles(i).Length - 27))
  25.                             'MsgBox(sFiles(i), archive & sFiles(i))
  27.                             With txtwatch
  29.                                 .SelectionStart = Len(txtwatch.Text)
  30.                                 .SelectionProtected = False
  31.                                 .SelectionStart = Len(txtwatch.Text) + 1
  32.                                 .SelectionColor = System.Drawing.Color.Red
  33.                                 .SelectedText = "Fichier créé : " & Replace(sFiles(i), f_in, "" ) & " " & Date.Now & vbCrLf
  34.                                 .SelectionProtected = True
  35.                                 .Focus()
  36.                                 .SelectionStart = txtwatch.Text.Length
  37.                                 .ScrollToCaret()
  38.                             End With
  39.                             tmp = Split(Replace(Replace(str(0), Chr(34), "" ), "'", " " ), ";" )
  40.                             'If tmp(2).ToUpper <> "V" Then
  41.                             'Exit Sub
  42.                             'end if
  43.                             If tmp(2).ToUpper = "V" Then
  44.                                 fct_fill_sql(str, sFiles(i).Substring(27, 2).ToUpper)
  45.                                 fct_fill_excel(str, sFiles(i).Substring(27, 2).ToUpper)
  46.                             End If
  47.                         End If
  48.                         If File.Exists(f_in & "\pomail.lock" ) Then Exit For
  49.                     Next
  50.                 End If
  52.             Catch ex As Exception
  53.                 fct_send_mail(envoyeur, warning, "ERREUR PO VIA MAIL " & Replace(sFiles(i), f_in, "" ), 0, ex.ToString, "none" )
  54.                 '# erreur no 1
  55.                 fct_exec_sql("UPDATE pur_order SET err=1 WHERE pur_order.po_number='0'" )
  57.             End Try
  58.             Exit Do
  59.         Loop
  60.     End Sub


dans .fct_watch_folder(), j'appelle la fonction procVerifFichier().
Merci beaucoup pour votre aide.

Répondre
Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.
Créer un nouveau sujet Répondre
Tom's Guide > Forum > Programmation > Message d'erreur dans une application vb.net
Aller à :

Il y a 943 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Plan du forum
Forum Bestofmedia ©
2000-2009 Bestofmedia Group
Page générée en 0,414 secondes
Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens