VB开发常规文件管理
      VB开发常规文件管理
功能：VB开发常规文件管理的各块功能
VB界面如下：
图二
工程窗口如下：
相关按钮的VB代码如下：
1. frmAttribute牛b个性签名的VB代码：
Option Explicit
Dim msFileName As String
Private Sub cmdOK_Click()
    Dim nFileAttr As Integer
    nFileAttr = 0 '属性变量初始化
    '根据复选框的值，来决定文件或者文件夹的属性
    If chkNormal.Value = 1 Then nFileAttr = nFileAttr + vbNormal
    If chkReadOnly.Value = 1 Then nFileAttr = nFileAttr + vbReadOnly
    If chkHidden.Value = 1 Then nFileAttr = nFileAttr + vbHidden
    If chkSystem.Value = 1 Then nFileAttr = nFileAttr + vbSystem
    If chkArchive.Value = 1 Then nFileAttr = nFileAttr + vbArchive
   
    SetAttr msFileName, nFileAttr '设置文件属性
    Unload frmAttribute
End Sub
Private Sub cmdCancel_Click()
    Unload frmAttribute
End Sub
Public Property Get FileName() As String
气息唱歌  FileName = msFileName
End Property
Public Property Let FileName(ByVal strFile As String)
  On Error Resume Next
  msFileName = strFile '给FileName属性赋值
 
  If Dir(msFileName) <> "" Then
      '如果文件名代表的是一个文件
      Me.Caption = "查看文件的属性"
  Else
      If Dir(msFileName, vbDirectory) <> "" Then
        '如果文件名代表的是一个文件夹
        Me.Caption = "查看文件夹的属性"
      End If
2022年立夏时间几点几分几秒
  End If
   
  Dim nAttr As Integer
  nAttr = GetAttr(msFileName) '读取被选文件的属性
  '对文件属性作出判断，设置对应的属性检查框
中国四大名绣
  chkNormal.Value = IIf((nAttr And vbNormal) > 0, 1, 0)
  chkReadOnly.Value = IIf((nAttr And vbReadOnly) > 0, 1, 0)
  chkHidden.Value = IIf((nAttr And vbHidden) > 0, 1, 0)冰之下什么时候上映
  chkSystem.Value = IIf((nAttr And vbSystem) > 0, 1, 0)
  chkArchive.Value = IIf((nAttr And vbArchive) > 0, 1, 0)
End Property
2. frmMain下的VB代码：
Option Explicit
春节祝福语2022年虎年Dim msFileToCopy  '所拷贝的文件的名称
Dim msPathToCopy  '所拷贝的文件的路径
Private Sub dirList_Change()
    filList.Path = dirList.Path

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。