Question

vb 如何搜索文件并修改其属性为只读

您好，已知文件名为1.txt，存放在C盘的某个文件夹下，具体路径不知。如何才能用VB来更改1.txt的属性为只读。
我想做个程序，实现以下功能（实际上就是上述所需的功能），要求如下：
建一个Text1.txt用于输入要搜索的文件名，再建一个Text2.txt用于显示Text1.txt的路径，Command1用于搜索，Command2用于改Text2.txt中文件属性(只读)。
补上图片。

经过几小时的资料查找，已经解决搜索文件的问题了。现在只剩下属性更改问题了。
请问，如何根据Text2中的路径，修改Text1文件的属性呢？属性更改按钮的代码应该怎么写呀？
或者说，我要怎么用一个变量来代表Text2中的路径？

Private Sub Command2_Click()
Dim F As String
Dim m As String
Text2.Text = SearchFile(F)
m = SearchFile(F)
Shell "cmd.exe /k attrib " + m + " +r", vbHide
End Sub

这样写，错在哪里了？还望高人指教。谢谢。

Answer 1

再添加三个textbox，里面分别存放"和"。作用如下：
text3.text="attrib +r "+text4.text+text2.text+text5.text
'text3.text为存放批处理要用的路径
'text4.text为存放"
'text5.text也同样是存放"
'text2.text是直接引用楼主你自己的，作用应该为存放目标文件的绝对路径。
最后，shell命令改动一下。如下：
shell("cmd /c")&text3.text
因为我也没多少编程知识，所以只能多绕弯路来实现。

Answer 2

SetAttr 函数作用:设置一个文件的属性信息
常数 值 描述
vbNormal 0 常规（缺省值）
VbReadOnly 1 只读。
vbHidden 2 隐藏。
vbSystem 4 系统文件
vbArchive 32 上次备份以后，文件已经改变

例如:
fname = "c:\boot.ini"
SetAttr fname, vbNormal

追问

Ctrl+C和Ctrl+V的运用？
您能解释下，您例子中的fname，在我这里，要填写什么呢？文件路径我根本就不知道。
Text2.Text = SearchFile(F)
m = SearchFile(F)
这两句话的作用，上一句是把文件路输出到Text2.text上，下一句是想用m来代表文件的绝对路径。
SetAttr fname, vbNormal
这里的fname我应该填写什么呢？是m吗？还是SearchFile(F)呢？或者是"m"吗？又或者是"SearchFile(F)"呢？
我四个全试了，没用。

Answer 3

这个需要遍历目录哦，用dir函数遍历就好。修改只读的话用SetAttr函数就好了。