L’utilisation de FileSystemObject avec Visual Basic


Résumé


FileSystemObject fournit une structure non hiérarchiques pour manipuler, lire et créer des fichiers texte ASCII et Unicode. Cette structure est très différente de la structure hiérarchique de l’implémentation d’origine de l’e/s de fichier dans Visual Basic. FileSystemObject ne gère pas l’accès à un fichier binaire, vous devez donc toujours utiliser le modèle d’e/s de fichier d’origine dans Visual Basic pour un accès binaire.

Informations supplémentaires


Vous trouverez FileSystemObject dans Scrrun.dll. En plus de la FileSystemOject, Scrrun.dll comprend quatre autres objets disponibles pour les e/s de fichier et d’autres tâches. Ces objets incluent l’objet fichier, l’objet TextStreamObject, l’objet du dossier et l’objet lecteur. Tous ces objets ont des propriétés et des méthodes qui sont détaillées dans les fichiers d’aide. Vous pouvez obtenir Scrrun.dll en installant l’un des modules suivants :
La mise à niveau de Windows Script Host Windows NT Option Pack Microsoft Internet Information Server 3.0 Scripting 3.1 Visual Studio 6.0 de Visual Basic 6.0
FileSystemObject a été créé pour le Visual Basic Scripting Edition. FileSystemObject ne figure pas dans la bibliothèque d’objets de Visual Basic ou Visual Basic pour Applications. Pour utiliser l’objet FileSystemObject, vous devez sélectionner le Microsoft Scripting Runtime dans la boîte de dialogue Références de projet pour votre projet. L’exemple suivant illustre comment implémenter les fonctionnalités de l’objet FileSystemObject. Pour plus d’informations, consultez les fichiers d’aide de Visual Basic et de la documentation en ligne de Visual Basic.

Étapes pour créer l’exemple de projet

  1. Démarrez un nouveau projet EXE standard dans Visual Basic. Form1 est créé par défaut.
  2. Cliquez sur Références dans le menu projet, puis sélectionnez Microsoft Scripting Runtime. Si Microsoft Scripting Runtime n’apparaît pas dans la liste, recherchez Scrrun.dll sur votre système. Installation de l’un des outils répertoriés précédemment, si nécessaire.
  3. Ajoutez quatre contrôles CommandButton à Form1. Les contrôles CommandButton illustrent les fonctionnalités suivantes :
       Command1: How to read an existing text file using FileSystemObject             and TextStreamObject.   Command2: How to view file information using FileSystemObject and             the File object.   Command3: How to iterate through folders using FileSystemObject and             the Folder object.   Command4: How to view drive information using FileSystemObject and             the Drive object. 
  4. Collez le code suivant dans la section Déclarations générales de Form1 :
          Option Explicit      Private Sub Command1_Click()        'Declare variables.        Dim fso As New FileSystemObject        Dim ts As TextStream        'Open file.        Set ts = fso.OpenTextFile(Environ("windir") & "\system.ini")        'Loop while not at the end of the file.        Do While Not ts.AtEndOfStream          Debug.Print ts.ReadLine        Loop        'Close the file.        ts.Close      End Sub      Private Sub Command2_Click()         Dim fso As New FileSystemObject         Dim f As File         'Get a reference to the File object.         Set f = fso.GetFile(Environ("windir") & "\system.ini")         MsgBox f.Size 'displays size of file      End Sub      Private Sub Command3_Click()         Dim fso As New FileSystemObject         Dim f As Folder, sf As Folder, path As String         'Initialize path.         path = Environ("windir")         'Get a reference to the Folder object.         Set f = fso.GetFolder(path)         'Iterate through subfolders.         For Each sf In f.SubFolders           Debug.Print sf.Name         Next      End Sub      Private Sub Command4_Click()         Dim fso As New FileSystemObject         Dim mydrive As Drive         Dim path As String         'Initialize path.         path = "C:\"         'Get object.         Set mydrive = fso.GetDrive(path)         'Check for success.         MsgBox mydrive.DriveLetter 'displays "C"      End Sub
  5. Exécutez votre projet. Cliquez sur chaque contrôle CommandButton et observez les résultats.