File.System Controls [VB 6.0] [Résolu]

Messages postés
40
Date d'inscription
lundi 17 janvier 2005
Statut
Membre
Dernière intervention
10 novembre 2006
- - Dernière réponse : PCPT
Messages postés
13298
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
- 25 avril 2006 à 10:18
Salut,
J'ai programmer un programme avec un DirListBox et un FileListBox. Je veux que mon programme verifie si le dossier existe avant de faire raffraichir.

J'ai esseyer de faire une commande du genre
if dir exist then mais jai lu sur Internet qu'il fallait un FileSystem Control... quelqu'un peu me dire comment installer sa?

Merci d'avance...
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
13298
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
29
3
Merci
salut
if Dir(Source) = vbnullstring Then ...

Dire « Merci » 3

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

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

Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
23
0
Merci
Bonjour,

Exemple avec FSO:

Dim fso
wRepDest2 = "c:\Archive-Bour"
wSrce2 = "c:\CSSI\Bour\*.txt"

Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(wRepDest2) Then
Set f = fso.CreateFolder(wRepDest2)
msgBox "Création du dossier "&f&" effectuée.",vbInformation
fso.MoveFile wSrce2, wRepDest2
Else
msgBox "Attention:"&vbCrLf&"Le répertoire "&wRepDest2&" existe déjà."&vbCrLf&"Les nouveaux fichiers ne sont donc pas archivés",vbCritical
End if
Set fso = Nothing

-------------------------------
jean-marc
Messages postés
40
Date d'inscription
lundi 17 janvier 2005
Statut
Membre
Dernière intervention
10 novembre 2006
0
Merci
sa fait toujours des erreurs partout... je vais vous montrer le bout de code:

'Si source qui est la variable avec le repertoire n'est pas setter, le mettre à C: Sinon je veux qui actualise mon dirboxlist à la source. Sauf quand le repertoire Source est inéxistant, le programme me crée une erreur. Je veux savoir comment le résoudre... :S

If Source = "" Then
Dir1 = "C:"
Else
Dir1 = Source
End If