FileCopy and read-only
Sub test()
Dim src$, dst$
src$ = "c:\test.txt"
dst$ = "c:\test1.txt"
If GetAttr(dst$) And vbReadOnly Then
SetAttr dst$, vbNormal
End If
FileCopy src$, dst$
End Sub
Dkline wrote:
I'm using FileCopy to copy a number of files off the servers onto my C:
drive. Everything works fine except for the one file that is read-only. Any
way to persuade FileCopy to copy over that file even if it is a read-only?
|