title: Convert Access Attachment data type to file system files
body: <p>I have a lot of files stored as attached files in an Access db. I am going to move data to an SQL server and for that purpose I need to extract the attached files and turn them into file system files.</p>
  
  <p>This snippet works fine for images and pdf files but not for Office documents like Word or Excel. I assume it has something to do with encoding, but I have no clues. Any ideas?</p>
  
  <pre><code>Dim dbs As Database
  Dim rs As Recordset
  Set dbs = CurrentDb
  Set rs = dbs.OpenRecordset("table1")
  With rs
  Do While Not .EOF
      Set rsRec = rs.Fields("AttFiles").Value
      While Not rsRec.EOF
          NameOfFile = "C:\temp\" &amp; rsFil.Fields("FileName")
          Open NameOfFile For Binary Access Write As #1
          Put #1, , rsRec.Fields("FileData").Value
          Close #1
          rsRec.MoveNext
      Wend
      .MoveNext
  Loop
  End With
  rs.Close
  dbs.Close
  </code></pre>