VB修改文件属性代码！
实现，当D:\1.exe有这个文件，是隐藏文件，修改成正常文件。当D:\没有1.exe则无任何提示！...
实现，当D:\1.exe 有这个文件，是隐藏文件，修改成正常文件。当D:\ 没有1.exe 则无任何提示！
展开
2个回答
展开全部
Private Sub Form_Load()
Dim myfile As String
myfile = Dir("D:\1.exe", vbHidden)
If myfile <> "" Then
If GetAttr("D:\1.exe") = vbHidden Then
SetAttr "D:\1.exe", vbNormal
Else
End If
Else
MsgBox "No File"
End If
End Sub
Dim myfile As String
myfile = Dir("D:\1.exe", vbHidden)
If myfile <> "" Then
If GetAttr("D:\1.exe") = vbHidden Then
SetAttr "D:\1.exe", vbNormal
Else
End If
Else
MsgBox "No File"
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
网易云信
2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库，由YOOtheme团队开发。它提供了丰富的界面元素，包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等，适用于各种类型的网站和应用程序。UIkit还支持响应式设计，可以根据不同...
点击进入详情页
本回答由网易云信提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
