title: XML VBA Access 2010 import
body: <p>I want to integrate in my code VBA an instruction to import XML files.
  In the <code>else</code> branch of my condition, I want to add a command to import the XML files. Could you suggest me something (a VBA instruction which do the import) ?</p>
  
  <pre><code>   Private Sub Commande0_Click()
        Dim rep As String
        rep = Dir("C:\Users\Toufik\Desktop\XML\*.*", vbDirectory)
        Do While (rep &lt;&gt; "")
           If (GetAttr("C:\Users\Toufik\Desktop\XML\" &amp; rep) And vbDirectory) = vbDirectory Then
              MsgBox "Directory " &amp; rep
           Else
              MsgBox "File " &amp; rep
           End If 
           rep = Dir
        Loop
     End Sub
  </code></pre>