VBA常用技巧代码解析

hhzq

谢谢，太感动了

yuanzhuping

技巧174         获得当前文件夹的名称
       在处理文件时经常需要获得当前文件夹的名称，此时可以使用CurDir函数，如下面的代码所示。

1. #001  Sub CurFolder()
   
2. #002      MsgBox CurDir("F")
   
3. #003  End Sub

复制代码

CurFolder过程使用消息框显示F盘中的当前文件夹名称。
       CurDir函数返回一个Variant类型的文件路径。如果需要返回字符串类型的文件路径则使用CurDir$，语法如下：
       CurDir[(drive)]
       参数drive是可选的，字符串表达式，指定一个存在的驱动器。如果没有指定驱动器，或参数drive 是零长度字符串 ("")，则CurDir函数会返回当前驱动器的路径。
     假设示例文件保存在F盘的“VBA常用技巧\示例文件\第10章 文件操作”文件夹中，运行CurFolder过程结果如图 所示。
      

goodluck0099

老师不遗余力令我非常敬仰！

dianjun

下载了，学习学习

ntlight

你真是有心人，虽然还没下载，但先顶起来。

Ali1109

一句"谢谢您,楼主"

aoz840525

感谢楼主，眼泪哗哗的

foxwu789

期待版主的后续大作

longhorn

下载下来学学，VBA实际中很有用的，几行代码就可以解决大问题。

hfyk007

感谢辛勤的工作