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)
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