Advertisement
Advertisement
| 07.02.2008 at 07:56PM PDT, ID: 23535731 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: |
Function Main()
Dim oShell
Set oShell = CreateObject ("WScript.shell")
oShell.run """C:\Program Files\WinRar\WinRar.exe"" X -o+ ""E:\DATA_SOURCE\LLAS\LLASDATA\ldtran.zip"" E:\DATA_SOURCE\LLAS\LLASDATA\Extracted\ARCHIVE\LDTRAN\"
Set oShell = Nothing
Main = DTSTaskExecResult_Success
End Function
|