themik
Messages postés40Date d'inscriptionlundi 17 janvier 2005StatutMembreDernière intervention10 novembre 2006
-
24 avril 2006 à 16:22
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDerniè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?
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 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
themik
Messages postés40Date d'inscriptionlundi 17 janvier 2005StatutMembreDernière intervention10 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