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