[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
A voir également:
- [VB] un bug
- Vb - Télécharger - Langages
- Bug chromecast - Guide
- Iptv bug forum ✓ - Forum Box et Streaming vidéo
- Vb cable - Télécharger - Audio & Musique
- Bug localisation snap ✓ - Forum Snapchat
1 réponse
Bonjour,
et comme cela ???
Lupin
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
