VB6 Fonction Dir [Résolu]
cs_JeffC1977
929
Messages postés
vendredi 10 novembre 2000Date d'inscription
10 septembre 2010
Dernière intervention
-
1 mai 2006 à 17:48 - Dernière réponse :
cs_JeffC1977
929
Messages postés
vendredi 10 novembre 2000Date d'inscription
10 septembre 2010
Dernière intervention
- 2 mai 2006 à 13:23
- VB6 Fonction Dir
- Vb6 : tout en un, une fonction dir() améliorée, avec retour d'erreurs, utilisation des wildcards et » Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Tutorial de la fonction dir / un répertoire est-il vraiment vide ? » Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- "r-dir" fait un fonction "dir" dans un répertoire et vous donne le résultat de la recherche... » Codes sources - PHP (Fichier / Disque)
- Vb6 - fonction qui bloque le bureau » Codes sources - Visual Basic / VB.NET (Sécurité)
- [VB6] Fonction Replace [Résolu] (Résolu) » Forum - VB.NET
8 réponses
Meilleure réponse
Utilise l'objet Folder de la bibliothèque FileSystemObject (FSO) pour connaître le nombre de fichier dans un dossier.
_
Avant de poster dans le forum,
prière d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx
<s></s>
_
Avant de poster dans le forum,
prière d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx
<s></s>
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 97 internautes ce mois-ci
Meilleure réponse
Oups, excuse moi, c'est Microsoft Scripting Runtime plutôt.
_
Avant de poster dans le forum,
prière d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx
<s></s>
_
Avant de poster dans le forum,
prière d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx
<s></s>
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 97 internautes ce mois-ci
Meilleure réponse
Yop !!
J'ai retrouvé dans certains codes que j'ai déjà fait, ce code ci !
Il n'est pas complet avant ni aprés, mais je pense qu'avec ça, tu pourras arriver à trouver quelque chose :)
Dim wRepDest1
wRepDest1 = Text3.Text 'Ici, Text3.text est un chemin du style c:\chemin\
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(wRepDest1) Then GoTo 60 'là je vais en ligne 60 si condition réalisée
Set d = fso.GetFolder(Text3.Text)
If d.Size = 0 Then d.Delete
....
Y'a aussi :
fso.GetFile("C:\shiva.txt")
J'ai retrouvé dans certains codes que j'ai déjà fait, ce code ci !
Il n'est pas complet avant ni aprés, mais je pense qu'avec ça, tu pourras arriver à trouver quelque chose :)
Dim wRepDest1
wRepDest1 = Text3.Text 'Ici, Text3.text est un chemin du style c:\chemin\
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(wRepDest1) Then GoTo 60 'là je vais en ligne 60 si condition réalisée
Set d = fso.GetFolder(Text3.Text)
If d.Size = 0 Then d.Delete
....
Y'a aussi :
fso.GetFile("C:\shiva.txt")
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 97 internautes ce mois-ci
Salut merci pour ta réponse...
Mais où je trouve l'objet Folder de la bibliothèque FileSystemObject (FSO)... ????
J'ai été voir sur MSDN et ca me dit d'aller dans l'Explorateur d'objets (F2)...
Dans l'Explorateur d'objets, j'ai File Systeme et je n'ai pas de Folder dans la fenêtre à côté....
Bref je ne sai spas où aller pour utiliser cela...
J'attends ton aide merci d'avance
Mais où je trouve l'objet Folder de la bibliothèque FileSystemObject (FSO)... ????
J'ai été voir sur MSDN et ca me dit d'aller dans l'Explorateur d'objets (F2)...
Dans l'Explorateur d'objets, j'ai File Systeme et je n'ai pas de Folder dans la fenêtre à côté....
Bref je ne sai spas où aller pour utiliser cela...
J'attends ton aide merci d'avance
Il faut rajouter la référence au composant Microsoft File Scripting Object : Menu Projet/Référence, puis coche le composant dans la liste.
_
Avant de poster dans le forum,
prière d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx
<s></s>
_
Avant de poster dans le forum,
prière d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx
<s></s>
Rebonjour....
Et bien j'ai regardé à la bonne place.... Le problème c'est que je ne l'ai pas dans ma liste...
Je ne sais pas si ca peut être lié à ma verison de VB6 (Version 8176)
Ou sinon peux-tu me dire c'est quoi le dll.... je vais faire une recherche dans mon répertoire pour voir si j'ai ce fichier
Merci d'avance
Et bien j'ai regardé à la bonne place.... Le problème c'est que je ne l'ai pas dans ma liste...
Je ne sais pas si ca peut être lié à ma verison de VB6 (Version 8176)
Ou sinon peux-tu me dire c'est quoi le dll.... je vais faire une recherche dans mon répertoire pour voir si j'ai ce fichier
Merci d'avance
Salut 177884 nagstef
Meric pour ton code...
Je n'ai jamais touché encore au FSO et il y a certain que j'ai besoin d'éclaircissement.
Dans cette partie du code
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(wRepDest1) Then GoTo 60
fso est-elle un variable défini plus haut dans le code (que tu ne m'a pas mit) ou bien c'est du code reconnu par VB ???
Et dans la condition fso.FolderExists.... Ca dit pas, si le répertoire existe pas alors...
Bon j'ai essayé ca mais ca ne fonctionne pas... Voici le code que j'ai essayé
Dim Reprtoire As String
Repertoire = Dir1.Path
'Est ce ce ca marche ce code ?????
Set fso = CreateObject("Scripting.FileSystemObject")
If File1.ListCount = 0 Then 'File1 est un FileListBox
If Not fso.FolderExists(Repertoire) Then
frmIndex.MousePointer = vbNormal
Else
frmIndex.MousePointer = vbHourglass
End If
Else
frmIndex.MousePointer = vbHourglass
End If
Merci d'avance
Meric pour ton code...
Je n'ai jamais touché encore au FSO et il y a certain que j'ai besoin d'éclaircissement.
Dans cette partie du code
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(wRepDest1) Then GoTo 60
fso est-elle un variable défini plus haut dans le code (que tu ne m'a pas mit) ou bien c'est du code reconnu par VB ???
Et dans la condition fso.FolderExists.... Ca dit pas, si le répertoire existe pas alors...
Bon j'ai essayé ca mais ca ne fonctionne pas... Voici le code que j'ai essayé
Dim Reprtoire As String
Repertoire = Dir1.Path
'Est ce ce ca marche ce code ?????
Set fso = CreateObject("Scripting.FileSystemObject")
If File1.ListCount = 0 Then 'File1 est un FileListBox
If Not fso.FolderExists(Repertoire) Then
frmIndex.MousePointer = vbNormal
Else
frmIndex.MousePointer = vbHourglass
End If
Else
frmIndex.MousePointer = vbHourglass
End If
Merci d'avance
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.