c'est ok le code suivant retire toutes les lignes de mon=20
batch mais lorsque je veux apres ecrite dans le batch (par=20
le biais de mon vb)j'ai un message: erreur d'execution63,=20
numero d'enregistrement incorrect. Le fichier existe=20
toujours mais je ne peux aller ecrire dedans donc1
-------------------------------------------------------
code de suppression des lignes:
Private Sub inibatch_Click()
Dim sFile As String
Dim hFile As Long
sFile =3D "c:\outils\maliste.bat"
hFile =3D FreeFile
Open sFile For Output As #hFile
Close #hFile
End Sub
--------------------------------------------------------
code d'ecriture dans le ficheir:
Private Sub Paire_Click()
psource =3D Filesource.Path
pcible =3D Dircible.Path
pall =3D psource & " " & pcible & " "
Select Case MsgBox("Souhaitez-vous cr=E9er cette paire? " &=20
psource & " vers " & pcible, vbYesNo)
Case vbYes
Dim FFN As Integer
FFN =3D FreeFile
Open "Maliste.bat" For Binary As FFN
Put FFN, LOF(FFN), vbCrLf & "xcopy /s /e /v " &=20
CStr(pall)
Close FFN
Case vbNo
MsgBox "Annulation de votre s=E9lection"
End Select
End Sub
----------------------------------------------------------
ci quelqu'un c'est se qui pourrait etre la cause
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
le_troll
Bonjour, je me demande, sans être certain: Tu fais output pour écraser et donc vider, ok, donc=0 ko Ensuite tu fais dans un fichier existant et vide: Put pointeur, longueur_fichier, écrit_ça Il me semble que pour mettre à la suite, l'indication de position du pointeur n'est pas obligatoire, soit: Put pointeur, , écrit_ça Comme il est vide, je ne sais pas, tu peux toujours voir si ça marche mieux?
Heu, une autres question, comme tu désignes le chemin en dur, est-ce que par hasard le chemin ne serait pas le même et que tu aurais en fait deux fichiers, peux-tu faire une recherche, ça m'est déjà arrivé... J'vais essayer de faire marcher le code pour me rendre compte... -- Merci, @+, bye, Joe
------------------------------------------ Avec une hache, celui qui tient le manche a toujours raison ! ------------------------------------------
"fred" a écrit dans le message de news: 7f4801c431c8$98224720$ c'est ok le code suivant retire toutes les lignes de mon batch mais lorsque je veux apres ecrite dans le batch (par le biais de mon vb)j'ai un message: erreur d'execution63, numero d'enregistrement incorrect. Le fichier existe toujours mais je ne peux aller ecrire dedans donc1 ------------------------------------------------------- code de suppression des lignes: Private Sub inibatch_Click() Dim sFile As String Dim hFile As Long sFile = "c:outilsmaliste.bat" hFile = FreeFile Open sFile For Output As #hFile Close #hFile End Sub -------------------------------------------------------- code d'ecriture dans le ficheir: Private Sub Paire_Click() psource = Filesource.Path pcible = Dircible.Path pall = psource & " " & pcible & " "
Select Case MsgBox("Souhaitez-vous créer cette paire? " & psource & " vers " & pcible, vbYesNo) Case vbYes Dim FFN As Integer FFN = FreeFile Open "Maliste.bat" For Binary As FFN Put FFN, LOF(FFN), vbCrLf & "xcopy /s /e /v " & CStr(pall) Close FFN Case vbNo MsgBox "Annulation de votre sélection" End Select
End Sub ---------------------------------------------------------- ci quelqu'un c'est se qui pourrait etre la cause
Bonjour, je me demande, sans être certain:
Tu fais output pour écraser et donc vider, ok, donc=0 ko
Ensuite tu fais dans un fichier existant et vide:
Put pointeur, longueur_fichier, écrit_ça
Il me semble que pour mettre à la suite, l'indication de position du
pointeur n'est pas obligatoire, soit:
Put pointeur, , écrit_ça
Comme il est vide, je ne sais pas, tu peux toujours voir si ça marche mieux?
Heu, une autres question, comme tu désignes le chemin en dur, est-ce que par
hasard le chemin ne serait pas le même et que tu aurais en fait deux
fichiers, peux-tu faire une recherche, ça m'est déjà arrivé...
J'vais essayer de faire marcher le code pour me rendre compte...
--
Merci, @+, bye, Joe
montmartre75@iFrance.com
------------------------------------------
Avec une hache, celui qui tient le manche a toujours raison !
------------------------------------------
"fred" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 7f4801c431c8$98224720$a501280a@phx.gbl...
c'est ok le code suivant retire toutes les lignes de mon
batch mais lorsque je veux apres ecrite dans le batch (par
le biais de mon vb)j'ai un message: erreur d'execution63,
numero d'enregistrement incorrect. Le fichier existe
toujours mais je ne peux aller ecrire dedans donc1
-------------------------------------------------------
code de suppression des lignes:
Private Sub inibatch_Click()
Dim sFile As String
Dim hFile As Long
sFile = "c:outilsmaliste.bat"
hFile = FreeFile
Open sFile For Output As #hFile
Close #hFile
End Sub
--------------------------------------------------------
code d'ecriture dans le ficheir:
Private Sub Paire_Click()
psource = Filesource.Path
pcible = Dircible.Path
pall = psource & " " & pcible & " "
Select Case MsgBox("Souhaitez-vous créer cette paire? " &
psource & " vers " & pcible, vbYesNo)
Case vbYes
Dim FFN As Integer
FFN = FreeFile
Open "Maliste.bat" For Binary As FFN
Put FFN, LOF(FFN), vbCrLf & "xcopy /s /e /v " &
CStr(pall)
Close FFN
Case vbNo
MsgBox "Annulation de votre sélection"
End Select
End Sub
----------------------------------------------------------
ci quelqu'un c'est se qui pourrait etre la cause
Bonjour, je me demande, sans être certain: Tu fais output pour écraser et donc vider, ok, donc=0 ko Ensuite tu fais dans un fichier existant et vide: Put pointeur, longueur_fichier, écrit_ça Il me semble que pour mettre à la suite, l'indication de position du pointeur n'est pas obligatoire, soit: Put pointeur, , écrit_ça Comme il est vide, je ne sais pas, tu peux toujours voir si ça marche mieux?
Heu, une autres question, comme tu désignes le chemin en dur, est-ce que par hasard le chemin ne serait pas le même et que tu aurais en fait deux fichiers, peux-tu faire une recherche, ça m'est déjà arrivé... J'vais essayer de faire marcher le code pour me rendre compte... -- Merci, @+, bye, Joe
------------------------------------------ Avec une hache, celui qui tient le manche a toujours raison ! ------------------------------------------
"fred" a écrit dans le message de news: 7f4801c431c8$98224720$ c'est ok le code suivant retire toutes les lignes de mon batch mais lorsque je veux apres ecrite dans le batch (par le biais de mon vb)j'ai un message: erreur d'execution63, numero d'enregistrement incorrect. Le fichier existe toujours mais je ne peux aller ecrire dedans donc1 ------------------------------------------------------- code de suppression des lignes: Private Sub inibatch_Click() Dim sFile As String Dim hFile As Long sFile = "c:outilsmaliste.bat" hFile = FreeFile Open sFile For Output As #hFile Close #hFile End Sub -------------------------------------------------------- code d'ecriture dans le ficheir: Private Sub Paire_Click() psource = Filesource.Path pcible = Dircible.Path pall = psource & " " & pcible & " "
Select Case MsgBox("Souhaitez-vous créer cette paire? " & psource & " vers " & pcible, vbYesNo) Case vbYes Dim FFN As Integer FFN = FreeFile Open "Maliste.bat" For Binary As FFN Put FFN, LOF(FFN), vbCrLf & "xcopy /s /e /v " & CStr(pall) Close FFN Case vbNo MsgBox "Annulation de votre sélection" End Select
End Sub ---------------------------------------------------------- ci quelqu'un c'est se qui pourrait etre la cause
Zoury
Salut Fred! :O)
Sur quel ligne obtiens tu l'erreur? Peux-tu nous faire une petite démo fonctionnel qui reproduit le phénomène? je n'y arrive pas..
Voici tout de même 2 problèmes que je vois dans ton code :
Open "Maliste.bat" For Binary As FFN
tu n'a pas spécifié le chemin d'accès complet ce qui peut te jouer de vilain tour.. Si le current directory n'est pas celui que tu crois, le fichier sera créé ailleurs.
Put FFN, LOF(FFN), vbCrLf & "xcopy /s /e /v " &
Il faudrait mettre LOF(FFN) + 1 si tu veux écrire *après* le dernier caractère, sinon tu écrase celui-ci
Sur quel ligne obtiens tu l'erreur? Peux-tu nous faire une petite démo
fonctionnel qui reproduit le phénomène? je n'y arrive pas..
Voici tout de même 2 problèmes que je vois dans ton code :
Open "Maliste.bat" For Binary As FFN
tu n'a pas spécifié le chemin d'accès complet ce qui peut te jouer de vilain
tour.. Si le current directory n'est pas celui que tu crois, le fichier sera
créé ailleurs.
Put FFN, LOF(FFN), vbCrLf & "xcopy /s /e /v " &
Il faudrait mettre LOF(FFN) + 1 si tu veux écrire *après* le dernier
caractère, sinon tu écrase celui-ci
Sur quel ligne obtiens tu l'erreur? Peux-tu nous faire une petite démo fonctionnel qui reproduit le phénomène? je n'y arrive pas..
Voici tout de même 2 problèmes que je vois dans ton code :
Open "Maliste.bat" For Binary As FFN
tu n'a pas spécifié le chemin d'accès complet ce qui peut te jouer de vilain tour.. Si le current directory n'est pas celui que tu crois, le fichier sera créé ailleurs.
Put FFN, LOF(FFN), vbCrLf & "xcopy /s /e /v " &
Il faudrait mettre LOF(FFN) + 1 si tu veux écrire *après* le dernier caractère, sinon tu écrase celui-ci
Private Sub inibatch_Click() Dim sFile As String Dim hFile As Long sFile = "c:outilsmaliste.bat" hFile = FreeFile Open sFile For Output As #hFile Close #hFile End Sub
Select Case MsgBox("Souhaitez-vous créer cette paire? " & psource & " vers " & pcible, vbYesNo) Case vbYes Dim FFN As Integer FFN = FreeFile Open "c:outilsmaliste.bat" For Binary As FFN Put FFN, , vbCrLf & "xcopy /s /e /v " & CStr(pall) Close FFN Case vbNo MsgBox "Annulation de votre sélection" End Select
Private Sub inibatch_Click()
Dim sFile As String
Dim hFile As Long
sFile = "c:outilsmaliste.bat"
hFile = FreeFile
Open sFile For Output As #hFile
Close #hFile
End Sub
Select Case MsgBox("Souhaitez-vous créer cette paire? " &
psource & " vers " & pcible, vbYesNo)
Case vbYes
Dim FFN As Integer
FFN = FreeFile
Open "c:outilsmaliste.bat" For Binary As FFN
Put FFN, , vbCrLf & "xcopy /s /e /v " & CStr(pall)
Close FFN
Case vbNo
MsgBox "Annulation de votre sélection"
End Select
Private Sub inibatch_Click() Dim sFile As String Dim hFile As Long sFile = "c:outilsmaliste.bat" hFile = FreeFile Open sFile For Output As #hFile Close #hFile End Sub
Select Case MsgBox("Souhaitez-vous créer cette paire? " & psource & " vers " & pcible, vbYesNo) Case vbYes Dim FFN As Integer FFN = FreeFile Open "c:outilsmaliste.bat" For Binary As FFN Put FFN, , vbCrLf & "xcopy /s /e /v " & CStr(pall) Close FFN Case vbNo MsgBox "Annulation de votre sélection" End Select
