Blockchain is a technology that underpins the success of Bitcoin and other digital currencies, but it has uses far beyond finance. Learn how blockchain works and why it is proving disruptive to other areas of IT.
Private Sub cmdImport_Click() Dim fso As New FileSystemObject fso.CopyFile "U:\Import\*.SNIS", "U:\Archive\" ' U: is network drive. Call Shell("cmd /c ren U:\Import\*.SNIS, Import.txt", vbNormalFocus) Set fso = Nothing Dim txtFile, txtpath txtpath = "U:\Import" txtFile = Dir(txtpath & "\*.txt") While txtFile <> "" DoCmd.TransferText acImportFixed, "Import_specs", "tblImport", txtpath & "\" & txtFile, , "" txtFile = Dir Wend MsgBox "Completed" End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.