GuyFALESSE
Messages postés61Date d'inscriptionsamedi 19 février 2005StatutMembreDernière intervention18 novembre 2012
-
13 mars 2005 à 15:30
GuyFALESSE
Messages postés61Date d'inscriptionsamedi 19 février 2005StatutMembreDernière intervention18 novembre 2012
-
16 mars 2005 à 16:48
Bonjour à tous,
Je voudrais afficher la taille, la date de création des fichiers contenus dans un CD, mais je n' y arrive pas, j'ai copié un listing trouvé sur ce forum, mais malgré toutes mes recherches, je ne sais pas adapter le code que voici:
J'ai une feuille sur laquelle se trouve un bouton -->cmdScanner, 1 textBox -->txtMotClé et bien sûr un base de données bdmp3.
Option Explicit
Dim db As Database
Dim rc As Recordset
Private Sub cmdScanner_Click()
Dim strStartPath As String, strsql As String
Me.Show
Print "Je travaille..."
Me.MousePointer = vbHourglass
'pour le stockage dans une base access
Set db = OpenDatabase("c:\BaseAccess\CatalogueCD-vb\bdmp3.mdb")
strsql = "select * from Tablemp3"
Set rc = db.OpenRecordset(strsql, dbOpenDynaset)
If (Not rc.EOF) Then
rc.MoveFirst
Do While (Not rc.EOF)
'rc.Delete
rc.MoveNext
Loop
End If
rc.Close
Set rc = db.OpenRecordset("tablemp3", dbOpenDynaset)
'strStartPath = "c:"
strStartPath = Drive1.Drive & ""
RecurseTree strStartPath
rc.Close
Set rc = Nothing
db.Close
Set db = Nothing
Me.MousePointer = vbDefault
Unload Me
End Sub
Sub RecurseTree(CurrentPath As String)
Dim intN As Integer, intDirectory As Integer, intlngch As Integer
Dim strFileName As String, strDirectoryList() As String, strtemp As String
Dim LaTaille As Long
'Lister d'abord tous les fichiers normaux de ce répertoire
adess00
Messages postés261Date d'inscriptionvendredi 4 mars 2005StatutMembreDernière intervention27 septembre 20081 13 mars 2005 à 23:19
Tu dois bien utiliser filelen pour avoir la taille du fichier si ca ne marche pas c qu il y a une erreur dans le chemin d access lance ton prog en debogage pour voir quel valeur il attribut a strFileName
Si tu veut faire une base de donne fait tout toi meme tu comprendra mieux les erreurs apres et si tu as besoin d aide pour le debut demande mais ne prend pas un code que tu ne comprend pas
a+
GuyFALESSE
Messages postés61Date d'inscriptionsamedi 19 février 2005StatutMembreDernière intervention18 novembre 2012 14 mars 2005 à 15:09
Re-Salut,
Lorsque je ne mets pas la taille, tout fonctionne à merveille, donc, ce n'est pas une question de path.
Si j'ai vopié ce code, c'est qu'il m'inspirait beaucoup pour faire ce que je soujaite faire, il faut bien des exemples sinon, on ne sait rien apprendre.
Je travaille habituellement avec Access, mais j'aurais voulu avoir une application indépendante.
@+
Guy FALESSE
Vous n’avez pas trouvé la réponse que vous recherchez ?