Disquette assez grande? avec fso

Commenter

Contenu du snippet

Insérer le code dans la forme d'un nouveau projet VB6.
Il doit y avoir une disquette dans le lecteur de disquette.
Cette disquette peut être vide ou déjà remplie.
Il vous faut créer une fiche Temp.txt au bon endroit.
Le logiciel vous indiquera l'endroit.

Source / Exemple : 


Private Sub Form_Load()
  If DisquetteAssezGrande Then MsgBox "La Disquette Est Assez Grande!"
  End
End Sub

Private Function DisquetteAssezGrande() As Boolean
  Dim WkDir As String
  Dim fsO As Object, fsF As Object
' Recueillir l'endroit du disque dur où nous sommes
  WkDir = App.Path
' Nous pointer vers le lecteur de disquette
  Set fsO = CreateObject("Scripting.FileSystemObject")
  Set fsF = fsO.drives.Item("A:")
' Vérifier l'existence de la fiche Temp.txt sur le disque dur
  If Dir$(WkDir & "\" & "Temp.txt") = "" Then
    MsgBox "Il faut créer la fiche Temp.txt dans le directoire " & WkDir
  Else
    ' Vérifier s'il y a suffisament d'espace sur la disquette pour accomoder Temp.txt
    If fsF.availablespace > FileLen(WkDir & "\" & "Temp.txt") Then
      DisquetteAssezGrande = True
    Else
      MsgBox "Il n'y a pas suffisament d'espace sur la disquette"
    End If
  End If
  Set fsO = Nothing
  Set fsF = Nothing
End Function

Conclusion :


Visitez ma page d'accueil !!!
http://www.cyberbeach.net/~loudelon

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)