[n_way]

Nema veze, riješio sam problem. Ako nekog zanima kako:

Dim sDate As String = "12.11.2005 17:15:46"
Dim dte As DateTime = CDate(sDate)
Dim dteFormat As New System.Text.StringBuilder()

With dteFormat
       .Append(dte.Day.ToString)
       .Append(dte.Month.ToString)
       .Append(dte.Year.ToString.Substring(2))
       .Append("_")
       .Append(dte.Hour.ToString)
       .Append(dte.Minute.ToString)
       .Append(dte.Second.ToString)
End With
Label1.Text = dteFormat.ToString()

ili još bolje, kao funkcija:

Public Function f_Date(ByVal datum As String) As String
        Dim sDate As Date = CDate(datum)
        With sDate
            Return String.Format("{0}{1}{2}_{3}{4}{5}", _
                .Day.ToString("00"), .Month.ToString("00"), .Year.ToString.Substring(2), _
                .Hour.ToString("00"), .Minute.ToString("00"), .Second.ToString("00"))
        End With
    End Function

Može lock.