Добрый день!
Подскажите пожалуйста синтаксис функции, которая при копировании добавляет в название файла текущую системную дату.

Function Main()

Dim oFSO
Dim sSourceFile
Dim sDestinationFile

Set oFSO = CreateObject("Scripting.FileSystemObject")

sSourceFile = "C:\Balances\Tantana_1.xls"
sDestinationFile = "C:\Tantana_1.xls"

oFSO.CopyFile sSourceFile, sDestinationFile

' Clean Up
Set oFSO = Nothing

Main = DTSTaskExecResult_Success
End Function


Откорректируйте пожалуйста, столкнулся с VB только-только, а время сильно поджимает...

ResidentТа к подойдет?

Dim oFSO
Dim sSourceFile
Dim sDestinationFile
Dim D As String, M As String, Y As String,sysDate As String, dta As Date

dta=Date
D = Day(dta): If Len(D) = 1 Then D = "0" & D
M = Month(dta): If Len(M) = 1 Then M = "0" & M
Y = Year(dta)
sysDate=D & M & Y


Set oFSO = CreateObject("Scripting.FileSystemObject")

sSourceFile = "C:\Balances\Tantana_1.xls"
sDestinationFile = "C:\" & sysDate & "_Tantana_1.xls"

oFSO.CopyFile sSourceFile, sDestinationFile

' Clean Up
Set oFSO = Nothing

Main = DTSTaskExecResult_Success
End Function

ругается на объявление переменных ((
Dim D As String, M As String, Y As String,sysDate As String, dta As Date
PS. уточнение - задача стоИт в написании скрипта в компоненте ActiveX DTS-пакета mssql 2000

HandKotв компоненте ActiveX Script Task


I Have Nine Lives You Have One Only
THINK!

Все четко отработало!
HandKot, спасибо!