0/5 (4 avis)
Snippet vu 5 179 fois - Téléchargée 59 fois
Private Sub Form_Load() CreerRepertoire End End Sub Private Sub CreerRepertoire() Dim fsO As Object Dim WkDir As String WkDir = "MonRepertoire" Set fsO = CreateObject("Scripting.filesystemObject") ' Vérifier si le répertoire destination sur la disquette existe. If Dir$("A:" & WkDir, vbDirectory) = "" Then ' Vu qu'il n'existe pas, le créer fsO.createfolder ("A:\" & WkDir) End If Set fsO = Nothing End Sub
28 déc. 2007 à 11:39
pr la creation et la suppression de Repertoire
'si la repertoire exist:
My.Computer.FileSystem.DirectoryExists("c:\Repertoire")
'supprimer repertoire:
My.Computer.FileSystem.DeleteDirectory("c:\Repertoire", FileIO.DeleteDirectoryOption.DeleteAllContents)
'Creer Repertoire
My.Computer.FileSystem.CreateDirectory("c:\Repertoire")
+info consulter le site:
http://plasserre.developpez.com/v4-7.htm
28 juil. 2002 à 22:46
exemple
fsO.createfolder ("C:Windows" & Wkdir)
Merci par avance
31 août 2001 à 15:36
Voir CREER UN SOUS REPERTOIRE AVEC FSO
28 août 2001 à 23:48
MkDir "NomDuRépertoire"
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.