I need help in adding the imported files date into an existing field [Import_Date] while appending files to the table. currently I can append dta from all the files in a folder. But I would also need for each record appended the actual file name and its last modifed dateand time stamp also added.
My current code for appending data from the files is:
Sub XMLImport()
Dim fs
Dim fsFolder
Dim fsFile
Set fs = CreateObject("scripting.filesystemobject")
Set fsFolder = fs.getfolder("C:\Users\XMLFiles")
DoCmd.SetWarnings False
For Each fsFile In fsFolder.files
Debug.Print fsFile.Name
Application.ImportXML "C:\Users\XMLFiles" & fsFile.Name, acAppendData
Next fsFile
DoCmd.SetWarnings True
End Sub
Thanks
My current code for appending data from the files is:
Sub XMLImport()
Dim fs
Dim fsFolder
Dim fsFile
Set fs = CreateObject("scripting.filesystemobject")
Set fsFolder = fs.getfolder("C:\Users\XMLFiles")
DoCmd.SetWarnings False
For Each fsFile In fsFolder.files
Debug.Print fsFile.Name
Application.ImportXML "C:\Users\XMLFiles" & fsFile.Name, acAppendData
Next fsFile
DoCmd.SetWarnings True
End Sub
Thanks