Fichier introuvable par Visual Basic Fermé

Question

Bonjour, 
J'ai ce code en VB :

Private Sub Command1_Click()

Dim FSO As Variant
Dim LeFichier As Variant
Dim CheminNomFichier
Dim MeTbl As Variant
Dim PourTbl As Variant
Dim T As Variant
  
Set FSO = CreateObject("Scripting.FileSystemObject")
CheminNomFichier = "C:	oto.txt"
MsgBox CheminNomFichier
Set LeFichier = FSO.OpenTextFile(CheminNomFichier, 1)
PourTbl = LeFichier.ReadAll
LeFichier.Close
 
'PourTbl contient: "un;deux;trois;quatres;cinqiéme et dernier;"
    MeTbl = Split(PourTbl, ";")
    For T = 0 To UBound(MeTbl) - 1
    MsgBox "la variable MeTbl indice(" & T & ") contient: " & MeTbl(T)
    Next

End Sub

J ai sans cesse l'erreur fichier introuvable ... Le fichier existe bien je ne comprends pas avez vous une idée SVP.

Configuration: Windows XP / Safari 533.4

ghuysmans99 · Answer

Il n'est pas interdit de coder correctement :
Private Sub Command1_Click()
    Dim FSO As Object, LeFichier As Object
    Dim CheminNomFichier As String
    Dim MeTbl() As String, PourTbl As String
    Dim T As Long
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    CheminNomFichier = "C:	oto.txt"
    
    On Error Resume Next
    Set LeFichier = FSO.OpenTextFile(CheminNomFichier, 1)
    If Err Then
        MsgBox "Impossible d'ouvrir le fichier :" & vbCrLf & Err.Number & " -- " & Err.Description, vbExclamation, "Erreur"
        Exit Sub
    End If
    On Error GoTo 0
    PourTbl = LeFichier.ReadAll
    LeFichier.Close
    
    MeTbl = Split(PourTbl, ";")
    For T = 0 To UBound(MeTbl) - 1
        MsgBox "MeTbl(" & T & ")=" & MeTbl(T)
    Next T
End Sub
Le message d'erreur provient probablement du fait que tu n'as pas les droits sur le fichier.

Fichier introuvable par Visual Basic

1 réponse

Discussions similaires