修改 VB 脚本

Question

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

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

它现在可以工作了，但我必须用 YYYY-dd 等可以处理日期的东西替换 2015-01。有人可以帮助我如何修改该行并将文字替换为不依赖于 'hard-coded' 行的占位符。

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\folder215-01\FileNameLessDir(ABCFileName)

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

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

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

试用它以获得所需的输出（连接日期、月份、前几天、前几个月等）

Answer 2

格式化 'Date' 输出：

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

修改 VB 脚本

Modify VB script

vba