Sub Макрос1()
Dim strTargetDir$, p$
p = "\\192.168.50.19\c$\222\"
strTargetDir = p & Date & "\"
MsgBox strTargetDir
End Sub
пропимывание путей
есть код:
im objFS, objFolder, objFiles, objCurFile
Dim strTemp
Const strSourceDir = "\\192.168.50.6\C$\111\"
Const strTargetDir = "\\192.168.50.19\c$\222\XXXXXXXX \"
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(strSourceDir)
Вместо XXXX надо чтобы стояла переменная которая соответствует сегодняшней дате, т.е. путь менялся каждый день.
im objFS, objFolder, objFiles, objCurFile
Dim strTemp
Const strSourceDir = "\\192.168.50.6\C$\111\"
Const strTargetDir = "\\192.168.50.19\c$\222\XXXXXXXX \"
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(strSourceDir)
Вместо XXXX надо чтобы стояла переменная которая соответствует сегодняшней дате, т.е. путь менялся каждый день.
Посмотрите на результаты и выберите наиболее приемлемый для Вас :
Dim strTargetDir As String 'если речь идёт о VB/VBA
'Dim strTargetDir$ 'аналогично
'Dim strTargetDir 'если речь идёт о VBS
strTargetDir = "\\192.168.50.19\c$\222\" & Date & "\"
strTargetDir = "\\192.168.50.19\c$\222\" & Date$ & "\"
strTargetDir = "\\192.168.50.19\c$\222\" & Format(Date, "dd/mm/yy") & "\"
strTargetDir = "\\192.168.50.19\c$\222\" + Format(Date, "dd-mm-yyyy") + " XXXX \"
Dim strTargetDir As String 'если речь идёт о VB/VBA
'Dim strTargetDir$ 'аналогично
'Dim strTargetDir 'если речь идёт о VBS
strTargetDir = "\\192.168.50.19\c$\222\" & Date & "\"
strTargetDir = "\\192.168.50.19\c$\222\" & Date$ & "\"
strTargetDir = "\\192.168.50.19\c$\222\" & Format(Date, "dd/mm/yy") & "\"
strTargetDir = "\\192.168.50.19\c$\222\" + Format(Date, "dd-mm-yyyy") + " XXXX \"
Большое вам спасибо все работает.
Теперь такой вопрос в пути:
strTargetDir = "\\192.168.50.19\c$\222\" & Date & "\"
\\192.168.50.19\c$\222\ будет равен например переменной p
как подставить переменную немогу разобраться.
strTargetDir = "\\192.168.50.19\c$\222\" & Date & "\"
\\192.168.50.19\c$\222\ будет равен например переменной p
как подставить переменную немогу разобраться.
большое спасибо заработало.