SANS API SCAN VOTRE PC + INFOS SUR LES DISQUES

Private Sub Command1_Click()
  Dim fso, d, dc, s
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set dc = fso.Drives
s = "Voici les Disques de votre PC." & vbCrLf
st = "Voici les Espaces libres de vos disques non vides." & vbCrLf
 On Error Resume Next
 For Each d In dc
      s = s & vbCrLf & d.DriveLetter & ":     "
     st = st & vbCrLf & d.DriveLetter & ":   " & "Espace disponible :    " & FormatNumber(d.FreeSpace / 1024, 0) & "  Ko"
     Next
  ShowDriveList = s
MsgBox s, vbYes, "Résultat"
MsgBox st, vbYes, "Résultat"

End Sub
 

• SANS API INFOS SUR FICHIERS
• SANS API REGLER LE VOLUME DU SON
• SANS API JOUER UN SON
• BOITE DE DIALOGUE EXECUTER SANS API
• SANS API , BROWSEFOLDER

• TITLE BAR, AJOUTEZ VOTRE BOUTTON DANS LA BARE DE TITRE DES FENETRE
• VERROUILLAGE DU LECTEUR CD - EJECTION SUR MOT DE PASSE
• CHANGEDESKTOP: CHANGEMENT DE L'APPARENCE DE LA LISTVIEW DU BUREAU WINDOWS
• SERVEUR OPC
• CLASSES TIMER (SANS MODULE)

• CHKDSKSPC- CHECK DISK SPACE / AFFICHAGE DE L'ÉTAT D'OCCUPATION DES DISQUES
• CUTTOKEY GESTION DES COPIES MULTISUPPORTS
• ENVOI MAIL D'ALERTE SI ESPACE DISQUE INFÉRIEUR À 1GO
• CLM'S DISK INSPECTOR : OCCUPATION DES DOSSIERS ET DES FICHIERS SUR LE DISQUE
• ESPACE LIBRE RESTANT SUR UN DISQUE