Bonjour à tous.
Je suis en train de développer une application formidable : tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern". Je
suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon application
DEUX FOIS !!!!!!!!!
Bonjour à tous.
Je suis en train de développer une application formidable : tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern". Je
suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon application
DEUX FOIS !!!!!!!!!
Bonjour à tous.
Je suis en train de développer une application formidable : tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern". Je
suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon application
DEUX FOIS !!!!!!!!!
Bonjour L'AMI Yves,
L'AMI Yves a écrit :Bonjour à tous.
Je suis en train de développer une application formidable : tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern". Je
suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon application
DEUX FOIS !!!!!!!!!
File1.Refresh, après le "Kill" ne fonctionne t-il pas ?
--
Cordialement,
Jacques.
Bonjour L'AMI Yves,
L'AMI Yves a écrit :
Bonjour à tous.
Je suis en train de développer une application formidable : tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern". Je
suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon application
DEUX FOIS !!!!!!!!!
File1.Refresh, après le "Kill" ne fonctionne t-il pas ?
--
Cordialement,
Jacques.
Bonjour L'AMI Yves,
L'AMI Yves a écrit :Bonjour à tous.
Je suis en train de développer une application formidable : tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern". Je
suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon application
DEUX FOIS !!!!!!!!!
File1.Refresh, après le "Kill" ne fonctionne t-il pas ?
--
Cordialement,
Jacques.
Bonjour à tous.
Je suis en train de développer une application formidable : tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour être
complet, j'ai aussi une TextBox où je peux rentrer un "Pattern". Je suis
sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien que mon
application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la liste
des fichiers autrement qu'en fermant et rouvrant mon application DEUX FOIS
!!!!!!!!!
Je précise que je fais ça avec mon très antédiluvien VB 5 Initiation.
Alors merci à ceux qui pourront me dire comment fait Explorer pour tenir
sa liste à jour...
AMIcalement
Bonjour à tous.
Je suis en train de développer une application formidable : tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour être
complet, j'ai aussi une TextBox où je peux rentrer un "Pattern". Je suis
sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien que mon
application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la liste
des fichiers autrement qu'en fermant et rouvrant mon application DEUX FOIS
!!!!!!!!!
Je précise que je fais ça avec mon très antédiluvien VB 5 Initiation.
Alors merci à ceux qui pourront me dire comment fait Explorer pour tenir
sa liste à jour...
AMIcalement
Bonjour à tous.
Je suis en train de développer une application formidable : tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour être
complet, j'ai aussi une TextBox où je peux rentrer un "Pattern". Je suis
sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien que mon
application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la liste
des fichiers autrement qu'en fermant et rouvrant mon application DEUX FOIS
!!!!!!!!!
Je précise que je fais ça avec mon très antédiluvien VB 5 Initiation.
Alors merci à ceux qui pourront me dire comment fait Explorer pour tenir
sa liste à jour...
AMIcalement
' OBJETS = form1 + drive1 + dir1 + file1 = 4
Option Explicit
'
Sub Form_Load()
ChDrive App.Path
ChDir App.Path
Dir1 = App.Path
End Sub
Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
End Sub
Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Sub File1_Click()
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion + vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End Sub
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"L'AMI Yves" a écrit dans le message de
news:%Bonjour à tous.
Je suis en train de développer une application formidable : tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern". Je
suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon application
DEUX FOIS !!!!!!!!!
Je précise que je fais ça avec mon très antédiluvien VB 5 Initiation.
Alors merci à ceux qui pourront me dire comment fait Explorer pour tenir
sa liste à jour...
AMIcalement
' OBJETS = form1 + drive1 + dir1 + file1 = 4
Option Explicit
'
Sub Form_Load()
ChDrive App.Path
ChDir App.Path
Dir1 = App.Path
End Sub
Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
End Sub
Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Sub File1_Click()
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion + vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End Sub
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"L'AMI Yves" <yves.matringe@fri.fr.invalide> a écrit dans le message de
news:%23trgoDN0KHA.6104@TK2MSFTNGP06.phx.gbl...
Bonjour à tous.
Je suis en train de développer une application formidable : tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern". Je
suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon application
DEUX FOIS !!!!!!!!!
Je précise que je fais ça avec mon très antédiluvien VB 5 Initiation.
Alors merci à ceux qui pourront me dire comment fait Explorer pour tenir
sa liste à jour...
AMIcalement
' OBJETS = form1 + drive1 + dir1 + file1 = 4
Option Explicit
'
Sub Form_Load()
ChDrive App.Path
ChDir App.Path
Dir1 = App.Path
End Sub
Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
End Sub
Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Sub File1_Click()
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion + vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End Sub
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"L'AMI Yves" a écrit dans le message de
news:%Bonjour à tous.
Je suis en train de développer une application formidable : tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern". Je
suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon application
DEUX FOIS !!!!!!!!!
Je précise que je fais ça avec mon très antédiluvien VB 5 Initiation.
Alors merci à ceux qui pourront me dire comment fait Explorer pour tenir
sa liste à jour...
AMIcalement
"Jacques93" a écrit dans le message de news:Bonjour L'AMI Yves,
L'AMI Yves a écrit :Bonjour à tous.
Je suis en train de développer une application formidable :
tenez-vous bien. J'ai une DriveListBox, une DirListBox et une
FileListBox. Pour être complet, j'ai aussi une TextBox où je peux
rentrer un "Pattern". Je suis sûr que vous ne voyez pas où je veux en
venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec
les précautions d'usage, je "Kill" le fichier désigné. Vous voyez
bien que mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon
application DEUX FOIS !!!!!!!!!
File1.Refresh, après le "Kill" ne fonctionne t-il pas ?
Ben non, tu penses bien que c'est la première chose que j'ai essayée.
Ensuite, j'ai essayé de modifier le Path (et de revenir, bien sûr), et le
Pattern, et... je ne sais plus tout ce que j'ai essayé.
Mais si tu as bien lu, il faut fermer et ouvrir l'appli DEUX FOIS. C'est
à dire que si j'efface un fichier dans ma fenêtre File, que je ferme mon
appli, et que je la rouvre, le fichier apparait toujours ! (j'ai une
injurebox
si j'essaie encore de l'effacer, faut pas exagérer), ce qui me fait
supposer
que les requêtes que sont là-derrière sont mises en cache dieu sait où.
C'est surtout là-dessus que portait ma demande au groupe.
"Jacques93" <jacques@Nospam> a écrit dans le message de news:
uWXPtbN0KHA.220@TK2MSFTNGP06.phx.gbl...
Bonjour L'AMI Yves,
L'AMI Yves a écrit :
Bonjour à tous.
Je suis en train de développer une application formidable :
tenez-vous bien. J'ai une DriveListBox, une DirListBox et une
FileListBox. Pour être complet, j'ai aussi une TextBox où je peux
rentrer un "Pattern". Je suis sûr que vous ne voyez pas où je veux en
venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec
les précautions d'usage, je "Kill" le fichier désigné. Vous voyez
bien que mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon
application DEUX FOIS !!!!!!!!!
File1.Refresh, après le "Kill" ne fonctionne t-il pas ?
Ben non, tu penses bien que c'est la première chose que j'ai essayée.
Ensuite, j'ai essayé de modifier le Path (et de revenir, bien sûr), et le
Pattern, et... je ne sais plus tout ce que j'ai essayé.
Mais si tu as bien lu, il faut fermer et ouvrir l'appli DEUX FOIS. C'est
à dire que si j'efface un fichier dans ma fenêtre File, que je ferme mon
appli, et que je la rouvre, le fichier apparait toujours ! (j'ai une
injurebox
si j'essaie encore de l'effacer, faut pas exagérer), ce qui me fait
supposer
que les requêtes que sont là-derrière sont mises en cache dieu sait où.
C'est surtout là-dessus que portait ma demande au groupe.
"Jacques93" a écrit dans le message de news:Bonjour L'AMI Yves,
L'AMI Yves a écrit :Bonjour à tous.
Je suis en train de développer une application formidable :
tenez-vous bien. J'ai une DriveListBox, une DirListBox et une
FileListBox. Pour être complet, j'ai aussi une TextBox où je peux
rentrer un "Pattern". Je suis sûr que vous ne voyez pas où je veux en
venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec
les précautions d'usage, je "Kill" le fichier désigné. Vous voyez
bien que mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon
application DEUX FOIS !!!!!!!!!
File1.Refresh, après le "Kill" ne fonctionne t-il pas ?
Ben non, tu penses bien que c'est la première chose que j'ai essayée.
Ensuite, j'ai essayé de modifier le Path (et de revenir, bien sûr), et le
Pattern, et... je ne sais plus tout ce que j'ai essayé.
Mais si tu as bien lu, il faut fermer et ouvrir l'appli DEUX FOIS. C'est
à dire que si j'efface un fichier dans ma fenêtre File, que je ferme mon
appli, et que je la rouvre, le fichier apparait toujours ! (j'ai une
injurebox
si j'essaie encore de l'effacer, faut pas exagérer), ce qui me fait
supposer
que les requêtes que sont là-derrière sont mises en cache dieu sait où.
C'est surtout là-dessus que portait ma demande au groupe.
L'AMI Yves a écrit :
"Jacques93" a écrit dans le message de news:Bonjour L'AMI Yves,
L'AMI Yves a écrit :Bonjour à tous.
Je suis en train de développer une application formidable : tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern".
Je suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon application
DEUX FOIS !!!!!!!!!
File1.Refresh, après le "Kill" ne fonctionne t-il pas ?
Ben non, tu penses bien que c'est la première chose que j'ai essayée.
Ensuite, j'ai essayé de modifier le Path (et de revenir, bien sûr), et
le
Pattern, et... je ne sais plus tout ce que j'ai essayé.
Mais si tu as bien lu, il faut fermer et ouvrir l'appli DEUX FOIS. C'est
à dire que si j'efface un fichier dans ma fenêtre File, que je ferme mon
appli, et que je la rouvre, le fichier apparait toujours ! (j'ai une
injurebox
si j'essaie encore de l'effacer, faut pas exagérer), ce qui me fait
supposer
que les requêtes que sont là-derrière sont mises en cache dieu sait où.
C'est surtout là-dessus que portait ma demande au groupe.
J'ai fait l'essai sous W7 avec VB6 (je n'ai plus VB5). A tout hasard, tu
travailles avec des disques durs "fixes", ou des supports amovibles : clé
USB, mémoire flash, disques SSD, CD/DVD-RW , etc ... ?
--
Cordialement,
Jacques.
L'AMI Yves a écrit :
"Jacques93" <jacques@Nospam> a écrit dans le message de news:
uWXPtbN0KHA.220@TK2MSFTNGP06.phx.gbl...
Bonjour L'AMI Yves,
L'AMI Yves a écrit :
Bonjour à tous.
Je suis en train de développer une application formidable : tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern".
Je suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon application
DEUX FOIS !!!!!!!!!
File1.Refresh, après le "Kill" ne fonctionne t-il pas ?
Ben non, tu penses bien que c'est la première chose que j'ai essayée.
Ensuite, j'ai essayé de modifier le Path (et de revenir, bien sûr), et
le
Pattern, et... je ne sais plus tout ce que j'ai essayé.
Mais si tu as bien lu, il faut fermer et ouvrir l'appli DEUX FOIS. C'est
à dire que si j'efface un fichier dans ma fenêtre File, que je ferme mon
appli, et que je la rouvre, le fichier apparait toujours ! (j'ai une
injurebox
si j'essaie encore de l'effacer, faut pas exagérer), ce qui me fait
supposer
que les requêtes que sont là-derrière sont mises en cache dieu sait où.
C'est surtout là-dessus que portait ma demande au groupe.
J'ai fait l'essai sous W7 avec VB6 (je n'ai plus VB5). A tout hasard, tu
travailles avec des disques durs "fixes", ou des supports amovibles : clé
USB, mémoire flash, disques SSD, CD/DVD-RW , etc ... ?
--
Cordialement,
Jacques.
L'AMI Yves a écrit :
"Jacques93" a écrit dans le message de news:Bonjour L'AMI Yves,
L'AMI Yves a écrit :Bonjour à tous.
Je suis en train de développer une application formidable : tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern".
Je suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon application
DEUX FOIS !!!!!!!!!
File1.Refresh, après le "Kill" ne fonctionne t-il pas ?
Ben non, tu penses bien que c'est la première chose que j'ai essayée.
Ensuite, j'ai essayé de modifier le Path (et de revenir, bien sûr), et
le
Pattern, et... je ne sais plus tout ce que j'ai essayé.
Mais si tu as bien lu, il faut fermer et ouvrir l'appli DEUX FOIS. C'est
à dire que si j'efface un fichier dans ma fenêtre File, que je ferme mon
appli, et que je la rouvre, le fichier apparait toujours ! (j'ai une
injurebox
si j'essaie encore de l'effacer, faut pas exagérer), ce qui me fait
supposer
que les requêtes que sont là-derrière sont mises en cache dieu sait où.
C'est surtout là-dessus que portait ma demande au groupe.
J'ai fait l'essai sous W7 avec VB6 (je n'ai plus VB5). A tout hasard, tu
travailles avec des disques durs "fixes", ou des supports amovibles : clé
USB, mémoire flash, disques SSD, CD/DVD-RW , etc ... ?
--
Cordialement,
Jacques.
"L'AMI Yves" a écrit dans le message de
news:
"LE TROLL" <le a écrit dans le message de news:' OBJETS = form1 + drive1 + dir1 + file1 = 4
Option Explicit
'
Sub Form_Load()
ChDrive App.Path
ChDir App.Path
Dir1 = App.Path
End Sub
Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
End Sub
Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Sub File1_Click()
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion + vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End Sub
As-tu testé ton programme avec un disque où le cache en écriture est
activé ?
Je demande ça, par ce que chez moi, l'ajout des appels à Drive1_Change et
Dir1_Change ne ... change rien du tout.
AMIcalement.
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"L'AMI Yves" a écrit dans le message de
news:%Bonjour à tous.
Je suis en train de développer une application formidable : tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern".
Je
suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon application
DEUX FOIS !!!!!!!!!
Je précise que je fais ça avec mon très antédiluvien VB 5 Initiation.
Alors merci à ceux qui pourront me dire comment fait Explorer pour
tenir
sa liste à jour...
AMIcalement
"L'AMI Yves" <yves.matringe@fri.fr.invalide> a écrit dans le message de
news:OPZ8SJP0KHA.5344@TK2MSFTNGP02.phx.gbl...
"LE TROLL" <le troll@enfer.fr> a écrit dans le message de news:
2757724C-37CB-4C59-B9BF-D63E1A03AE2F@microsoft.com...
' OBJETS = form1 + drive1 + dir1 + file1 = 4
Option Explicit
'
Sub Form_Load()
ChDrive App.Path
ChDir App.Path
Dir1 = App.Path
End Sub
Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
End Sub
Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Sub File1_Click()
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion + vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End Sub
As-tu testé ton programme avec un disque où le cache en écriture est
activé ?
Je demande ça, par ce que chez moi, l'ajout des appels à Drive1_Change et
Dir1_Change ne ... change rien du tout.
AMIcalement.
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"L'AMI Yves" <yves.matringe@fri.fr.invalide> a écrit dans le message de
news:%23trgoDN0KHA.6104@TK2MSFTNGP06.phx.gbl...
Bonjour à tous.
Je suis en train de développer une application formidable : tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern".
Je
suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon application
DEUX FOIS !!!!!!!!!
Je précise que je fais ça avec mon très antédiluvien VB 5 Initiation.
Alors merci à ceux qui pourront me dire comment fait Explorer pour
tenir
sa liste à jour...
AMIcalement
"L'AMI Yves" a écrit dans le message de
news:
"LE TROLL" <le a écrit dans le message de news:' OBJETS = form1 + drive1 + dir1 + file1 = 4
Option Explicit
'
Sub Form_Load()
ChDrive App.Path
ChDir App.Path
Dir1 = App.Path
End Sub
Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
End Sub
Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Sub File1_Click()
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion + vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End Sub
As-tu testé ton programme avec un disque où le cache en écriture est
activé ?
Je demande ça, par ce que chez moi, l'ajout des appels à Drive1_Change et
Dir1_Change ne ... change rien du tout.
AMIcalement.
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"L'AMI Yves" a écrit dans le message de
news:%Bonjour à tous.
Je suis en train de développer une application formidable : tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern".
Je
suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon application
DEUX FOIS !!!!!!!!!
Je précise que je fais ça avec mon très antédiluvien VB 5 Initiation.
Alors merci à ceux qui pourront me dire comment fait Explorer pour
tenir
sa liste à jour...
AMIcalement
Bonsoir,
Affirmatif, c'est testé sur mon disque, j'ai tenté de reproduire ton
modèle (hors la touche <del>), et en fait le RAB se produit quand on fait
de
nouveau appel à dir, drive... Ce qui peut a posteriori sembler normal,
puisque la première fois où ça se lance ça affiche bien le contenu, alors
en
le rappelant ça devrait faire la même chose.
Je ne sais pas ce que c'est que la cache en écriture, cacher quoi,
quelle écriture ? Il n'y a qu'un clique pour tout écriture venant du
clavier
(me concernant), peut être que je connais le "cache en écriture" sous un
autre nom ?
Ce que tu peux déjà faire, c'est prendre une feuille vierge, d'un
programme vierge, mettre drive, dir, list1 en objet, puis copier le code
et
lancer, car peut être que certains paramètres modifiés par toi
interdisent
un déroulement tel qu'il fonctionne chez moi ? Vb5 e, ou vb6, c'est
quasiment la même chose, j'ai eu vb5 i, puis vb6 i et p, c'est quasi la
même
chose, sauf que le p à accès à davantage d'objets en option, bof...
J'ai fait ça pour ton <del>, mais ça ne change rien, chat marche, à
condition quand même de valider le bon élément dans la liste :
Sub File1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
If KeyCode = 46 Then
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion +
vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End If
End Sub
Heu, bizarre ta méthode, déjà de recopier la list1 dans une liste,
puis
qu'il faille cliquer à la souris, puis lâcher la souris pour aller faire
<del>, sauf à croiser les mains comme au piano, moi j'aurais mis un popup
(menu surgissant sur double clique), qui proposerait toute la batterie...
Je vais tenter de passer le code sur le forum, peut être que ça va
marcher, et peut être que vb5 acceptera ?
A te lire, cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
."L'AMI Yves" a écrit dans le message de
news:
"LE TROLL" <le a écrit dans le message de news:' OBJETS = form1 + drive1 + dir1 + file1 = 4
Option Explicit
'
Sub Form_Load()
ChDrive App.Path
ChDir App.Path
Dir1 = App.Path
End Sub
Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
End Sub
Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Sub File1_Click()
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion +
vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End Sub
As-tu testé ton programme avec un disque où le cache en écriture est
activé ?
Je demande ça, par ce que chez moi, l'ajout des appels à Drive1_Change
et
Dir1_Change ne ... change rien du tout.
AMIcalement.
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"L'AMI Yves" a écrit dans le message
de
news:%Bonjour à tous.
Je suis en train de développer une application formidable :
tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern".
Je
suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec
les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien
que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon
application
DEUX FOIS !!!!!!!!!
Je précise que je fais ça avec mon très antédiluvien VB 5 Initiation.
Alors merci à ceux qui pourront me dire comment fait Explorer pour
tenir
sa liste à jour...
AMIcalement
Bonsoir,
Affirmatif, c'est testé sur mon disque, j'ai tenté de reproduire ton
modèle (hors la touche <del>), et en fait le RAB se produit quand on fait
de
nouveau appel à dir, drive... Ce qui peut a posteriori sembler normal,
puisque la première fois où ça se lance ça affiche bien le contenu, alors
en
le rappelant ça devrait faire la même chose.
Je ne sais pas ce que c'est que la cache en écriture, cacher quoi,
quelle écriture ? Il n'y a qu'un clique pour tout écriture venant du
clavier
(me concernant), peut être que je connais le "cache en écriture" sous un
autre nom ?
Ce que tu peux déjà faire, c'est prendre une feuille vierge, d'un
programme vierge, mettre drive, dir, list1 en objet, puis copier le code
et
lancer, car peut être que certains paramètres modifiés par toi
interdisent
un déroulement tel qu'il fonctionne chez moi ? Vb5 e, ou vb6, c'est
quasiment la même chose, j'ai eu vb5 i, puis vb6 i et p, c'est quasi la
même
chose, sauf que le p à accès à davantage d'objets en option, bof...
J'ai fait ça pour ton <del>, mais ça ne change rien, chat marche, à
condition quand même de valider le bon élément dans la liste :
Sub File1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
If KeyCode = 46 Then
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion +
vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End If
End Sub
Heu, bizarre ta méthode, déjà de recopier la list1 dans une liste,
puis
qu'il faille cliquer à la souris, puis lâcher la souris pour aller faire
<del>, sauf à croiser les mains comme au piano, moi j'aurais mis un popup
(menu surgissant sur double clique), qui proposerait toute la batterie...
Je vais tenter de passer le code sur le forum, peut être que ça va
marcher, et peut être que vb5 acceptera ?
A te lire, cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"L'AMI Yves" <yves.matringe@fri.fr.invalide> a écrit dans le message de
news:OPZ8SJP0KHA.5344@TK2MSFTNGP02.phx.gbl...
"LE TROLL" <le troll@enfer.fr> a écrit dans le message de news:
2757724C-37CB-4C59-B9BF-D63E1A03AE2F@microsoft.com...
' OBJETS = form1 + drive1 + dir1 + file1 = 4
Option Explicit
'
Sub Form_Load()
ChDrive App.Path
ChDir App.Path
Dir1 = App.Path
End Sub
Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
End Sub
Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Sub File1_Click()
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion +
vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End Sub
As-tu testé ton programme avec un disque où le cache en écriture est
activé ?
Je demande ça, par ce que chez moi, l'ajout des appels à Drive1_Change
et
Dir1_Change ne ... change rien du tout.
AMIcalement.
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"L'AMI Yves" <yves.matringe@fri.fr.invalide> a écrit dans le message
de
news:%23trgoDN0KHA.6104@TK2MSFTNGP06.phx.gbl...
Bonjour à tous.
Je suis en train de développer une application formidable :
tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern".
Je
suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec
les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien
que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon
application
DEUX FOIS !!!!!!!!!
Je précise que je fais ça avec mon très antédiluvien VB 5 Initiation.
Alors merci à ceux qui pourront me dire comment fait Explorer pour
tenir
sa liste à jour...
AMIcalement
Bonsoir,
Affirmatif, c'est testé sur mon disque, j'ai tenté de reproduire ton
modèle (hors la touche <del>), et en fait le RAB se produit quand on fait
de
nouveau appel à dir, drive... Ce qui peut a posteriori sembler normal,
puisque la première fois où ça se lance ça affiche bien le contenu, alors
en
le rappelant ça devrait faire la même chose.
Je ne sais pas ce que c'est que la cache en écriture, cacher quoi,
quelle écriture ? Il n'y a qu'un clique pour tout écriture venant du
clavier
(me concernant), peut être que je connais le "cache en écriture" sous un
autre nom ?
Ce que tu peux déjà faire, c'est prendre une feuille vierge, d'un
programme vierge, mettre drive, dir, list1 en objet, puis copier le code
et
lancer, car peut être que certains paramètres modifiés par toi
interdisent
un déroulement tel qu'il fonctionne chez moi ? Vb5 e, ou vb6, c'est
quasiment la même chose, j'ai eu vb5 i, puis vb6 i et p, c'est quasi la
même
chose, sauf que le p à accès à davantage d'objets en option, bof...
J'ai fait ça pour ton <del>, mais ça ne change rien, chat marche, à
condition quand même de valider le bon élément dans la liste :
Sub File1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
If KeyCode = 46 Then
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion +
vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End If
End Sub
Heu, bizarre ta méthode, déjà de recopier la list1 dans une liste,
puis
qu'il faille cliquer à la souris, puis lâcher la souris pour aller faire
<del>, sauf à croiser les mains comme au piano, moi j'aurais mis un popup
(menu surgissant sur double clique), qui proposerait toute la batterie...
Je vais tenter de passer le code sur le forum, peut être que ça va
marcher, et peut être que vb5 acceptera ?
A te lire, cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
."L'AMI Yves" a écrit dans le message de
news:
"LE TROLL" <le a écrit dans le message de news:' OBJETS = form1 + drive1 + dir1 + file1 = 4
Option Explicit
'
Sub Form_Load()
ChDrive App.Path
ChDir App.Path
Dir1 = App.Path
End Sub
Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
End Sub
Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Sub File1_Click()
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion +
vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End Sub
As-tu testé ton programme avec un disque où le cache en écriture est
activé ?
Je demande ça, par ce que chez moi, l'ajout des appels à Drive1_Change
et
Dir1_Change ne ... change rien du tout.
AMIcalement.
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"L'AMI Yves" a écrit dans le message
de
news:%Bonjour à tous.
Je suis en train de développer une application formidable :
tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern".
Je
suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec
les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien
que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon
application
DEUX FOIS !!!!!!!!!
Je précise que je fais ça avec mon très antédiluvien VB 5 Initiation.
Alors merci à ceux qui pourront me dire comment fait Explorer pour
tenir
sa liste à jour...
AMIcalement
Je ne comprends pas si tes deux posts sont les mêmes : disons que oui.
Qu'appelles-tu RAB ? "Remise A Blanc" ?
Justement, le cache en écriture fait que deux actions successives
semblables ne donnent pas le même résultat. Tu sauras si ton disque
a le cache en écriture activé en faisant "Clic-droit Poste de
travail/Gérer/
Gestion des disques", puis, dans la case de gauche, où est décrit le
disque
physique où réside le répertoire (voire la partition) sur laquelle on
travaille, "Clic-droit/Propriété/Stratégie" ...OUF ! Là tu trouveras une
case
à cocher "Activer le cache d'écriture sur le disque".
Il y a certainement une API pour forcer l'écriture du cache, ou pour
forcer une lecture physique lors du second accès, mais je ne la connais
pas, c'est pourquoi je m'adresse à ce forum.
Pourquoi trouves-tu ma méthode bizarre ? Et d'ailleurs, que connais-tu
de ma méthode : je n'ai pas montré mon source ?
En fait, en l'occurrence, je liste un répertoire contenant un grand nombre
de petits fichiers ".wav". En cliquant, je fais "jouer" le fichier (en le
passant
à l'API "ShellExecute"), et j'ai ensuite "compliqué" mon application en la
dotant d'une facilité pour supprimer les fichiers sans intérêt. Comme le
clic est déjà pris, j'utilise "Suppr" : je fais un "KeyUp" et je teste
"VbDelete":
ça me parait tout à fait limpide, non ?
Toi, tu me dis que chez toi, ça marche, c'est à dire que si tu supprimes
un
fichier dans la fenêtre "FileListBox", la liste des fichiers se met bien à
jour ?
"LE TROLL" <le a écrit dans le message de news:Bonsoir,
Affirmatif, c'est testé sur mon disque, j'ai tenté de reproduire ton
modèle (hors la touche <del>), et en fait le RAB se produit quand on fait
de
nouveau appel à dir, drive... Ce qui peut a posteriori sembler normal,
puisque la première fois où ça se lance ça affiche bien le contenu, alors
en
le rappelant ça devrait faire la même chose.
Je ne sais pas ce que c'est que la cache en écriture, cacher quoi,
quelle écriture ? Il n'y a qu'un clique pour tout écriture venant du
clavier
(me concernant), peut être que je connais le "cache en écriture" sous un
autre nom ?
Ce que tu peux déjà faire, c'est prendre une feuille vierge, d'un
programme vierge, mettre drive, dir, list1 en objet, puis copier le code
et
lancer, car peut être que certains paramètres modifiés par toi
interdisent
un déroulement tel qu'il fonctionne chez moi ? Vb5 e, ou vb6, c'est
quasiment la même chose, j'ai eu vb5 i, puis vb6 i et p, c'est quasi la
même
chose, sauf que le p à accès à davantage d'objets en option, bof...
J'ai fait ça pour ton <del>, mais ça ne change rien, chat marche, à
condition quand même de valider le bon élément dans la liste :
Sub File1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
If KeyCode = 46 Then
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion +
vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End If
End Sub
Heu, bizarre ta méthode, déjà de recopier la list1 dans une liste,
puis
qu'il faille cliquer à la souris, puis lâcher la souris pour aller faire
<del>, sauf à croiser les mains comme au piano, moi j'aurais mis un popup
(menu surgissant sur double clique), qui proposerait toute la batterie...
Tant qu'à faire, ici, je mettrais un popup menu sur clic-droit. J'ai pensé
à ça
un moment, mais il faut transformer la coordonnée X dans la fenêtre, en
index dans la liste des fichiers : j'ai été dégoût d'avance. De toute
façon, ça
n'aurait rien changé au problème de mise à jour de la liste, il me semble.
Je vais tenter de passer le code sur le forum, peut être que ça va
marcher, et peut être que vb5 acceptera ?
A te lire, cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
."L'AMI Yves" a écrit dans le message de
news:
"LE TROLL" <le a écrit dans le message de news:' OBJETS = form1 + drive1 + dir1 + file1 = 4
Option Explicit
'
Sub Form_Load()
ChDrive App.Path
ChDir App.Path
Dir1 = App.Path
End Sub
Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
End Sub
Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Sub File1_Click()
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion +
vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End Sub
As-tu testé ton programme avec un disque où le cache en écriture est
activé ?
Je demande ça, par ce que chez moi, l'ajout des appels à Drive1_Change
et
Dir1_Change ne ... change rien du tout.
AMIcalement.
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"L'AMI Yves" a écrit dans le message
de
news:%Bonjour à tous.
Je suis en train de développer une application formidable :
tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern".
Je
suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec
les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien
que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon
application
DEUX FOIS !!!!!!!!!
Je précise que je fais ça avec mon très antédiluvien VB 5 Initiation.
Alors merci à ceux qui pourront me dire comment fait Explorer pour
tenir
sa liste à jour...
AMIcalement
Je ne comprends pas si tes deux posts sont les mêmes : disons que oui.
Qu'appelles-tu RAB ? "Remise A Blanc" ?
Justement, le cache en écriture fait que deux actions successives
semblables ne donnent pas le même résultat. Tu sauras si ton disque
a le cache en écriture activé en faisant "Clic-droit Poste de
travail/Gérer/
Gestion des disques", puis, dans la case de gauche, où est décrit le
disque
physique où réside le répertoire (voire la partition) sur laquelle on
travaille, "Clic-droit/Propriété/Stratégie" ...OUF ! Là tu trouveras une
case
à cocher "Activer le cache d'écriture sur le disque".
Il y a certainement une API pour forcer l'écriture du cache, ou pour
forcer une lecture physique lors du second accès, mais je ne la connais
pas, c'est pourquoi je m'adresse à ce forum.
Pourquoi trouves-tu ma méthode bizarre ? Et d'ailleurs, que connais-tu
de ma méthode : je n'ai pas montré mon source ?
En fait, en l'occurrence, je liste un répertoire contenant un grand nombre
de petits fichiers ".wav". En cliquant, je fais "jouer" le fichier (en le
passant
à l'API "ShellExecute"), et j'ai ensuite "compliqué" mon application en la
dotant d'une facilité pour supprimer les fichiers sans intérêt. Comme le
clic est déjà pris, j'utilise "Suppr" : je fais un "KeyUp" et je teste
"VbDelete":
ça me parait tout à fait limpide, non ?
Toi, tu me dis que chez toi, ça marche, c'est à dire que si tu supprimes
un
fichier dans la fenêtre "FileListBox", la liste des fichiers se met bien à
jour ?
"LE TROLL" <le troll@enfer.fr> a écrit dans le message de news:
O0SZgAQ0KHA.3708@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Affirmatif, c'est testé sur mon disque, j'ai tenté de reproduire ton
modèle (hors la touche <del>), et en fait le RAB se produit quand on fait
de
nouveau appel à dir, drive... Ce qui peut a posteriori sembler normal,
puisque la première fois où ça se lance ça affiche bien le contenu, alors
en
le rappelant ça devrait faire la même chose.
Je ne sais pas ce que c'est que la cache en écriture, cacher quoi,
quelle écriture ? Il n'y a qu'un clique pour tout écriture venant du
clavier
(me concernant), peut être que je connais le "cache en écriture" sous un
autre nom ?
Ce que tu peux déjà faire, c'est prendre une feuille vierge, d'un
programme vierge, mettre drive, dir, list1 en objet, puis copier le code
et
lancer, car peut être que certains paramètres modifiés par toi
interdisent
un déroulement tel qu'il fonctionne chez moi ? Vb5 e, ou vb6, c'est
quasiment la même chose, j'ai eu vb5 i, puis vb6 i et p, c'est quasi la
même
chose, sauf que le p à accès à davantage d'objets en option, bof...
J'ai fait ça pour ton <del>, mais ça ne change rien, chat marche, à
condition quand même de valider le bon élément dans la liste :
Sub File1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
If KeyCode = 46 Then
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion +
vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End If
End Sub
Heu, bizarre ta méthode, déjà de recopier la list1 dans une liste,
puis
qu'il faille cliquer à la souris, puis lâcher la souris pour aller faire
<del>, sauf à croiser les mains comme au piano, moi j'aurais mis un popup
(menu surgissant sur double clique), qui proposerait toute la batterie...
Tant qu'à faire, ici, je mettrais un popup menu sur clic-droit. J'ai pensé
à ça
un moment, mais il faut transformer la coordonnée X dans la fenêtre, en
index dans la liste des fichiers : j'ai été dégoût d'avance. De toute
façon, ça
n'aurait rien changé au problème de mise à jour de la liste, il me semble.
Je vais tenter de passer le code sur le forum, peut être que ça va
marcher, et peut être que vb5 acceptera ?
A te lire, cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"L'AMI Yves" <yves.matringe@fri.fr.invalide> a écrit dans le message de
news:OPZ8SJP0KHA.5344@TK2MSFTNGP02.phx.gbl...
"LE TROLL" <le troll@enfer.fr> a écrit dans le message de news:
2757724C-37CB-4C59-B9BF-D63E1A03AE2F@microsoft.com...
' OBJETS = form1 + drive1 + dir1 + file1 = 4
Option Explicit
'
Sub Form_Load()
ChDrive App.Path
ChDir App.Path
Dir1 = App.Path
End Sub
Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
End Sub
Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Sub File1_Click()
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion +
vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End Sub
As-tu testé ton programme avec un disque où le cache en écriture est
activé ?
Je demande ça, par ce que chez moi, l'ajout des appels à Drive1_Change
et
Dir1_Change ne ... change rien du tout.
AMIcalement.
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"L'AMI Yves" <yves.matringe@fri.fr.invalide> a écrit dans le message
de
news:%23trgoDN0KHA.6104@TK2MSFTNGP06.phx.gbl...
Bonjour à tous.
Je suis en train de développer une application formidable :
tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern".
Je
suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec
les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien
que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon
application
DEUX FOIS !!!!!!!!!
Je précise que je fais ça avec mon très antédiluvien VB 5 Initiation.
Alors merci à ceux qui pourront me dire comment fait Explorer pour
tenir
sa liste à jour...
AMIcalement
Je ne comprends pas si tes deux posts sont les mêmes : disons que oui.
Qu'appelles-tu RAB ? "Remise A Blanc" ?
Justement, le cache en écriture fait que deux actions successives
semblables ne donnent pas le même résultat. Tu sauras si ton disque
a le cache en écriture activé en faisant "Clic-droit Poste de
travail/Gérer/
Gestion des disques", puis, dans la case de gauche, où est décrit le
disque
physique où réside le répertoire (voire la partition) sur laquelle on
travaille, "Clic-droit/Propriété/Stratégie" ...OUF ! Là tu trouveras une
case
à cocher "Activer le cache d'écriture sur le disque".
Il y a certainement une API pour forcer l'écriture du cache, ou pour
forcer une lecture physique lors du second accès, mais je ne la connais
pas, c'est pourquoi je m'adresse à ce forum.
Pourquoi trouves-tu ma méthode bizarre ? Et d'ailleurs, que connais-tu
de ma méthode : je n'ai pas montré mon source ?
En fait, en l'occurrence, je liste un répertoire contenant un grand nombre
de petits fichiers ".wav". En cliquant, je fais "jouer" le fichier (en le
passant
à l'API "ShellExecute"), et j'ai ensuite "compliqué" mon application en la
dotant d'une facilité pour supprimer les fichiers sans intérêt. Comme le
clic est déjà pris, j'utilise "Suppr" : je fais un "KeyUp" et je teste
"VbDelete":
ça me parait tout à fait limpide, non ?
Toi, tu me dis que chez toi, ça marche, c'est à dire que si tu supprimes
un
fichier dans la fenêtre "FileListBox", la liste des fichiers se met bien à
jour ?
"LE TROLL" <le a écrit dans le message de news:Bonsoir,
Affirmatif, c'est testé sur mon disque, j'ai tenté de reproduire ton
modèle (hors la touche <del>), et en fait le RAB se produit quand on fait
de
nouveau appel à dir, drive... Ce qui peut a posteriori sembler normal,
puisque la première fois où ça se lance ça affiche bien le contenu, alors
en
le rappelant ça devrait faire la même chose.
Je ne sais pas ce que c'est que la cache en écriture, cacher quoi,
quelle écriture ? Il n'y a qu'un clique pour tout écriture venant du
clavier
(me concernant), peut être que je connais le "cache en écriture" sous un
autre nom ?
Ce que tu peux déjà faire, c'est prendre une feuille vierge, d'un
programme vierge, mettre drive, dir, list1 en objet, puis copier le code
et
lancer, car peut être que certains paramètres modifiés par toi
interdisent
un déroulement tel qu'il fonctionne chez moi ? Vb5 e, ou vb6, c'est
quasiment la même chose, j'ai eu vb5 i, puis vb6 i et p, c'est quasi la
même
chose, sauf que le p à accès à davantage d'objets en option, bof...
J'ai fait ça pour ton <del>, mais ça ne change rien, chat marche, à
condition quand même de valider le bon élément dans la liste :
Sub File1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
If KeyCode = 46 Then
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion +
vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End If
End Sub
Heu, bizarre ta méthode, déjà de recopier la list1 dans une liste,
puis
qu'il faille cliquer à la souris, puis lâcher la souris pour aller faire
<del>, sauf à croiser les mains comme au piano, moi j'aurais mis un popup
(menu surgissant sur double clique), qui proposerait toute la batterie...
Tant qu'à faire, ici, je mettrais un popup menu sur clic-droit. J'ai pensé
à ça
un moment, mais il faut transformer la coordonnée X dans la fenêtre, en
index dans la liste des fichiers : j'ai été dégoût d'avance. De toute
façon, ça
n'aurait rien changé au problème de mise à jour de la liste, il me semble.
Je vais tenter de passer le code sur le forum, peut être que ça va
marcher, et peut être que vb5 acceptera ?
A te lire, cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
."L'AMI Yves" a écrit dans le message de
news:
"LE TROLL" <le a écrit dans le message de news:' OBJETS = form1 + drive1 + dir1 + file1 = 4
Option Explicit
'
Sub Form_Load()
ChDrive App.Path
ChDir App.Path
Dir1 = App.Path
End Sub
Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
End Sub
Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Sub File1_Click()
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion +
vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End Sub
As-tu testé ton programme avec un disque où le cache en écriture est
activé ?
Je demande ça, par ce que chez moi, l'ajout des appels à Drive1_Change
et
Dir1_Change ne ... change rien du tout.
AMIcalement.
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"L'AMI Yves" a écrit dans le message
de
news:%Bonjour à tous.
Je suis en train de développer une application formidable :
tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern".
Je
suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec
les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien
que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon
application
DEUX FOIS !!!!!!!!!
Je précise que je fais ça avec mon très antédiluvien VB 5 Initiation.
Alors merci à ceux qui pourront me dire comment fait Explorer pour
tenir
sa liste à jour...
AMIcalement
Je ne comprends pas si tes deux posts sont les mêmes : disons que oui.
Qu'appelles-tu RAB ? "Remise A Blanc" ?
Justement, le cache en écriture fait que deux actions successives
semblables ne donnent pas le même résultat. Tu sauras si ton disque
a le cache en écriture activé en faisant "Clic-droit Poste de
travail/Gérer/
Gestion des disques", puis, dans la case de gauche, où est décrit le
disque
physique où réside le répertoire (voire la partition) sur laquelle on
travaille, "Clic-droit/Propriété/Stratégie" ...OUF ! Là tu trouveras une
case
à cocher "Activer le cache d'écriture sur le disque".
Il y a certainement une API pour forcer l'écriture du cache, ou pour
forcer une lecture physique lors du second accès, mais je ne la connais
pas, c'est pourquoi je m'adresse à ce forum.
Pourquoi trouves-tu ma méthode bizarre ? Et d'ailleurs, que connais-tu
de ma méthode : je n'ai pas montré mon source ?
En fait, en l'occurrence, je liste un répertoire contenant un grand nombre
de petits fichiers ".wav". En cliquant, je fais "jouer" le fichier (en le
passant
à l'API "ShellExecute"), et j'ai ensuite "compliqué" mon application en la
dotant d'une facilité pour supprimer les fichiers sans intérêt. Comme le
clic est déjà pris, j'utilise "Suppr" : je fais un "KeyUp" et je teste
"VbDelete":
ça me parait tout à fait limpide, non ?
Toi, tu me dis que chez toi, ça marche, c'est à dire que si tu supprimes
un
fichier dans la fenêtre "FileListBox", la liste des fichiers se met bien à
jour ?
"LE TROLL" <le a écrit dans le message de news:Bonsoir,
Affirmatif, c'est testé sur mon disque, j'ai tenté de reproduire ton
modèle (hors la touche <del>), et en fait le RAB se produit quand on fait
de
nouveau appel à dir, drive... Ce qui peut a posteriori sembler normal,
puisque la première fois où ça se lance ça affiche bien le contenu, alors
en
le rappelant ça devrait faire la même chose.
Je ne sais pas ce que c'est que la cache en écriture, cacher quoi,
quelle écriture ? Il n'y a qu'un clique pour tout écriture venant du
clavier
(me concernant), peut être que je connais le "cache en écriture" sous un
autre nom ?
Ce que tu peux déjà faire, c'est prendre une feuille vierge, d'un
programme vierge, mettre drive, dir, list1 en objet, puis copier le code
et
lancer, car peut être que certains paramètres modifiés par toi
interdisent
un déroulement tel qu'il fonctionne chez moi ? Vb5 e, ou vb6, c'est
quasiment la même chose, j'ai eu vb5 i, puis vb6 i et p, c'est quasi la
même
chose, sauf que le p à accès à davantage d'objets en option, bof...
J'ai fait ça pour ton <del>, mais ça ne change rien, chat marche, à
condition quand même de valider le bon élément dans la liste :
Sub File1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
If KeyCode = 46 Then
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion +
vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End If
End Sub
Heu, bizarre ta méthode, déjà de recopier la list1 dans une liste,
puis
qu'il faille cliquer à la souris, puis lâcher la souris pour aller faire
<del>, sauf à croiser les mains comme au piano, moi j'aurais mis un popup
(menu surgissant sur double clique), qui proposerait toute la batterie...
Tant qu'à faire, ici, je mettrais un popup menu sur clic-droit. J'ai pensé
à ça
un moment, mais il faut transformer la coordonnée X dans la fenêtre, en
index dans la liste des fichiers : j'ai été dégoût d'avance. De toute
façon, ça
n'aurait rien changé au problème de mise à jour de la liste, il me semble.
Je vais tenter de passer le code sur le forum, peut être que ça va
marcher, et peut être que vb5 acceptera ?
A te lire, cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
."L'AMI Yves" a écrit dans le message de
news:
"LE TROLL" <le a écrit dans le message de news:' OBJETS = form1 + drive1 + dir1 + file1 = 4
Option Explicit
'
Sub Form_Load()
ChDrive App.Path
ChDir App.Path
Dir1 = App.Path
End Sub
Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
End Sub
Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Sub File1_Click()
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion +
vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End Sub
As-tu testé ton programme avec un disque où le cache en écriture est
activé ?
Je demande ça, par ce que chez moi, l'ajout des appels à Drive1_Change
et
Dir1_Change ne ... change rien du tout.
AMIcalement.
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"L'AMI Yves" a écrit dans le message
de
news:%Bonjour à tous.
Je suis en train de développer une application formidable :
tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern".
Je
suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec
les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien
que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon
application
DEUX FOIS !!!!!!!!!
Je précise que je fais ça avec mon très antédiluvien VB 5 Initiation.
Alors merci à ceux qui pourront me dire comment fait Explorer pour
tenir
sa liste à jour...
AMIcalement
Je ne comprends pas si tes deux posts sont les mêmes : disons que oui.
Qu'appelles-tu RAB ? "Remise A Blanc" ?
Justement, le cache en écriture fait que deux actions successives
semblables ne donnent pas le même résultat. Tu sauras si ton disque
a le cache en écriture activé en faisant "Clic-droit Poste de
travail/Gérer/
Gestion des disques", puis, dans la case de gauche, où est décrit le
disque
physique où réside le répertoire (voire la partition) sur laquelle on
travaille, "Clic-droit/Propriété/Stratégie" ...OUF ! Là tu trouveras une
case
à cocher "Activer le cache d'écriture sur le disque".
Il y a certainement une API pour forcer l'écriture du cache, ou pour
forcer une lecture physique lors du second accès, mais je ne la connais
pas, c'est pourquoi je m'adresse à ce forum.
Pourquoi trouves-tu ma méthode bizarre ? Et d'ailleurs, que connais-tu
de ma méthode : je n'ai pas montré mon source ?
En fait, en l'occurrence, je liste un répertoire contenant un grand nombre
de petits fichiers ".wav". En cliquant, je fais "jouer" le fichier (en le
passant
à l'API "ShellExecute"), et j'ai ensuite "compliqué" mon application en la
dotant d'une facilité pour supprimer les fichiers sans intérêt. Comme le
clic est déjà pris, j'utilise "Suppr" : je fais un "KeyUp" et je teste
"VbDelete":
ça me parait tout à fait limpide, non ?
Toi, tu me dis que chez toi, ça marche, c'est à dire que si tu supprimes
un
fichier dans la fenêtre "FileListBox", la liste des fichiers se met bien à
jour ?
"LE TROLL" <le troll@enfer.fr> a écrit dans le message de news:
O0SZgAQ0KHA.3708@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Affirmatif, c'est testé sur mon disque, j'ai tenté de reproduire ton
modèle (hors la touche <del>), et en fait le RAB se produit quand on fait
de
nouveau appel à dir, drive... Ce qui peut a posteriori sembler normal,
puisque la première fois où ça se lance ça affiche bien le contenu, alors
en
le rappelant ça devrait faire la même chose.
Je ne sais pas ce que c'est que la cache en écriture, cacher quoi,
quelle écriture ? Il n'y a qu'un clique pour tout écriture venant du
clavier
(me concernant), peut être que je connais le "cache en écriture" sous un
autre nom ?
Ce que tu peux déjà faire, c'est prendre une feuille vierge, d'un
programme vierge, mettre drive, dir, list1 en objet, puis copier le code
et
lancer, car peut être que certains paramètres modifiés par toi
interdisent
un déroulement tel qu'il fonctionne chez moi ? Vb5 e, ou vb6, c'est
quasiment la même chose, j'ai eu vb5 i, puis vb6 i et p, c'est quasi la
même
chose, sauf que le p à accès à davantage d'objets en option, bof...
J'ai fait ça pour ton <del>, mais ça ne change rien, chat marche, à
condition quand même de valider le bon élément dans la liste :
Sub File1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
If KeyCode = 46 Then
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion +
vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End If
End Sub
Heu, bizarre ta méthode, déjà de recopier la list1 dans une liste,
puis
qu'il faille cliquer à la souris, puis lâcher la souris pour aller faire
<del>, sauf à croiser les mains comme au piano, moi j'aurais mis un popup
(menu surgissant sur double clique), qui proposerait toute la batterie...
Tant qu'à faire, ici, je mettrais un popup menu sur clic-droit. J'ai pensé
à ça
un moment, mais il faut transformer la coordonnée X dans la fenêtre, en
index dans la liste des fichiers : j'ai été dégoût d'avance. De toute
façon, ça
n'aurait rien changé au problème de mise à jour de la liste, il me semble.
Je vais tenter de passer le code sur le forum, peut être que ça va
marcher, et peut être que vb5 acceptera ?
A te lire, cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"L'AMI Yves" <yves.matringe@fri.fr.invalide> a écrit dans le message de
news:OPZ8SJP0KHA.5344@TK2MSFTNGP02.phx.gbl...
"LE TROLL" <le troll@enfer.fr> a écrit dans le message de news:
2757724C-37CB-4C59-B9BF-D63E1A03AE2F@microsoft.com...
' OBJETS = form1 + drive1 + dir1 + file1 = 4
Option Explicit
'
Sub Form_Load()
ChDrive App.Path
ChDir App.Path
Dir1 = App.Path
End Sub
Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
End Sub
Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Sub File1_Click()
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion +
vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End Sub
As-tu testé ton programme avec un disque où le cache en écriture est
activé ?
Je demande ça, par ce que chez moi, l'ajout des appels à Drive1_Change
et
Dir1_Change ne ... change rien du tout.
AMIcalement.
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"L'AMI Yves" <yves.matringe@fri.fr.invalide> a écrit dans le message
de
news:%23trgoDN0KHA.6104@TK2MSFTNGP06.phx.gbl...
Bonjour à tous.
Je suis en train de développer une application formidable :
tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern".
Je
suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec
les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien
que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon
application
DEUX FOIS !!!!!!!!!
Je précise que je fais ça avec mon très antédiluvien VB 5 Initiation.
Alors merci à ceux qui pourront me dire comment fait Explorer pour
tenir
sa liste à jour...
AMIcalement
Je ne comprends pas si tes deux posts sont les mêmes : disons que oui.
Qu'appelles-tu RAB ? "Remise A Blanc" ?
Justement, le cache en écriture fait que deux actions successives
semblables ne donnent pas le même résultat. Tu sauras si ton disque
a le cache en écriture activé en faisant "Clic-droit Poste de
travail/Gérer/
Gestion des disques", puis, dans la case de gauche, où est décrit le
disque
physique où réside le répertoire (voire la partition) sur laquelle on
travaille, "Clic-droit/Propriété/Stratégie" ...OUF ! Là tu trouveras une
case
à cocher "Activer le cache d'écriture sur le disque".
Il y a certainement une API pour forcer l'écriture du cache, ou pour
forcer une lecture physique lors du second accès, mais je ne la connais
pas, c'est pourquoi je m'adresse à ce forum.
Pourquoi trouves-tu ma méthode bizarre ? Et d'ailleurs, que connais-tu
de ma méthode : je n'ai pas montré mon source ?
En fait, en l'occurrence, je liste un répertoire contenant un grand nombre
de petits fichiers ".wav". En cliquant, je fais "jouer" le fichier (en le
passant
à l'API "ShellExecute"), et j'ai ensuite "compliqué" mon application en la
dotant d'une facilité pour supprimer les fichiers sans intérêt. Comme le
clic est déjà pris, j'utilise "Suppr" : je fais un "KeyUp" et je teste
"VbDelete":
ça me parait tout à fait limpide, non ?
Toi, tu me dis que chez toi, ça marche, c'est à dire que si tu supprimes
un
fichier dans la fenêtre "FileListBox", la liste des fichiers se met bien à
jour ?
"LE TROLL" <le a écrit dans le message de news:Bonsoir,
Affirmatif, c'est testé sur mon disque, j'ai tenté de reproduire ton
modèle (hors la touche <del>), et en fait le RAB se produit quand on fait
de
nouveau appel à dir, drive... Ce qui peut a posteriori sembler normal,
puisque la première fois où ça se lance ça affiche bien le contenu, alors
en
le rappelant ça devrait faire la même chose.
Je ne sais pas ce que c'est que la cache en écriture, cacher quoi,
quelle écriture ? Il n'y a qu'un clique pour tout écriture venant du
clavier
(me concernant), peut être que je connais le "cache en écriture" sous un
autre nom ?
Ce que tu peux déjà faire, c'est prendre une feuille vierge, d'un
programme vierge, mettre drive, dir, list1 en objet, puis copier le code
et
lancer, car peut être que certains paramètres modifiés par toi
interdisent
un déroulement tel qu'il fonctionne chez moi ? Vb5 e, ou vb6, c'est
quasiment la même chose, j'ai eu vb5 i, puis vb6 i et p, c'est quasi la
même
chose, sauf que le p à accès à davantage d'objets en option, bof...
J'ai fait ça pour ton <del>, mais ça ne change rien, chat marche, à
condition quand même de valider le bon élément dans la liste :
Sub File1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
If KeyCode = 46 Then
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion +
vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End If
End Sub
Heu, bizarre ta méthode, déjà de recopier la list1 dans une liste,
puis
qu'il faille cliquer à la souris, puis lâcher la souris pour aller faire
<del>, sauf à croiser les mains comme au piano, moi j'aurais mis un popup
(menu surgissant sur double clique), qui proposerait toute la batterie...
Tant qu'à faire, ici, je mettrais un popup menu sur clic-droit. J'ai pensé
à ça
un moment, mais il faut transformer la coordonnée X dans la fenêtre, en
index dans la liste des fichiers : j'ai été dégoût d'avance. De toute
façon, ça
n'aurait rien changé au problème de mise à jour de la liste, il me semble.
Je vais tenter de passer le code sur le forum, peut être que ça va
marcher, et peut être que vb5 acceptera ?
A te lire, cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
."L'AMI Yves" a écrit dans le message de
news:
"LE TROLL" <le a écrit dans le message de news:' OBJETS = form1 + drive1 + dir1 + file1 = 4
Option Explicit
'
Sub Form_Load()
ChDrive App.Path
ChDir App.Path
Dir1 = App.Path
End Sub
Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
End Sub
Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Sub File1_Click()
Dim aSupprimer As String
Dim r As String
aSupprimer = Dir1 & "" & File1
r = MsgBox("Supprimer ce ficher " & vbLf & File1, vbQuestion +
vbYesNo
+ vbDefaultButton2)
If r <> vbYes Then Exit Sub
Kill aSupprimer
Call Drive1_Change
Call Dir1_Change
End Sub
As-tu testé ton programme avec un disque où le cache en écriture est
activé ?
Je demande ça, par ce que chez moi, l'ajout des appels à Drive1_Change
et
Dir1_Change ne ... change rien du tout.
AMIcalement.
--
Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
"L'AMI Yves" a écrit dans le message
de
news:%Bonjour à tous.
Je suis en train de développer une application formidable :
tenez-vous
bien. J'ai une DriveListBox, une DirListBox et une FileListBox. Pour
être complet, j'ai aussi une TextBox où je peux rentrer un "Pattern".
Je
suis sûr que vous ne voyez pas où je veux en venir...
Dans la routine File_KeyUp, je détecte la touche "Suppr", et, avec
les
précautions d'usage, je "Kill" le fichier désigné. Vous voyez bien
que
mon application est formidable !
Mais il s'avère que je suis absolument incapable de mettre à jour la
liste des fichiers autrement qu'en fermant et rouvrant mon
application
DEUX FOIS !!!!!!!!!
Je précise que je fais ça avec mon très antédiluvien VB 5 Initiation.
Alors merci à ceux qui pourront me dire comment fait Explorer pour
tenir
sa liste à jour...
AMIcalement