When I write VB6 program , I need to copy files to C:\Windows. But always fail as I don't have Administrator's Right. I found a program on web but also fail :
Private Sub Command1_Click()
Const ssfDESKTOP = 0
Const ssfWINDOWS = 36
Dim OriginalFile As String
Dim CopiedFile As String
Dim F As Integer
OriginalFile = .Path & "\test-orig.txt"
CopiedFile = .Path & "\test-copy.txt"
F = FreeFile(0)
Open OriginalFile For Output As #F
Print #F, "Testing!"
FileCopy OriginalFile, CopiedFile