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...
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...
Peut-on sauvegarder le code VBA complet d’une base Access dans un fichier texte ? Ce qui pourrait servir – par exemple – pour imprimer tout le code de l’application en un minimum d’opérations…
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,...
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 |
...
J’ai téléchargé (ou on m’a transmis par e-mail) une base de données Access, compressée dans un fichier Zip. Lorsque j’essaie de l’ouvrir, j’ai un message me disant que la base est ouverte en lecture...
Comment obtenir le chemin d’accès d’une base de données en VB ? A partir d’Access 2000 Utilisez les commandes suivantes : Commande Description Exemple CurrentProject.Path Donne le chemin d’accès à la base C:\Mes documents...
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...
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...
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...