Discussion :

[Daniel MOREAU]

Bonjour à tous,

Je ne sais pas si mon titre est assez clair, mais je vais vous exposer ma question.

Je met à jour dans ma base de données des fichiers de type texte et je souhaiterai pour éviter des erreurs de manipulation, indiquer à l'opérateur que le fichier à déja été intégré.

J'ai pensé qu'en testant les données propriétés de fichier (ex : test.txt créé le 08/11/2006 à 8h00), je pouvais ainsi signalé à l'opérateur que le fichier avait déjà été intégré.

Aussi je voulais savoir si cette valeur pouvait être testé et si oui comment.

D'avance merci pour vos réponses.

Daniel

[soltani1]

Bonjour,

une idée pourquoi ne pas créer une table qui contient le nom, la date et l'heure et de tester si il existe d'afficher un message sinon enregistrer dans la table.

A+

[random]

FileDateTime

[Daniel MOREAU]

Re,

Merci à tous. La solution de Ramdon est parfaite.

Je vais pouvoir continuer.

Daniel

[Dolphy35]

Salut,

voici un code de Microsoft que j'utilise pou afficher dans un control toutes les propriétés d'un fichier.

merci à SilkyRoad pour avoir dénivhé ce code.

très bon tuto de SilkyRoad également à ce sujet http://silkyroad.developpez.com/VBA/...etesClasseurs/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub ListeProprietesFichier_getDetailsOf(Fichier As String)
    'source:
    'http://www.microsoft.com/resources/documentation/windows/2000/server/
    'scriptguide/en-us/sas_fil_lunl.mspx
    '
    'Nécessite d'activer la référence Microsoft Shell Controls and Automation
    '
    Dim Fso As Object, oFichier As Object
    Dim objShell As Shell32.Shell
    Dim objFolder As Shell32.Folder
    Dim strFileName As Shell32.FolderItem
    Dim Chemin As String, NomFich As String, Resultat As String
    Dim i As Byte
 
    '-----
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set oFichier = Fso.GetFile(Fichier)
    Chemin = Fso.GetParentFolderName(oFichier)
    NomFich = Fso.GetFileName(oFichier)
    '-----
 
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.NameSpace(Chemin)
    Set strFileName = objFolder.Items.Item(NomFich)
 
    For i = 0 To 34
        'Cet exemple n'affiche pas les propriétés vides
        If objFolder.GetDetailsOf(strFileName, i) <> "" Then _
        Resultat = Resultat & objFolder.GetDetailsOf(objFolder.Items, i) _
        & ":  " & objFolder.GetDetailsOf(strFileName, i) & vbLf
    Next
 
    MsgBox Resultat
End Sub

Dolphy