Vba 修改VB脚本

我完全不熟悉VB，但我必须修改一行。这就是我向社区寻求帮助的原因。 我有一句话：

netfile1 = "\\server1\folder1\folder2\2015-01\" & FileNameLessDir(ABCFileName)

它现在可以工作了，但我必须用像YYYY dd之类的日期来代替2015-01。

---

有人能帮我修改行并用占位符替换文字吗？占位符不依赖于“硬编码”行。

您想做什么还不清楚，但一般来说：

dd = Day(Now()) 'current day
'uncomment below line if you want "1" to be "01"
'If dd < 10 Then dd = "0" & dd
mm = Month(Now()) 'current month
'uncomment below line if you want January to be "01"
'If mm < 10 Then mm = "0" & mm
yy = Year(Now()) 'current year

上面的字符串将是：

netfile1 = "\\server1\folder1\folder2\2015-01\FileNameLessDir(ABCFileName)

如果您在2015年1月运行代码

netfile1 = "\\server1\folder1\folder2\2015-02\FileNameLessDir(ABCFileName)

如果您在2015年2月运行代码等

---

使用它可以获得所需的输出，包括天、月、前几天、前几个月等。

格式化“日期”输出：

netfile1 = "\\server1\folder1\folder2\" & Format(Date, "YYYY-MM") & "\" & FileNameLessDir(ABCFileName)

netfile1 = "\\server1\folder1\folder2\" & Format(Date, "YYYY-MM") & "\" & FileNameLessDir(ABCFileName)