Question

我完全不熟悉VB，但我必须修改一行。这就是为什么我要求社区寻求帮助。我有这条线：

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

它现在有效，但我必须用2015-01之类的日期替换YYYY-dd。有人可以请帮助我如何修改行，并用不占用“硬编码”行的占位符替换文字。

Answer 1

目前还不清楚你想做什么，但是以一般的方式：

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\" & yy & "-" & mm &"\" & FileNameLessDir(ABCFileName)

上面的字符串将是：

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

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

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

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

使用它来获得所需的输出（连接日期，月份，前几天，前几个月等）。

Answer 2

格式化＆＃39;日期＆＃39;输出：

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

修改VB脚本

2 个答案: