Automation error Set objfso = CreateObject("Scripting.FileSystemObject")

[Jan22]

Hey guys,

I completed a database where a user can select files and can copy them to a specified folder.
I made a vba code to copy the selected files to the folders.
The code worked fine, but out of nowhere i'm getting an error:

[img=http://imageshack.us/a/img824/895/automationerror.th.png]
[img=http://imageshack.us/a/img12/543/vbaautomationerror.th.png]





Pad = "C:\"
With Application.FileDialog(3)
.Title = "Bestand selecteren"
.Filters.Clear
.AllowMultiSelect = False
.InitialFileName = Pad
If .Show <> 0 Then
Bestandnaam = .SelectedItems.Item(1)
Open Bestandnaam For Input As #1
Line Input #1, Regel
msgbox "Bestand Toegevoegd Op Server"
Close #1
End If
End With
Oldname = Bestandnaam
If Me![Magazijnrobot Onderdelen] = "Aandrijving" And Me![Soort Data] = "Onderdelenlijst" Then Newname = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Mallenomloop\Magazijnrobot\Aandrijving\ Onderdelenlijst\"
If Me![Magazijnrobot Onderdelen] = "Aandrijving" And Me![Soort Data] = "Parameters" Then Newname = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Mallenomloop\Magazijnrobot\Aandrijving\ Parameters\"
If Me![Magazijnrobot Onderdelen] = "Aandrijving" And Me![Soort Data] = "Overige Informatie" Then Newname = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Mallenomloop\Magazijnrobot\Aandrijving\ Overige informatie\"
If Me![Magazijnrobot Onderdelen] = "Aandrijving" And Me![Soort Data] = "Tekeningen" And Me![technische tekening] = "Mechanische Tekening" Then Newname = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Mallenomloop\Magazijnrobot\Aandrijving\ Tekeningen\Mechanische tekeningen\"
If Me![Magazijnrobot Onderdelen] = "Aandrijving" And Me![Soort Data] = "Tekeningen" And Me![technische tekening] = "Hydraulische Tekening" Then Newname = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Mallenomloop\Magazijnrobot\Aandrijving\ Tekeningen\Hydraulische tekeningen\"
If Me![Magazijnrobot Onderdelen] = "Aandrijving" And Me![Soort Data] = "Tekeningen" And Me![technische tekening] = "Elektrotechnische Tekening" Then Newname = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Mallenomloop\Magazijnrobot\Aandrijving\ Tekeningen\Elektrotechnische tekeningen\"
If Me![Magazijnrobot Onderdelen] = "Aandrijving" And Me![Soort Data] = "Tekeningen" And Me![technische tekening] = "Pneumatische Tekening" Then Newname = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Mallenomloop\Magazijnrobot\Aandrijving\ Tekeningen\Pneumatische tekeningen\"
If Me![Magazijnrobot Onderdelen] = "Aandrijving" And Me![Soort Data] = "Onderhoudsgegevens" Then Newname = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Mallenomloop\Magazijnrobot\Aandrijving\ Onderhoudsgegevens\"
If Me![Magazijnrobot Onderdelen] = "Aandrijving" And Me![Soort Data] = "Keuringsgegevens" Then Newname = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Mallenomloop\Magazijnrobot\Aandrijving\ Keuringsgegevens\"
If Me![Magazijnrobot Onderdelen] = "Aandrijving" And Me![Soort Data] = "Software" Then Newname = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Mallenomloop\Magazijnrobot\Aandrijving\ Software\"
If Me![Magazijnrobot Onderdelen] = "Grijpers" And Me![Soort Data] = "Onderdelenlijst" Then Newname = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Mallenomloop\Magazijnrobot\Grijpers\Ond erdelenlijst\"
If Me![Magazijnrobot Onderdelen] = "Grijpers" And Me![Soort Data] = "Parameters" Then Newname = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Mallenomloop\Magazijnrobot\Grijpers\Par ameters\"
If Me![Magazijnrobot Onderdelen] = "Grijpers" And Me![Soort Data] = "Overige Informatie" Then Newname = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Mallenomloop\Magazijnrobot\Grijpers\Ove rige informatie\"
If Me![Magazijnrobot Onderdelen] = "Grijpers" And Me![Soort Data] = "Tekeningen" And Me![technische tekening] = "Mechanische Tekening" Then Newname = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Mallenomloop\Magazijnrobot\Grijpers\Tek eningen\Mechanische tekeningen\"
If Me![Magazijnrobot Onderdelen] = "Grijpers" And Me![Soort Data] = "Tekeningen" And Me![technische tekening] = "Hydraulische Tekening" Then Newname = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Mallenomloop\Magazijnrobot\Grijpers\Tek eningen\Hydraulische tekeningen\"
If Me![Magazijnrobot Onderdelen] = "Grijpers" And Me![Soort Data] = "Tekeningen" And Me![technische tekening] = "Elektrotechnische Tekening" Then Newname = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Mallenomloop\Magazijnrobot\Grijpers\Tek eningen\Elektrotechnische tekeningen\"


If Me![Magazijnrobot Onderdelen] = "Grijpers" And Me![Soort Data] = "Tekeningen" And Me![technische tekening] = "Pneumatische Tekening" Then Newname = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Mallenomloop\Magazijnrobot\Grijpers\Tek eningen\Pneumatische tekeningen\"
If Me![Magazijnrobot Onderdelen] = "Grijpers" And Me![Soort Data] = "Onderhoudsgegevens" Then Newname = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Mallenomloop\Magazijnrobot\Grijpers\Ond erhoudsgegevens\"
If Me![Magazijnrobot Onderdelen] = "Grijpers" And Me![Soort Data] = "Keuringsgegevens" Then Newname = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Mallenomloop\Magazijnrobot\Grijpers\Keu ringsgegevens\"
If Me![Magazijnrobot Onderdelen] = "Grijpers" And Me![Soort Data] = "Software" Then Newname = "\\hns019\afdeling\afd_td\Hasselt\Opslag documentatie TD\Maxihal\Mallenomloop\Magazijnrobot\Grijpers\Sof tware\"
retval = 0
Dim objfso As Object
Set objfso = CreateObject("Scripting.FileSystemObject")
retval = objfso.CopyFile(Oldname, Newname, True)
Set objfso = Nothing

Me.Data.Value = Newname & "# " & Title
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Can anybody help me out? The code worked fine before and i'm using the same computer as before.

[June7]

No idea, especially since I don't know the language shown in the image.

Step debug. Review link at bottom of my post for debug techniques.