K
<P>Why the following script does not working on the MP370, in ProTool CS6.0 there are no errors or warnings, but system generates following error: 20010 ActiveX - can't create object!
<P>here is the VB script:
<PRE>
Dim fs, f ,s, fld, ss
Set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set fld = fs.GetFolder("\\Pap\Zoran-d\kruno")
ss = fld.name
If Not IsEmpty(ss) Then
Set f = fs.GetFile("c:\FLASH\PROIZVODNJA0.csv")
s = f.name
file_size = f.size
If Not IsEmpty(s) Then
If (f.size > 1024) Then
datum = FormatDateTime(f.DateLastModified,vbShortDate)
SAT =CStr(Hour(Time))
MIN = CStr(Minute(Time))
f.copy "\\Pap\Zoran-d\kruno\" & datum & " - vrijeme(h-min) " & SAT & "-" & MIN & " - PROIZVODNJA0.csv"
f.delete true
End If
End If
End If
</PRE>
<P>here is the VB script:
<PRE>
Dim fs, f ,s, fld, ss
Set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set fld = fs.GetFolder("\\Pap\Zoran-d\kruno")
ss = fld.name
If Not IsEmpty(ss) Then
Set f = fs.GetFile("c:\FLASH\PROIZVODNJA0.csv")
s = f.name
file_size = f.size
If Not IsEmpty(s) Then
If (f.size > 1024) Then
datum = FormatDateTime(f.DateLastModified,vbShortDate)
SAT =CStr(Hour(Time))
MIN = CStr(Minute(Time))
f.copy "\\Pap\Zoran-d\kruno\" & datum & " - vrijeme(h-min) " & SAT & "-" & MIN & " - PROIZVODNJA0.csv"
f.delete true
End If
End If
End If
</PRE>