Dossiers, fichiers et extensions
Lorsque vous manipulez des dossiers (répertoires) ou des fichiers, il y a des commandes qui reviennent souvent comme : Extraire le nom de fichier à partir d’un chemin complet Extraire l’extension (JPG, PNG, PDF,...
Catégorie : Fichiers
Ajouter un backslash en fin de chemin
Quand on manipule les chemins de fichiers, on est souvent amené à concaténer des « bouts de chemins » à des noms de fichiers. Et dans le processus, il y a toujours un qui doit figurer...
Obtenir la date de dernière modification d’un fichier
Comment obtenir la date de dernière modification d’un fichier quelconque sur le disque ? Méthode 1 Utilisez la fonction VBA FileDateTime(). Par exemple :
|
1 2 3 4 5 6 |
Sub TestDate() Dim dt As Date dt = FileDateTime("C:\...\mon_fichier.txt") MsgBox "Fichier modifié le " & dt, vbInformation End Sub |
Méthode 2 Vous pouvez également utiliser le Scripting Runtime,...
Nom d’utilisateur et autres informations utiles
Comment obtenir dans Access le nom de l’utilisateur qui a démarré la session Windows ? Peut-on obtenir d’autres infos ?
Ouvrir un dossier Windows
Comment déclencher l’ouverture d’un dossier (répertoire) de Windows, comme le ferait un double-clic sur « Mes documents » par exemple ? Tapez le code qui suit dans l’événement Sur clic d’un bouton (ou à tout autre...
Lister tous les fichiers d’un répertoire
Comment obtenir la liste de tous les fichiers d’un répertoire (dossier) donné ? Le code Voici un bout de code qui devrait faire l’affaire (à recopier dans un module standard Access, comme d’habitude).
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
' --- ' AFFICHAGE DU CONTENU D'UN DOSSIER ' --- ' Sub ContenuDuDossier(ByVal strDossier As String) Dim strFichier As String ' Vérifier que le dossier existe bien If Dir(strDossier, vbDirectory) = "" Then MsgBox "Dossier introuvable !", vbExclamation Exit Sub End If ' Lister tous les fichiers du dossier strFichier = Dir(strDossier, vbNormal) While strFichier <> "" ' Afficher le nom du fichier Debug.Print strFichier ' Lire le fichier suivant strFichier = Dir Wend End Sub |
...
Scripting Runtime
Quelles sont les instructions pour manipuler les disques, dossiers et fichiers en Visual Basic ? Il existe 2 grandes approches pour manipuler les disques, dossiers (répertoires) ou documents (fichiers) sous Access : Les commandes...
Détruire ou renommer un fichier
Comment détruire ou renommer un fichier en Visual Basic ? Pour détruire un fichier, utilisez l’instruction Kill. Du genre :
|
1 |
Kill "C:\Mes documents\test.mdb" |
Pour renommer un fichier, passez par la commande Name. Exemple (à taper sur...
Tester l’existence d’un répertoire ou fichier
Comment tester l’existence d’un répertoire ou d’un fichier en Visual Basic ? La fonction Dir() permet de faire cette vérification. Pour un répertoire
|
1 2 3 4 5 |
If Dir("C:\Mes documents", vbDirectory) = "" Then Msgbox "Le répertoire n'existe pas" Else Msgbox "Le répertoire existe" End If |
Pour un fichier
|
1 2 3 4 5 |
If Dir("C:\Mes documents\test.doc") = "" then Msgbox "Le fichier n'existe pas" Else Msgbox "Le fichier existe" End If |
Pour utiliser ce qui précède, vous...
