Bonjour
Comment faire un refresh automatique du contenu d'un dossier après y avoir insérer des fichiers?
Bonjour
Comment faire un refresh automatique du contenu d'un dossier après y avoir insérer des fichiers?
Bonjour,
De quoi parles-tu exactement ?
Si c'est (et je n'en comprendrais pas l'intérêt réel) de la seule actualisation de l'affichage dans l'explorateur :
Active la fenêtre de l'explorateur et envoie succéssivement, par SendKeys, ALT + H puis ALT + E
A quoi celà peut-il te servir en développemlent, maintenant, relève du mystère ...
En fait, j'en ai besoin pour déclencher la conversion de ces fichiers ajoutés à ce dossier.
Sans être actualisé, la méthode de conversion ne détecte aucun fichier ajouté au dossier. Il faut que je relance l'exécution pour détecter ces fichiers à convertir.
Bien évidemment ! (puisque tu as ajouté des éléments...)
En quoi celà te sembe-t-il étrange ?
Explique-nous donc par quelle méthode tu "détectes" les fichiers.
Une FileListBox ? une boîte de dialogue (et laquelle) ? Utilisation de Dir et d'une ListBox ?
Sans ces précisions indispensables, aucune réponse valable ne pourra t'être donnée !
Voilà, ce que je fais c'est que je crée des fichiers textes avec la méthode createTextFile et ceci dans le dossier X.
Après, je lance un.bat avec la commande shell permettant de faire un certain traitement sur ces fichiers.
Si je fais un débogage pas à pas (F8) je m'aperçois de la création des fichiers et je n'ai plus de problèmes, donc là il s'avère que mon problème n'est pas du à un refresh..!!
Je ne comprends pas quelle serait la nécessité d'un .bat (je ne la devine même pas sous VB6 !...)
Montre-nous donc ton code en le commentant sur ses lignes "essentielles à la compréhension de ce que tu fais).
Voilà la méthode où j'utilise le .bat.
En fait, c'est quoi la problème d'un .bat en vb6 ? ( d'après ce que je comprends par votre dernier message).
Pour moi le .bat sert à faire la conversion du fichier HTML en un fichier .out .
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 'Pour chaque fichier dans le dossier X For Each objFich In objRep.Files 'Récupération du contenu de chaque fichier Set objDocument = objMSHTML.createDocumentFromUrl(objFich.Path, vbNullString) While objDocument.readyState <> "complete" DoEvents Wend str = objDocument.documentElement.outerHTML 'Faire un certain traitement que je supprime pour ne pas compliquer 'Crétation d'un nouveau ficheir qui porte le même nom Set fich = flc.CreateTextFile("C:\Program Files\Microsoft Visual Studio\Projets\Data\" & objFich.Name, True) fich.WriteLine (st) 'Appliquer le .bat à ce nouveau fichier retval = Shell((RepEncours & "\CONVERT.bat"), 0)
En fait, il a juste fallu insérer un délai d'attente après l'exécution du .bat pour détecter la création des nouveaux fichiers.
Il a juste fallu insérer cette ligne
Sleep (3000)
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager