'========================================
  ' отложенное удаление папки %temp%\MyProga вместе с файлами в ней
  Dim szTempFolder As String
  szTempFolder = GetLongPath(GetTempDir()) & "MyProga"
...
  MoveFileEx szTempFolder & "\dotNetFx45_Full_setup.exe", vbNullString, MOVEFILE_DELAY_UNTIL_REBOOT
  MoveFileEx szTempFolder & "\setup.exe", vbNullString, MOVEFILE_DELAY_UNTIL_REBOOT
  MoveFileEx szTempFolder, vbNullString, MOVEFILE_DELAY_UNTIL_REBOOT
  '========================================

Option Explicit

'File Management Functions
Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Public Declare Function GetLongPathName Lib "kernel32" Alias "GetLongPathNameA" _
 (ByVal lpszShortPath As String, ByVal lpszLongPath As String, ByVal cchBuffer As Long) As Long
 
Public Const MOVEFILE_DELAY_UNTIL_REBOOT = &H4

Public Declare Function MoveFileEx Lib "Kernel32.dll" Alias "MoveFileExA" _
 (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal dwFlags As Long) As Boolean

Public Function GetTempDir() As String
  Dim evar As String
  Dim elen As Long
  evar = String(256, " ")
  elen = GetTempPath(Len(evar), evar)
  If elen = 0 Then
    GetTempDir = ""
  Else
    evar = Left(evar, InStr(evar, Chr(0)) - 1)
    GetTempDir = CorrectDir(evar)
  End If
End Function

  Public Function GetLongPath(ByVal strShort As String) As String
    Dim evar As String
    Dim elen As Integer
    evar = String(256, " ")
    elen = GetLongPathName(strShort, evar, Strings.Len(evar))
    If elen = 0 Then
      GetLongPath = strShort
    Else
      GetLongPath = CorrectDir(Strings.Left(evar, elen))
    End If
  End Function

Public Function CorrectDir(the_str As String) As String
  'аналог GoodPath
  If Not (Right(the_str, 1) = "\") Then
    CorrectDir = the_str & "\"
  Else
    CorrectDir = the_str
  End If
End Function