Visual Basic

Function FLZ(length, number)
    Dim temp
    ' Generate a string of zeros the length we need, then append the number
    ' length = 5 and number = 232 would be "00000232"
    temp = String( length, "0" ) & number
    ' Grab the length of the string we need to return
    ' length = 5 would return "00232"
    FLZ = Right( temp, length )
End Function

Filename = FLZ(2, Month) & FLZ(2, Day) & "-" & FLZ(2, Hour) & FLZ(2, Minute) & FLZ(2, Second)

KreativeKai wrote:

The server does not have Excel on it

KreativeKai wrote:

Is there a way to get around loading Excel on the server?

' Setup the BackgroundWorker object and start the work somewhere...
BackgroundWorker1.WorkerReportsProgress = True
BackgroundWorker1.WorkerSupportsCancellation = True
BackgroundWorker1.RunWorkerAsync()
 
Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork()
    ' Get a reference to the BGW that called this
    Dim bgw As BackgroundWorker = CType(sender, BackgroundWorker)
 
    ' Do some long running task about a million times...
    For I As Integer = 1 to 1000000
        ' Check to see if we've been cancelled
        If bgw.CancellationPending Then
            e.Cancel = True
            Exit For
        End If
 
        ' Do something useful here...
 
        bgw.ReportProgress(i / 10000)   ' Reduce i to the range of 0 to 100.
    Next
    e.Result = whatever ' Return whatever the result of this work is supposed to be.
End Sub
 
Private Sub BackgroundWorker1_ProcessChanged(ByVal sender As Object, ByVal e As ProgressChangedEvent) Handles BackgroundWorker1.ProgressChanged
    ' Do something usefull with the progress
    ProgressBar1.Value = e.ProgressPercentage
End Sub