实例44-获取文件夹中的文件名称
Private Sub CommandButton获取_Click()
'---不包含文件夹
【资料图】
With ThisWorkbook.Worksheets("操作界面")
If Trim(.Cells(2, "C").Value) = "" Then
MsgBox "文件夹路径参数不能为空"
Exit Sub
End If
Dim fpath As String
fpath = Trim(.Cells(2, "C").Value)
End With
Set fs = CreateObject("Scripting.FileSystemObject")
Set fs_folder = fs.GetFolder(fpath)
Call getfilename(fs_folder)
With ThisWorkbook.Worksheets("名称列表")
.Columns(1).AutoFit
.Columns(2).AutoFit
.Activate
End With
End Sub
Sub getfilename(fso)
With Worksheets("名称列表")
.UsedRange.ClearContents
Dim addrow
'--------------------------------------------------------------
.Cells(1, 1) = "完整路径"
.Cells(1, 2) = "文件名"
addrow = .Cells(1000000, 1).End(xlUp).Row + 1
Dim f
For Each f In fso.Files
.Cells(addrow, 1) = f.Path
.Cells(addrow, 2) = "'" & f.Name
addrow = addrow + 1
Next
End With
End Sub
实例45-重命名文件
Private Sub CommandButton获取_Click()
'---不包含文件夹
With ThisWorkbook.Worksheets("操作界面")
If Trim(.Cells(2, "C").Value) = "" Then
MsgBox "文件夹路径参数不能为空"
Exit Sub
End If
Dim fpath As String
fpath = Trim(.Cells(2, "C").Value)
End With
Set fs = CreateObject("Scripting.FileSystemObject")
Set fs_folder = fs.GetFolder(fpath)
Call getfilename(fs_folder)
With ThisWorkbook.Worksheets("名称列表")
.Columns(1).AutoFit
.Columns(2).AutoFit
.Activate
End With
End Sub
Sub getfilename(fso)
With Worksheets("名称列表")
.UsedRange.ClearContents
Dim addrow
'--------------------------------------------------------------
.Cells(1, 1) = "完整路径"
.Cells(1, 2) = "原文件名"
.Cells(1, 3) = "新文件名"
addrow = .Cells(1000000, 1).End(xlUp).Row + 1
Dim f
For Each f In fso.Files
.Cells(addrow, 1) = f.Path
.Cells(addrow, 2) = "'" & f.Name
addrow = addrow + 1
Next
End With
End Sub
Private Sub CommandButton重命名_Click()
With Worksheets("名称列表")
Dim i, imax
imax = .Cells(1000000, 1).End(xlUp).Row
If imax = 1 Then
Exit Sub
End If
Dim old_name As String
Dim new_name As String
For i = 2 To imax
old_name = .Cells(i, 1)
new_name = Left(.Cells(i, 1), Len(.Cells(i, 1)) - Len(.Cells(i, 2)) - 1) & "\" & .Cells(i, 3)
Name old_name As new_name
Next i
.Activate
MsgBox "处理完成"
End With
End Sub
关键词:
实例44-获取文件夹中的文件名称PrivateSubCommandButton获取_Click()& 39;---不包含文件夹WithThisWorkbook Worksheets("操作界面")IfTrim( Ce2023-03-22
歌词里有苦咖啡是什么歌,苦咖啡的歌词是什么很多人还不知道,现在让我们一起来看看吧!1、苦咖啡----李杰那滋味》汤潮唱的爱你就像大风往北吹2023-03-22
樱杏桃梨次第开(侨乡新貌)2023-03-22
1、王舞应该是把自己分成三千份,个子修炼,每个个体体内都有金丹。2、然后在收回来,每练出一枚金丹就把他分出去让他独自修炼2023-03-22
量化私募“抄底”一年后大赚,自购2亿可获2000-4000万浮盈,股票,量化私募,基金资产净值2023-03-21
首批208项!“京津冀+雄安”政务服务“跨省通办”自助办上线---为深入推动京津冀协同发展走深走实,进一步优化三地营商环境,近日,“京津冀+2023-03-21
每经AI快讯,有投资者在投资者互动平台提问:海纳半导体作为tvs全球龙头,其主要应用在哪方面?众合科技(000925 SZ)3月21日在投资者互动平台表2023-03-21
3月21日,九号公司(689009 SH)股价平开,之后不断拉升,截至收盘,报收34 65元,涨幅7 08%。 资料显示,九号公司主营业务为各类智能短程2023-03-21
1、小标题小标题小标题小标题,就是除了作文的大题目外,还把文章分成几个小板块,其中每一块给它取一个能概括内容的小题目。22023-03-21
1、需要你在steam上购买,比较简单,下载个steam客户端注册并登陆就可以购买了,建议春节期间购买,折扣非常大。2、2023-03-21
大家好,小乐来为大家解答以上的问题。波音788可以乘多少人,波音788这个很多人还不知道,现在让我们一起来看看吧!1、波音飞机目前为止一共2023-03-21
同花顺数据显示,2023年3月20日,伊利股份获外资卖出149 84万股,占流通盘0 02%。截至目前,陆股通持有伊利股份10 66亿股,占流通股16 89%,累2023-03-21
1、“图形工作站”是一种专业从事图形、图像(静态)、图象(动态)与视频工作的高档次专用电脑的总称,现已被广泛地使用在以下2023-03-21
ST泛微(603039):2022年营业收入23 31亿元,与上期同比增加16 41%3月20日,ST泛微2022年年报显示,本期营业收入23 31亿2023-03-21
如果您已经患有糖尿病,您是否正在尽一切可能避免或控制它?这是一种可怕的疾病,会严重影响一个人的生活质量,甚至导致死亡,因2023-03-20
李子园(605337):浙江李子园食品股份有限公司部分董监高集中竞价减持股份结果公告3月20日,李子园公告显示,公司于2022年8月26日披露了《浙江2023-03-20
许昌市中心城区,包括魏都区、建安区、城乡一体化示范区、经济技术开发区、东城区。 财经网讯3月20日,据“许昌发布”消息,3月27日起,凡2023-03-20
11月1日,河南周口,15岁女孩因琐事跳楼轻生,特警郭龙展用身体当“肉垫”救下女孩,随后二人被送至医院,经检查,郭龙展腿2023-03-20
北京时间3月19日,胜负彩第23038期开奖结果揭晓。本期一等奖开15注,单注奖金254万多元,1433万余元滚存被清空。二等奖开427注,单注奖金2 4万余元2023-03-20
中新社怒江3月19日电(熊佳欣)2023减贫治理与全球发展(怒江)国际论坛19日在云南省怒江傈僳族自治州举行。多国专家2023-03-20
1、国内生产总值(GDP)与国民生产总值(GNP)是两个既有联系又有区别的指标。2、它们都是核算社会生产成果和反映宏观经济的总量指标。3、但因其计2023-03-20
1、日剧:水手服僵尸。2、这是:大和田南那导演:犬童一心 渡部亮平 今泉力哉 古川豪编剧:渡部亮平2023-03-20
1、那要看是你妻子的哥哥还是弟弟。2、她哥哥的妻子我们这里是跟妻子叫一样的嫂子。3、弟弟的就叫名字。本文就为大家分享到这2023-03-19
1、元媛,作家禾马出版社的一名作家,自称元小媛。2、其作品一般都在红樱桃和水叮当出版。3、与禾马的作家米璐璐、若欢是很好2023-03-19
1、此类事物有几种:最推荐的一种:推荐理由:虽然蓝山咖啡名气很大,大家公认风味绝佳,但是绝大多数的人可能这辈子都没有喝过2023-03-19