SANS API INFOS SUR FICHIERS

Private Sub Command1_Click()
  Dim fso, d, f, s
  filespec = "c:autoexec.bat" ' exemple de fichier
Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFile(filespec)
  s = UCase(f.Path) & vbCrLf
  s = s & Chr(13) & "Créé le:                     " & Chr(9) & f.DateCreated
  s = s & Chr(13) & "Dernier accès le:        " & Chr(9) & f.DateLastAccessed
  s = s & Chr(13) & "Dernière modification le:" & Chr(9) & f.DateLastModified
 
MsgBox s, vbYes, "Résultat"
End Sub
 

• SANS API SCAN VOTRE PC + INFOS SUR LES DISQUES
• SANS API REGLER LE VOLUME DU SON
• SANS API JOUER UN SON
• BOITE DE DIALOGUE EXECUTER SANS API
• SANS API , BROWSEFOLDER

• EXTRACTION DES ICONES D'UN FICHIER .EXE
• 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

• SETFILEDATE
• MODIFICATION DATE FICHIER ET DATE CLICHÉ PHOTO JPG
• LECTURE ET ÉCRITURE DES DATES D'UN FICHIER
• RETROUVE LA DATE DE CRÉATION D'UN FICHIER - API
• DATE D'UN FICHIER