[Iska]

Если научитесь помимо тэга [spoiler] пользоваться тэгом [code] — подскажу .

Замените:

Скрытый текст

Код:

For Each efile in objFolder.Files
Set gFILE = objFSO.GetFile (efile)
fEXT = objFSO.GetExtensionName (efile.Path)
If LCase (fEXT)<>"lnk" then
gFILE.Attributes = 0
objFSO.CopyFile efile, folderToCheckFor+"/"
objFSO.DeleteFile efile
End If
Next

на:

Скрытый текст

Код:

For Each objFile In objFolder.Files
	Select Case LCase(objFile.Name)
		Case "lnk", "url"
			' Nothing to do
		Case Else
			objFile.Attributes = 0
			objFile.Copy folderToCheckFor & "\", True
			objFile.Delete True
	End Select
Next

Не проверялось.