Créer répertoire sur disquette et fso

Commenter

Contenu du snippet

CRÉER LE RÉPERTOIRE DÉSIRÉ SUR LA DISQUETTE AVEC FSO

Lancez un nouveau projet VB6 et placez ce code dans la forme.
Vérifiez qu'une disquette est en place dans le lecteur de disquette.

Visitez mon site web: http://www.cyberbeach.net/~loudelon/

Source / Exemple : 


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

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_Louis)