[VB] un bug
mary
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour forum,
j'ai fait un programme qui doit exécuter tous les fichier (txt) se trouvant dans "C:\"
mais quand je compile ya pas d'erreur et ca ne marche pas
Procédure à appeler pour lancer le traitement en lui passant le dossier de recherche en paramètre
Private Sub SearchFile(ByVal StartPath As String)
Dim Search As String
Dim Filename As String
' Assure toi qu'il y est bien une barre oblique "\" à la fin de StartPath
startPath="C:\"
Search = Dir$(StartPath & "*.txt")
If Search <> "" Then
Do
If (Search <> "." And Search <> "..") Then
' Chemin d'accès complet du fichier trouver
Filename = StartPath & Search
' S'assurez que c'est bien un fichier(pas obligatoire)
If (GetAttr(Filename) And vbDirectory) <> vbDirectory Then
' Crée toi une procédure ou fonction pour traiter le fichier trouver en lui passant le fichier trouver en paramètre
Call ProcédureDeTraitement(Filename)
End If
End If
Search = Dir$() ' Recherche le prochain fichier
DoEvents
Loop Until Search = "" ' Boucle tant qu'il trouve des fichiers
End If
End Sub
'========================================================'
Public Sub ProcédureDeTraitement(NomDuFichier As String)
open filename for input as #1
open"C:\toto.txt" for output as #2
while not Eof(1)
line input#1,ligne
write#2,ligne
wend
End Sub
est ce que vous avez une idée
mercci
j'ai fait un programme qui doit exécuter tous les fichier (txt) se trouvant dans "C:\"
mais quand je compile ya pas d'erreur et ca ne marche pas
Procédure à appeler pour lancer le traitement en lui passant le dossier de recherche en paramètre
Private Sub SearchFile(ByVal StartPath As String)
Dim Search As String
Dim Filename As String
' Assure toi qu'il y est bien une barre oblique "\" à la fin de StartPath
startPath="C:\"
Search = Dir$(StartPath & "*.txt")
If Search <> "" Then
Do
If (Search <> "." And Search <> "..") Then
' Chemin d'accès complet du fichier trouver
Filename = StartPath & Search
' S'assurez que c'est bien un fichier(pas obligatoire)
If (GetAttr(Filename) And vbDirectory) <> vbDirectory Then
' Crée toi une procédure ou fonction pour traiter le fichier trouver en lui passant le fichier trouver en paramètre
Call ProcédureDeTraitement(Filename)
End If
End If
Search = Dir$() ' Recherche le prochain fichier
DoEvents
Loop Until Search = "" ' Boucle tant qu'il trouve des fichiers
End If
End Sub
'========================================================'
Public Sub ProcédureDeTraitement(NomDuFichier As String)
open filename for input as #1
open"C:\toto.txt" for output as #2
while not Eof(1)
line input#1,ligne
write#2,ligne
wend
End Sub
est ce que vous avez une idée
mercci
1 réponse
-
Bonjour,
et comme cela ???
Private Sub SearchFile(ByVal StartPath As String) Dim Search As Variant Dim Filename As String ' Assure toi qu'il y est bien une barre oblique "\" à la fin de StartPath StartPath = "C:\" Search = Dir(StartPath & "*.txt") If Search <> "" Then Do If (Search <> "." And Search <> "..") Then ' Chemin d'accès complet du fichier trouver Filename = StartPath & Search ' S'assurez que c'est bien un fichier(pas obligatoire) If (GetAttr(Filename) And vbDirectory) <> vbDirectory Then ' Crée toi une procédure ou fonction pour traiter le fichier trouver en lui passant le fichier trouver en paramètre If (Filename <> "C:\toto.txt") Then Call ProcedureDeTraitement(Filename) End If End If End If Search = Dir() ' Recherche le prochain fichier DoEvents Loop Until Search = "" ' Boucle tant qu'il trouve des fichiers End If End Sub ' '========================================================' Public Sub ProcedureDeTraitement(NomDuFichier As String) Dim Fic1, Fic2 As Integer Fic1 = FreeFile Open NomDuFichier For Input As #Fic1 Fic2 = FreeFile Open "C:\toto.txt" For Output As #Fic2 While Not EOF(Fic1) Line Input #Fic1, ligne Write #Fic2, ligne Wend Close (Fic1) Close (Fic2) End Sub
Lupin
