File.System Controls [VB 6.0]

Résolu
themik Messages postés 40 Date d'inscription lundi 17 janvier 2005 Statut Membre Dernière intervention 10 novembre 2006 - 24 avril 2006 à 16:22
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre 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...

3 réponses

PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
25 avril 2006 à 10:18
salut
if Dir(Source) = vbnullstring Then ...
3
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 26
24 avril 2006 à 16:48
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
0
themik Messages postés 40 Date d'inscription lundi 17 janvier 2005 Statut Membre Dernière intervention 10 novembre 2006
24 avril 2006 à 18:14
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
0