请问能不能把一个指定的文件的属性改为不被复制，或剪切？

Question

可以。
你可用GetAttr()和SetAttr()函数。
他们分别是：得到文件属性和设置文件属性。
用法如下：Dim attr as Long
Dim result as stringattr=GetAttr(filename)if attr And vbDirectory then result=result & "Directory"
if attr And vbReadOnly then result=result & "ReadOnly"
if attr And vbHidden then result=result & "Hidden"
if attr And vbSystem then result=result & "System"
if attr And vbArchive then result=result & "Archive"SetAttr filename, vbReadOnly+vbArchive 不过，我不清楚你的剪切是什么意思。
可以给分吗？

Answer 1

呵呵。。我不是要设置文件的属性啊。。我是要别人无法复制跟删除我指定文件啊，，fs_windy(飛龍) 的方法不错，能不能说详细一点呢？