精华内容
下载资源
问答
  • 1. 前言今天在配置cppunit的附加... 处理思路我们这里想到了vb.net, 利用他的拖拽功能, 直接获取相应的文件名称3. 实现效果 4. 注意点 我们这里选用的是listview 控件, 顺手拖过来的 他的view 属性一定改为List,

    1. 前言

    今天在配置cppunit的附加依赖项的时候, 需要输入相应的附加依赖项的文件名, 这个很费劲, 我们又不想自己手工一个个的copy, 就希望能够找到一种方法可以直接获取到我们的文件名

    2. 处理思路

    我们这里想到了vb.net, 利用他的拖拽功能, 直接获取相应的文件名称

    3. 实现效果

    这里写图片描述
    这里写图片描述

    4. 注意点

    1. 我们这里选用的是listview 控件, 顺手拖过来的
    2. 他的view 属性一定改为List,这样文件名可以全部显示
    3. AllowDrop 属性改为True, 允许拖拽

    5. 代码

    Public Class Form1
        ' 拖拽进入, 清空数据
        Private Sub FileLists_DragEnter(sender As Object, e As DragEventArgs) Handles FileLists.DragEnter
            FileLists.Items.Clear()
            e.Effect = DragDropEffects.All
        End Sub
    
        ' 拖拽完成, 显示数据
        Private Sub FileLists_DragDrop(sender As Object, e As DragEventArgs) Handles FileLists.DragDrop
            Dim MyFiles() As String
            MyFiles = e.Data.GetData(DataFormats.FileDrop)
            For i = 0 To MyFiles.Count - 1
                Dim Items() As String
                Items = MyFiles(i).Split("\\")
                FileLists.Items.Add(Items(Items.Count - 1))
            Next
        End Sub
    
        ' 双击数据, 实现复制数据到剪切板, 另外注意换行使用 vbCrLf, C 中的 "\n" 不管用
        Private Sub FileLists_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles FileLists.MouseDoubleClick
            Dim strData As String
    
            strData = ""
            With FileLists
                For i = 0 To .Items.Count - 1
                    strData += .Items.Item(i).Text + vbCrLf
                Next
            End With
            Clipboard.SetDataObject(strData)
        End Sub
    End Class
    展开全文
  • --------------------------------------------------------- '获取一个文件夹里的所有文件夹名称(包含隐藏的文件夹) Private Sub ShowFileList(folderspec) '获取一个文件夹里的所有文件夹名称(包含隐藏的文件夹) ...

    Private Sub Form_Load()
    Dim sB As String
    Dim sF As String
    Combo1.Clear
    sB = “c:”
    sF = Dir(sB, vbDirectory) '寻找第一项
    Do While sF <> “” '跳过当前的目录及上层目录
    If sF <> “.” And sF <> “…” Then
    If (GetAttr(sB + sF) And vbDirectory) = vbDirectory Then
    Combo1.AddItem sF '如果它是一个目录,将其名称添加到Combo1列表
    List1.AddItem sF
    End If
    End If
    sF = Dir '查找下一个目录
    Loop
    Combo1.ListIndex = 0 '选择第一项
    End Sub
    '----------------------------------------------------------
    '获取一个文件夹里的所有文件夹名称(包含隐藏的文件夹)

    Private Sub ShowFileList(folderspec) '获取一个文件夹里的所有文件夹名称(包含隐藏的文件夹)
    Dim fs, f, f1, s, fc
    List1.Clear
    Set fs = CreateObject(“Scripting.FileSystemObject”)
    Set f = fs.getfolder(folderspec)
    Set fc = f.SubFolders
    For Each f1 In fc
    If InStr(f1.Name, “.”) = 0 Then
    List1.AddItem f1.Name
    End If
    Next
    End Sub
    '---------------------------------------------------------

    '获取一个目录里所有文件名(非文件夹名)
    Private Sub Form_Load()
    Dim fname As String,student As String,folderName As String
    folderName = “D:”
    fname = Dir(folderName & “*.txt”, 7)
    List1.Clear
    Do
    If fname = “” Then Exit Do
    List1.AddItem fname
    fname = Dir()
    Loop
    End Sub

    展开全文
  • 此过程能把指定文件夹下的文件名放入Sheet1的A列。 Public Sub findname() Dim fs, f, f1, fc, s Set fs = CreateObject ( " Scripting.FileSystemObject " ) Set f = fs.GetFolder( " d:\33 " ) ' ...
    dim FSO as Scripting.FileSystemObject
    dim fdrFolder as Scripting.Folder
    dim fdrSubFolder as Scripting.Folder
    
    Set FSO =New  Scripting.FileSystemObject
    ser  fdrFolder = FSO.GetFolder(strPath)
    
    For Each fdrSubFolder in fdrFolder.SubFolders
       Print fdrSubFolder.name
    next
    
    '----------------------------------------------------------------
    此过程能把指定文件夹下的文件名放入Sheet1的A列。
    Public Sub findname()
        Dim fs, f, f1, fc, s
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set f = fs.GetFolder("d:\33") '在括号内输入你指定的目录
        Set fc = f.Files
        
        i = 1
        For Each f1 In fc
            Sheet1.Cells(i, 1) = f1.Name
            i = i + 1
            s = s & f1.Name
            s = s & vbCrLf
        Next
    End Sub
    
    '--------------------------------------------------------
    Private Sub Form_Load()
    '引用Microsoft script runtime
    Dim f As File, fd As Folder
    Set fd = fso.GetFolder("c:\")
    For Each f In fd.Files
    Debug.Print f.Path
    Next
    
    End Sub

    转载于:https://www.cnblogs.com/ljg3020/archive/2012/11/12/2766098.html

    展开全文
  •  功能:选择某一个文件夹,想获取里面的文件的名称,或者只获取里面的文件夹名称,直接用这个程序。 VB.Net 2005,程序界面如:这里用到一个控件,用起来超级爽。都不用自己写什么就可以浏览电脑资源了。整个dll...

    产品图片很多而且图片的名称都是按货号命名的。有时候要通过图片来获取货号名称,想怎么快速获取几百个图片文件的名称呢。于是就写了这个程序。

     

    功能:选择某一个文件夹,想获取里面的文件的名称,或者只获取里面的文件夹名称,直接用这个程序。

     

    VB.Net 2005,程序界面如:

    这里用到一个控件,用起来超级爽。都不用自己写什么就可以浏览电脑资源了。整个dll文件才88K。只有用的人才知道:好用啊,做什么资源管理程序,管理器都可以用这个控件了。ExpTree控件参考:
    http://www.codeproject.com/KB/cpp/VbNetExpTree.aspx

     

    快速获取文件夹/文件名称程序代码:

    1. Imports System.IO
    2. Imports System.Text
    3. Imports System.Resources
    4. Imports System.Reflection
    5. Imports ExpTreeLib
    6. Imports ExpTreeLib.CShItem
    7. Imports ExpTreeLib.SystemImageListManager
    8. 'ExpTree控件参考:
    9. 'http://www.codeproject.com/KB/cpp/VbNetExpTree.aspx
    10. Public Class FrmMain
    11.     Dim i As Integer
    12.     Dim CurPath As String
    13.     Public Sub New()
    14.         ' 此调用是 Windows 窗体设计器所必需的。
    15.         InitializeComponent()
    16.         ' 在 InitializeComponent() 调用之后添加任何初始化。
    17.         SystemImageListManager.SetListViewImageList(lv1, TrueFalse)
    18.         SystemImageListManager.SetListViewImageList(lv1, FalseFalse)
    19.     End Sub
    20.     Private Sub ShowMsg(ByVal Msg As StringOptional ByVal mType As MsgType = MsgType.Ok)
    21.         If mType = MsgType.Ok Then
    22.             Me.LB.ForeColor = Color.Black
    23.             Me.LB.Text = Msg
    24.         Else
    25.             Me.LB.ForeColor = Color.Red
    26.             Me.LB.Text = "出错:" & Msg
    27.         End If
    28.         Me.LB.Refresh()
    29.     End Sub
    30.     Private Sub SetDirInfo(ByVal info As String)
    31.         Me.LBDirInfo.Text = info
    32.         Me.LBDirInfo.Refresh()
    33.     End Sub
    34.     Private Sub lv1_DoubleClick(ByVal sender As ObjectByVal e As System.EventArgs) Handles lv1.DoubleClick
    35.         ExeLv1Selection()
    36.     End Sub
    37.     Private Sub lv1_DragEnter(ByVal sender As System.ObjectByVal e As System.Windows.Forms.DragEventArgs) Handles lv1.DragEnter
    38.         If e.Data.GetDataPresent(DataFormats.FileDrop) Then
    39.             e.Effect = DragDropEffects.All
    40.         End If
    41.     End Sub
    42.     Private Sub lv1_DragDrop(ByVal sender As System.ObjectByVal e As System.Windows.Forms.DragEventArgs) Handles lv1.DragDrop
    43.         If e.Data.GetDataPresent(DataFormats.FileDrop) Then
    44.             Dim MyFiles() As String
    45.             Dim item As CShItem
    46.             Dim sb As New StringBuilder
    47.             MyFiles = e.Data.GetData(DataFormats.FileDrop)
    48.             Me.TxtBoxMain.Clear()
    49.             For i = 0 To MyFiles.Length - 1
    50.                 item = New CShItem(MyFiles(i))
    51.                 '如果拖放的是硬盘,隐藏文件,快捷方式,系统文件,网络硬盘,可移动硬盘就不添加到lv1中。
    52.                 If (item.IsDisk = False And item.IsLink = False And item.IsSystem = False And item.IsNetworkDrive = False And item.IsRemovable = FalseThen
    53.                     Dim lvi As New ListViewItem(item.DisplayName)
    54.                     With lvi
    55.                         .ImageIndex = SystemImageListManager.GetIconIndex(item, False)
    56.                         .Tag = item
    57.                     End With
    58.                     lv1.Items.Add(lvi)
    59.                 End If
    60.             Next
    61.         End If
    62.     End Sub
    63.     Private Sub lv1_KeyDown(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyEventArgs) Handles lv1.KeyDown
    64.         If e.KeyCode = Keys.Enter Then
    65.             ExeLv1Selection()
    66.         ElseIf e.KeyCode = Keys.Delete Then
    67.             If Me.lv1.SelectedItems.Count > 0 Then
    68.                 Me.lv1.Items.RemoveAt(Me.lv1.SelectedIndices(0))
    69.             End If
    70.         End If
    71.     End Sub
    72.     Private Sub ExeLv1Selection()
    73.         If IsNothing(lv1.SelectedItems) OrElse lv1.SelectedItems.Count < 1 Then Exit Sub
    74.         Dim item As CShItem = lv1.SelectedItems(0).Tag
    75.         If item.IsFolder Then
    76.             ExpTree1.ExpandANode(item)
    77.         Else
    78.             Try
    79.                 System.Diagnostics.Process.Start(item.Path)
    80.             Catch ex As Exception
    81.                 Throw New Exception(ex.Message)
    82.             End Try
    83.         End If
    84.     End Sub
    85. #Region " lv1_MouseUp 单击打开文件夹"
    86.     'Private Sub lv1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lv1.MouseUp
    87.     'Dim lvi As ListViewItem = lv1.GetItemAt(e.X, e.Y)
    88.     'If IsNothing(lvi) Then Exit Sub
    89.     'If IsNothing(lv1.SelectedItems) OrElse lv1.SelectedItems.Count < 1 Then Exit Sub
    90.     'Dim item As CShItem = lv1.SelectedItems(0).Tag
    91.     'If item.IsFolder Then
    92.     '    If e.Button = Windows.Forms.MouseButtons.Left Then
    93.     '        ExpTree1.ExpandANode(item)
    94.     '    End If
    95.     'End If
    96.     'End Sub
    97. #End Region
    98.     Private Sub BtClose_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles BtClose.Click
    99.         Me.Close()
    100.         Application.Exit()
    101.     End Sub
    102.     Private Sub BtCopyText_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles BtCopyText.Click
    103.         If Me.TxtBoxMain.Text > String.Empty Then
    104.             System.Windows.Forms.Clipboard.Clear()
    105.             System.Windows.Forms.Clipboard.SetText(Me.TxtBoxMain.Text)
    106.             ShowMsg("文本内容已经复制在系统粘贴板中")
    107.         End If
    108.     End Sub
    109.     Private Sub BtCopyList2TxtBox_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles BtCopyList2TxtBox.Click
    110.         GetLvToTxt()
    111.         ShowMsg("共 " & Me.TxtBoxMain.Lines.Length & " 行")
    112.     End Sub
    113.     Private Sub GetLvToTxt()
    114.         Me.TxtBoxMain.Clear()
    115.         Dim sb As StringBuilder
    116.         Dim csi As CShItem
    117.         Dim fln As String
    118.         If Me.lv1.Items.Count > 0 Then
    119.             sb = New StringBuilder
    120.             If Me.ChkBoxIsNeedExt.Checked = True Then
    121.                 For i = 0 To lv1.Items.Count - 1
    122.                     csi = CType(Me.lv1.Items(i).Tag, CShItem)
    123.                     If csi.IsFolder Then
    124.                         sb.Append(csi.DisplayName)
    125.                         sb.AppendLine()
    126.                     Else
    127.                         fln = csi.GetFileName
    128.                         If Me.TxtExtStr.Text > "" Then
    129.                             If Me.RdBtExtAll.Checked = True Then
    130.                                 sb.Append(fln)
    131.                                 sb.AppendLine()
    132.                             End If
    133.                             If Me.RdBtExtFliter.Checked = True Then
    134.                                 If fln.IndexOf(Me.TxtExtStr.Text) = -1 Then
    135.                                     sb.Append(fln)
    136.                                     sb.AppendLine()
    137.                                 End If
    138.                             End If
    139.                             If Me.RdBtExtOnlyGet.Checked = True Then
    140.                                 If fln.IndexOf(Me.TxtExtStr.Text) > -1 Then
    141.                                     sb.Append(fln)
    142.                                     sb.AppendLine()
    143.                                 End If
    144.                             End If
    145.                         Else
    146.                             sb.Append(fln)
    147.                             sb.AppendLine()
    148.                         End If
    149.                     End If
    150.                 Next
    151.             Else
    152.                 For i = 0 To lv1.Items.Count - 1
    153.                     sb.Append(lv1.Items(i).Text)
    154.                     sb.AppendLine()
    155.                 Next
    156.             End If
    157.             Me.TxtBoxMain.Text = sb.ToString
    158.             '减去最后一个空白行。
    159.             Me.TxtBoxMain.Text = Mid(Me.TxtBoxMain.Text, 1, Me.TxtBoxMain.TextLength - 2)
    160.         End If
    161.     End Sub
    162.     Private Sub TxtBoxMain_KeyDown(ByVal sender As System.ObjectByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtBoxMain.KeyDown
    163.         If e.Control = True Then
    164.             If e.KeyCode = Keys.A Then
    165.                 Me.TxtBoxMain.SelectAll()
    166.             ElseIf e.KeyCode = Keys.C Then
    167.                 Me.TxtBoxMain.Copy()
    168.             End If
    169.         End If
    170.     End Sub
    171.     Private Sub BtComBiTxtMain_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles BtComBiTxtMain.Click
    172.         If Me.TxtBoxMain.Text > "" Then
    173.             Me.TxtBoxMain.Text = Replace(Me.TxtBoxMain.Text, Environment.NewLine, ",")
    174.             ShowMsg("共 " & Me.TxtBoxMain.Lines.Length & " 行")
    175.         End If
    176.     End Sub
    177.     Private Sub BtSplitTxtMain_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles BtSplitTxtMain.Click
    178.         If Me.TxtBoxMain.Text > "" Then
    179.             Me.TxtBoxMain.Text = Replace(Me.TxtBoxMain.Text, ",", Environment.NewLine)
    180.             ShowMsg("共 " & Me.TxtBoxMain.Lines.Length & " 行")
    181.         End If
    182.     End Sub
    183.     Private Sub LoadPathInfo(ByVal SelPath As StringByVal CSI As ExpTreeLib.CShItem, ByVal AllFF As ShowFFType)
    184.         Dim dirList As New ArrayList()
    185.         Dim fileList As New ArrayList()
    186.         Dim TotalItems As Integer
    187.         If CSI.DisplayName.Equals(CShItem.strMyComputer) Then
    188.             'avoid re-query since only has dirs
    189.             dirList = CSI.GetDirectories
    190.         Else
    191.             If AllFF = ShowFFType.All Then
    192.                 dirList = CSI.GetDirectories
    193.                 fileList = CSI.GetFiles
    194.             ElseIf AllFF = ShowFFType.Folder Then
    195.                 dirList = CSI.GetDirectories
    196.             ElseIf AllFF = ShowFFType.File Then
    197.                 fileList = CSI.GetFiles
    198.             End If
    199.         End If
    200.         'CSI.Path 如果是系统对象。就放回以::开头的GUID
    201.         Me.TxtFFPath.Text = SelPath
    202.         CurPath = SelPath
    203.         TotalItems = dirList.Count + fileList.Count
    204.         If TotalItems > 0 Then
    205.             Dim item As CShItem
    206.             dirList.Sort()
    207.             fileList.Sort()
    208.             SetDirInfo("共: " & dirList.Count & " 目录 " & fileList.Count & " 文件")
    209.             Dim combList As New ArrayList(TotalItems)
    210.             combList.AddRange(dirList)
    211.             combList.AddRange(fileList)
    212.             'Build the ListViewItems & add to lv1
    213.             lv1.BeginUpdate()
    214.             lv1.Items.Clear()
    215.             lv1.Refresh()
    216.             For Each item In combList
    217.                 Dim lvi As New ListViewItem(item.DisplayName)
    218.                 With lvi
    219.                     'SubItem formatting and adding to lvi omitted from (从...删除去)article text
    220.                     'Set ListViewItem's IconIndex (and add Icon to lists if necessary)
    221.                     .ImageIndex = SystemImageListManager.GetIconIndex(item, False)
    222.                     .Tag = item
    223.                 End With
    224.                 lv1.Items.Add(lvi)
    225.             Next
    226.             lv1.EndUpdate()
    227.         Else
    228.             lv1.Items.Clear()
    229.             SetDirInfo("0个对象")
    230.         End If
    231.     End Sub
    232.     Private Sub BtOpenFolder_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles BtOpenFolder.Click
    233.         If CurPath > "" Then
    234.             System.Diagnostics.Process.Start(CurPath)
    235.         End If
    236.     End Sub
    237.     Private Sub BtClearnListView_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles BtClearnListView.Click
    238.         Me.lv1.Items.Clear()
    239.         Me.lv1.Refresh()
    240.     End Sub
    241.     Private Sub RdBtShowFF_CheckedChanged(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles RdBtShowAllFF.CheckedChanged, RdBtShowFile.CheckedChanged, RdBtShowFolder.CheckedChanged
    242.         If CurPath > String.Empty Then
    243.             SetDirInfo(String.Empty)
    244.             Try
    245.                 Dim cshi As New CShItem(CurPath)
    246.                 LoadPathInfo(CurPath, cshi, GetShowFFType)
    247.             Catch ex As Exception
    248.                 SetDirInfo("系统对象,无法过滤")
    249.             End Try
    250.         End If
    251.     End Sub
    252.     Private Function GetShowFFType() As ShowFFType
    253.         If Me.RdBtShowAllFF.Checked Then Return ShowFFType.All
    254.         If Me.RdBtShowFolder.Checked Then Return ShowFFType.Folder
    255.         If Me.RdBtShowFile.Checked Then Return ShowFFType.File
    256.         Return ShowFFType.All
    257.     End Function
    258.     Private Sub ExpTree1_ExpTreeNodeSelected(ByVal SelPath As System.StringByVal Item As ExpTreeLib.CShItem) Handles ExpTree1.ExpTreeNodeSelected
    259.         UnCheckFFType()
    260.         LoadPathInfo(SelPath, Item, ShowFFType.All)
    261.     End Sub
    262.     Private Sub UnCheckFFType()
    263.         Me.RdBtShowAllFF.Checked = True
    264.         Me.RdBtShowFolder.Checked = False
    265.         Me.RdBtShowFile.Checked = False
    266.     End Sub
    267.     Private Sub ChkBoxIsNeedExt_CheckedChanged(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles ChkBoxIsNeedExt.CheckedChanged
    268.         If Me.ChkBoxIsNeedExt.CheckState <> CheckState.Checked Then
    269.             Me.RdBtExtAll.Checked = False
    270.             Me.RdBtExtFliter.Checked = False
    271.             Me.RdBtExtOnlyGet.Checked = False
    272.             Me.TxtExtStr.Text = ""
    273.         ElseIf Me.ChkBoxIsNeedExt.CheckState = CheckState.Checked Then
    274.             Me.RdBtExtAll.Checked = True
    275.             Me.TxtExtStr.Text = ""
    276.         End If
    277.     End Sub
    278.     Private Sub BtRefrechFFList_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles BtRefrechFFList.Click
    279.         ExpTree1.RefreshTree()
    280.     End Sub
    281.     Private Sub RdBtExtAll_CheckedChanged(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles RdBtExtAll.CheckedChanged
    282.         If Me.RdBtExtAll.Checked = True Then
    283.             Me.TxtExtStr.Text = ""
    284.         End If
    285.     End Sub
    286.     Private Sub BtClearTxtMain_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles BtClearTxtMain.Click
    287.         Me.TxtBoxMain.Clear()
    288.     End Sub
    289. End Class
    展开全文
  • 最近vb2005写了个WinCE的程序,需要采集器读取本机指定文件夹内的文件名,并通过文件名处理每个文件里的内容。 请各位高手指点一下,这个问题困扰我好几天了,一直找不到好的解决办法,再次谢过。 比较着急,有此类...
  • 就是就是从文件夹中可以选择图片,但下面要获取图片的名字,比如11.jpg,22.jpg。这不是图片的名字么,要和图片信息一致。从文件夹中选择图片,要用什么语句?是用filename获取文件的名字么,我是菜鸟,完全不知道...
  • 所以就想简单写个程序,获取一下文件夹下面的所有文件名称,这样就可以节省很多时间了。   软件呢,我已经上传到网站了:http://download.csdn.net/source/1802599 vb版本目录获取器 1.0(龙卷风出品) ...
  • 所以就想简单写个程序,获取一下文件夹下面的所有文件名称,这样就可以节省很多时间了。 软件呢,我已经上传到网站了:http://download.csdn.net/source/1802599vb版本目录获取器 1.0(龙卷风出品)说明:1.选好...
  • VB.Net>共享一个我写的快速获取文件夹/文件名称程序代码。 详细情况请看: http://blog.csdn.net/linjimu/archive/2008/07/04/2610437.aspx
  • vb的一些套用代码

    2017-03-16 23:25:28
    Text1imagecombo1控件使用.txt instrev 函数使用.txt s.txt SQL语句大全.txt ...获取文件夹图标.txt 获取计算机进程.txt 设置颜色代码.txt 读取文件夹或文件名称.txt 读取本机ip地址.txt 选择文件夹.txt
  • vb版本目录获取器 1.0(龙卷风出品) 说明: 1.选好目录后,可以直接得到目录下的文件夹和文件名称,以及统计数目。 2."树形结构"按键将会把各文件夹和文件罗列下来。 3."树形展开"将把目录下的子目录也一并展开。...
  • 依照下面的MkDir语句语法,你可以创建一个新文件夹: MkDir Path Path明确你要创建的新文件夹名称。...3. 获取当前文件夹名称: ?CurDir 结果如下: 使用RmDir函数来删除不需要的文件夹。该函数的语法如下:
  • VB

    2019-09-21 23:42:14
    获取时间戳 ...说明:使用 Dir 函数会返回一个 String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。 注:Dir 会返回匹配 pathname 的第一个文件名。...
  • 文件分割器VB版.rar

    2019-07-10 18:19:20
    冯豪豪的程序作品。...代码中的nFolder是SHGetSpecialFolderLocation中的同名参数,ulFlags是SHBrowseForFolder的同名参数,设置浏览对话框,最复杂的就是设置文件夹参数nFolder,获取文件夹名称字符串。
  • cgicounter.zip cgi计数器(21KB) 108,001.zip 一个MDI多文档界面的程序实例(18KB) 109,002.zip 一个对注册表进行操作的VB工程(6KB) 110,003.zip 一个获取windows系统相关信息的实例(7KB)...
  • freespace.zip 获取磁盘剩余空间(3KB) 562,setscreen 设置屏幕分辨率(7KB) 563,snapwindow.zip 一个抓图的小程序(14KB) 564,hotrgn.zip 热区的应用(6KB) 565,getserial.zip 读出...
  • freespace.zip 获取磁盘剩余空间(3KB) 562,setscreen 设置屏幕分辨率(7KB) 563,snapwindow.zip 一个抓图的小程序(14KB) 564,hotrgn.zip 热区的应用(6KB) 565,getserial.zip 读出...
  • freespace.zip 获取磁盘剩余空间(3KB) 562,setscreen 设置屏幕分辨率(7KB) 563,snapwindow.zip 一个抓图的小程序(14KB) 564,hotrgn.zip 热区的应用(6KB) 565,getserial.zip 读出...
  • freespace.zip 获取磁盘剩余空间(3KB) 562,setscreen 设置屏幕分辨率(7KB) 563,snapwindow.zip 一个抓图的小程序(14KB) 564,hotrgn.zip 热区的应用(6KB) 565,getserial.zip 读出...
  • FSO对象是什么鬼?...FSO 对象模型可以实现文件(夹)的创建、改变、移动和删除等常见操作,也可以获取文件(夹)的名称、大小、属性、创建日期或最近修改日期等信息,还可以检测是否存在指定的文件夹。通过F...
  • Power Query for Excel

    2020-07-11 15:34:35
    获取数据选取文件夹—选择table数据列,删除其他列—添加自定义列—输入公式—删除原列,展开新列,上载 此方法可以用于多个工作簿多个工作表或多个工作簿单个表 公式: 使用VBA,新建一个空的工作簿—VB
  • 实例156 利用错误号获取错误名称 实例157 将汉字转换为Unicode字符代码 实例158 获取在已打开文件中的读写位置 实例159 判断变量是否被初始化 实例160 获取文件创建或修改日期 实例161 自定义错误号 实例162 ...
  • 实例153 用VB实现SQL Server 2000存储过程 调用 260 实例154 动态创建Access数据库及数据表 263 实例155 拼音简码查询 267 实例156 在程序中应用视图 269 第4章 数据库访问与显示 271 4.1 连接Access数据库 ...
  • 实例153 用VB实现SQL Server 2000存储过程 调用 260 实例154 动态创建Access数据库及数据表 263 实例155 拼音简码查询 267 实例156 在程序中应用视图 269 第4章 数据库访问与显示 271 4.1 连接Access数据库 ...
  • 实例156 利用错误号获取错误名称 实例157 将汉字转换为Unicode字符代码 实例158 获取在已打开文件中的读写位置 实例159 判断变量是否被初始化 实例160 获取文件创建或修改日期 实例161 自定义错误号 实例162 ...
  • 摘要:NTFS是Microsoft公司开发的一种有着良好安全性和稳定性的高性能文件系统,NTFS的文件或文件夹中附加多个额外的数据流,但是其访问一直没有很好的解决办法,本文使用VB2003实现NTFS文件附加数据流的读写类,...
  • Excel_VBA教程

    2014-09-22 11:36:34
    2.更改文件或文件夹名称(NAME函数) 145 3.检查文件或文件夹是否存在(DIR函数) 145 4.获得文件修改的日期和时间(FILEDATETIME函数) 147 5.获得文件大小(FILELEN函数) 147 6.返回和设置文件属性(GETATTR函数...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    2.更改文件或文件夹名称(NAME函数) 145 3.检查文件或文件夹是否存在(DIR函数) 145 4.获得文件修改的日期和时间(FILEDATETIME函数) 147 5.获得文件大小(FILELEN函数) 147 6.返回和设置文件属性(GETATTR函数...

空空如也

空空如也

1 2 3
收藏数 55
精华内容 22
关键字:

vb获取文件夹名称