Scripting Runtime FSO [Résolu]

Messages postés
929
Date d'inscription
vendredi 10 novembre 2000
Dernière intervention
10 septembre 2010
- - Dernière réponse : cs_JeffC1977
Messages postés
929
Date d'inscription
vendredi 10 novembre 2000
Dernière intervention
10 septembre 2010
- 2 mai 2006 à 19:27
Bonjour à tous...

Je suis entrain de me faire un petit programme qui utilise un DirListView et un FileListView.

Je veux utiliser un Timer afin de modifier l'apparence de ma sourie s'il y a un délai pour faire apparaître les fichiers dans le FileListbox
Toutefois la souris ne doit pas se modifier s'il n'y a aucun fichier dans mon répertoire

On m'a dit d'utiliser (Darksidious) l'objet Folder de la bibliothèque FileSystemObject (FSO) - Microsoft Scripting Runtime pour connaître le nombre de fichier dans un dossier.

J'ai été voir sur MSDN mais ca ne m'aide pas assez......

Voici le code. P.S. je ne sais pas qu'est-ce qui ne fonctionne pas.  Si quelqu'un peut m'aider.  Merci d'avance

Private Sub Timer1_Timer()


Dim FSO As FileSystemObject


Set FSO = New FileSystemObject


Dim Reprtoire As String


Repertoire = Dir1.Path ' Je ne suis pas certain que cette ligne de code fonctionne bien???


Set FSO = CreateObject("Scripting.FileSystemObject")

If File1.ListCount = 0 Then  'File1 est mon FileListView
    If Not FSO.FolderExists(Repertoire) Then
        frmIndex.MousePointer = vbNormal  
    Else
        frmIndex.MousePointer = vbHourglass
    End If
Else
    frmIndex.MousePointer = vbHourglass
End If

Compteur = Compteur + 1


If Compteur > 10 Then
   frmIndex.MousePointer = vbNormal
ElseIf File1.ListCount = 0 Then
   frmIndex.MousePointer = vbHourglass
Else
   frmIndex.MousePointer = vbNormal
End If

End Sub
Afficher la suite 

5 réponses

Meilleure réponse
Messages postés
15838
Date d'inscription
jeudi 8 août 2002
Dernière intervention
4 mars 2013
108
3
Merci
Des remarques :
Dim FSO As FileSystemObject

Set FSO = New FileSystemObject

Ou :

Dim FSO As Object 'ou Dim FSO As FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")

Mais pas la peine de mettre les deux !

_
Avant de poster dans le forum,
prière d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx
<s></s>

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Messages postés
929
Date d'inscription
vendredi 10 novembre 2000
Dernière intervention
10 septembre 2010
1
0
Merci
J'ai oublier.... je suis en VB6

merci
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Dernière intervention
9 juin 2006
21
0
Merci
1- je ne comprend pas pourquoi tu mets ce code dans un timer !
2- Moi je mettrai systématiquement le pointeur à la forme "hourglass" en début de recherche et retour à la forme normale à la fin. Au pire, si tu as très peu de fichier à lister, l'utilisateur ne verra rien et basta !
Messages postés
929
Date d'inscription
vendredi 10 novembre 2000
Dernière intervention
10 septembre 2010
1
0
Merci
Salut.... 

Et bien j'ai deux conditions à remplir...

1. Si mon FileListBox est vide alors Change l'apparence de la souris
2. Si j'ai aucun fichier dans le répertoire sélectionné dans mon DirListBox alors ne modifie pas l'apparence de la souris.

- Le "Bug" c'est que je travail avec un DirListBox et un FileListBox et se sont des composants sur lequel on ne peut pas intervenir. c'est pourquoi on m'a suggéré d'utiliser un Timer.

Et pour répondre à ton point 2 de ton message... J'ai effectiveemnt beaucoup de fichier... et je dois trouver un moyen pour dire à l'utilisateur que non le répertoire n'est pas vide mais qu'il est entrain de chercher les fichiers...

 
Messages postés
929
Date d'inscription
vendredi 10 novembre 2000
Dernière intervention
10 septembre 2010
1
0
Merci
Salut...

Petite question.

Est-il possible de dire

Si mon répertoire ne contient pas de *.zip alors...

Merci

Dim Reprtoire As String


Repertoire = Dir1.Path


Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
If File1.ListCount = 0 Then
    If Not FSO.FolderExists(Repertoire) Then
        frmIndex.MousePointer = vbNormal
    Else
        frmIndex.MousePointer = vbHourglass
    End If
Else
    frmIndex.MousePointer = vbHourglass
End If

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.