Salut,
Voici un exemple pour te connecter sur access. Ceci est un
script fonctionnel non raffiné.
' COMMENT: <Compiler dans un fichier ACCESS toutes les informations
' des fichiers d'un lecteur
'=========================================================================================================
'
'Accèss au dossier d'un disque
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
Const MoteurDeRecherche = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
'
' Déclaration des variables de la base de données ACCESS
'
Dim oFS
Dim objConnection
Dim objRecordset
Dim AccesFichier
Dim NumCD
Dim NomCD
Dim NomLog
Dim NomApp
'(37) Debut du programme
' On Error Resume Next
Flag = False
msgTexte = "Entrez le numéro du CDROM à lire : " & vbCrLf & "( ex.: CD1001 )"
NumCD = InputBox(msgTexte, "Saisie du numéro du CDROM à lire", "CDR10010")
msgTexte = "Entrez le nom du CDROM à lire : " & vbCrLf & "( ex.: WINDOWS XP PRO )"
NomCD = InputBox(msgTexte, "Saisie du nom du CDROM à lire", "SOURCES #1")
msgTexte = "Entrez le nom du logiciel : " & vbCrLf & "( ex.: Microsoft Word )"
NomLog = InputBox(msgTexte, "Saisie du fichier à créer", "DOCUMENTS")
msgTexte = "Entrez le nom de l'application : " & vbCrLf & "(ex.: Microsoft Word)"
NomApp = InputBox(msgTexte, "Saisie du fichier à créer", "DONNÉES")
msgTexte = "Entrez le nom du fichier : " & vbCrLf & "(ex.: C:\CDROM.MDB)"
Fichier = InputBox(msgTexte, "Saisie du fichier à créer", "K:\CDROM.MDB")
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
Set oFS = CreateObject("Scripting.FileSystemObject")
Disque = Mid(Fichier, 1, 2)
Set oLecteur = oFS.GetDrive(Disque)
If (oLecteur.IsReady) Then
AccesFichier = MoteurDeRecherche & Fichier
objConnection.Open AccesFichier
objRecordset.Open "SELECT * FROM LibrairieCDROM" , objConnection, adOpenStatic, adLockOptimistic
Lecteur = InputBox("Entrez la lettre du lecteur à lire :", "Saisie du lecteur à lire","H")
Set oLecteur = oFS.GetDrive(Lecteur)
If (oLecteur.IsReady) Then
Call Principal(Fichier)
Else
EnvoiMessage (0)
End If
Else
EnvoiMessage (0)
End If
'
'=========================================================================================================
'85
Sub Principal(ByVal nomFichier)
' On Error Resume Next
If (oLecteur.IsReady) Then
'Lecture des fichiers dans la racine du lecteur
If (oLecteur.RootFolder.Files.Count > 0) Then
For Each oFichier In oLecteur.RootFolder.Files
objRecordset.AddNew
objRecordset("Nom Fichier") = oFichier.Name
' objRecordset("Type Fichier") = oFichier.Type
objRecordset("Grandeur") = oFichier.Size
objRecordset("Chemin d'accès") = oFichier.Path
objRecordset("Date Créé") = oFichier.DateCreated
' objRecordset("Date Accédé") = oFichier.DateLastAccessed
objRecordset("Date Modifié") = oFichier.DateLastModified
objRecordset("Nom court") = oFichier.ShortName
objRecordset("Chemin court") = oFichier.ShortPath
Call ChercheAttributs (oFichier,CACHE,Reponse)
objRecordset("Attr CACHÉ") = Reponse
Call ChercheAttributs (oFichier,SYSTEME,Reponse)
objRecordset("Attr SYSTÈME") = Reponse
Call ChercheAttributs (oFichier,ARCHIVE,Reponse)
objRecordset("Attr ARCHIVE") = Reponse
Call ChercheAttributs (oFichier,LECTURE,Reponse)
objRecordset("Attr LECTURE SEULE") = Reponse
Call ChercheAttributs (oFichier,RACCOURCI,Reponse)
objRecordset("Attr RACCOURCI") = Reponse
Call ChercheAttributs (oFichier,COMPRESSE,Reponse)
objRecordset("Attr COMPRESSÉ") = Reponse
objRecordset("Numéro CDROM") = NumCD
objRecordset("Nom CDROM") = NomCD
objRecordset("Nom Logiciel") = NomLog
objRecordset("Nom Application") = NomApp
objRecordset.Update
Next
End If
'Lecture des sous-répertoires dans le lecteur
For Each oRepertoire In oLecteur.RootFolder.SubFolders
Call ListeFichier(oRepertoire)
Next
End If
' objRecordset.Close
objConnection.Close
WScript.Echo "Fin de traitement :-) "
End Sub
'179
'==========================================================================
'
Sub ListeFichier(ByVal oRepertoire)
Dim oDossier
Dim Reponse
' On Error Resume Next
If (oRepertoire.Files.Count > 0) Then
For Each oFichier In oRepertoire.Files
objRecordset.AddNew
objRecordset("Nom Fichier") = oFichier.Name
' objRecordset("Type Fichier") = oFichier.Type
objRecordset("Grandeur") = oFichier.Size
objRecordset("Chemin d'accès") = oFichier.Path
objRecordset("Date Créé") = oFichier.DateCreated
' objRecordset("Date Accédé") = oFichier.DateLastAccessed
objRecordset("Date Modifié") = oFichier.DateLastModified
objRecordset("Nom court") = oFichier.ShortName
objRecordset("Chemin court") = oFichier.ShortPath
Call ChercheAttributs (oFichier,CACHE,Reponse)
objRecordset("Attr CACHÉ") = Reponse
Call ChercheAttributs (oFichier,SYSTEME,Reponse)
objRecordset("Attr SYSTÈME") = Reponse
Call ChercheAttributs (oFichier,ARCHIVE,Reponse)
objRecordset("Attr ARCHIVE") = Reponse
Call ChercheAttributs (oFichier,LECTURE,Reponse)
objRecordset("Attr LECTURE SEULE") = Reponse
Call ChercheAttributs (oFichier,RACCOURCI,Reponse)
objRecordset("Attr RACCOURCI") = Reponse
Call ChercheAttributs (oFichier,COMPRESSE,Reponse)
objRecordset("Attr COMPRESSÉ") = Reponse
objRecordset("Numéro CDROM") = NumCD
objRecordset("Nom CDROM") = NomCD
objRecordset("Nom Logiciel") = NomLog
objRecordset("Nom Application") = NomApp
objRecordset.Update
Next
End If
If (oRepertoire.SubFolders.Count > 0) Then
For Each oDossier In oRepertoire.SubFolders
Call ListeFichier(oDossier)
Next
End If
End Sub
'
'==========================================================================
'
Function ChercheAttributs (ByVal oFichier,ByVal Validation, ByRef Reponse)
' On Error Resume Next
Reponse = "Aucun"
Select Case (Validation)
Case (LECTURE)
If (oFichier.Attributes AND 1) Then
Reponse = "Activer" 'Read-only = VRAI
Else
Reponse = "Désactiver" 'Read-only = FAUX
End If
Case (CACHE)
If (oFichier.Attributes AND 2) Then
Reponse = "Activer" 'Hidden file = VRAI
Else
Reponse = "Désactiver" 'Hidden file = FAUX
End If
Case (SYSTEME)
If (oFichier.Attributes AND 4) Then
Reponse = "Activer" 'System file = VRAI
Else
Reponse = "Désactiver" 'System file = FAUX
End If
Case (ARCHIVE)
If (oFichier.Attributes AND 32) Then
Reponse = "Activer" 'Archive bit = VRAI
Else
Reponse = "Désactiver" 'Archive bit = FAUX
End If
Case (RACCOURCI)
If (oFichier.Attributes AND 64) Then
Reponse = "Activer" 'ShortCut = VRAI
Else
Reponse = "Désactiver" 'ShortCut = FAUX
End If
Case (COMPRESSE)
If (oFichier.Attributes AND 2048) Then
Reponse = "Activer" 'Compressed file = VRAI
Else
Reponse = "Désactiver" 'Compressed file = FAUX
End If
Case Else Reponse = "Aucun"
End Select
End Function
'
'==========================================================================
'
Lupin
