tekst til dato

Er filen gemt sådan her: DDMMÅÅÅÅttmmss så kan du gøre sådan her:

filnavn = "18112003200345.xxx"
datoStr = left(filnavn,2) & "-" & Mid(filnavn,3,2) & "-" & Mid(filnavn,5,4) & " " & Mid(filnavn,9,2) & ":" & Mid(filnavn,11,2) & ":" & Mid(filnavn,13,2)

kan ikke få den til at fungere som et ordentlig datoformat... bruger samme script som jeg normalt har brugt, til DateCreated hvor det virkede fint... men når jeg gør som du siger virker det ik

Så kan du bruge CDate omrkring så datoen formateret som en dato.:

datoStr = CDate(left(filnavn,2) & "-" & Mid(filnavn,3,2) & "-" & Mid(filnavn,5,4) & " " & Mid(filnavn,9,2) & ":" & Mid(filnavn,11,2) & ":" & Mid(filnavn,13,2))

er det sådan noget du tænker på??

den melder bare "typer stemmer ikke overens: 'CDate'"

hvilket dato format køre serveren?
og er der lagt 0 ind i filnanvet hvis dagen eksempelvis er 7?

ja der bliver lagt 0 ind.... den køre med datoformat på samme måde som vis i mit spørgsmål

Prøv lige dette:

datoStr = CDate(left(filnavn,2) & "-" & Mid(filnavn,3,2) & "-" & Mid(filnavn,5,4)) & " " & CDate(Mid(filnavn,9,2) & ":" & Mid(filnavn,11,2) & ":" & Mid(filnavn,13,2))

nu melder den fejl igen i det script jeg bruger før...
den laver fejl ved CDbl... den lilie hvor jeg har sat følgende '**her**


'denne funktion er en omskrevet version af dark-mixers oprindelige funktion
'fra ekspertens spg 325656 ( http://www.eksperten.dk/spm/325656 )
Function ShellSort(vArray)
Dim TempVal
Dim TempFil
Dim i, GapSize, CurPos
Dim FirstRow, LastRow, NumRows
FirstRow = LBound(vArray)
LastRow = UBound(vArray)
NumRows = LastRow - FirstRow + 1
Do
  GapSize = GapSize * 3 + 1
Loop Until GapSize > NumRows
Do
  GapSize = GapSize \ 3
  For i = (GapSize + FirstRow) To LastRow
  CurPos = i
  TempVal = vArray(i)


  TempFil = arrFiler(i)


  Do While CompareResult(CDbl(vArray(CurPos - GapSize)),CDbl(TempVal)) '**her**
    vArray(CurPos) = vArray(CurPos - GapSize)

    arrFiler(CurPos) = arrFiler(CurPos - GapSize)

    CurPos = CurPos - GapSize
    If (CurPos - GapSize) < FirstRow Then Exit Do
  Loop
  vArray(CurPos) = TempVal

  arrFiler(CurPos) = TempFil

  Next
Loop Until GapSize = 1
End Function

Jeg har lige fået det til at virke ...så du får dine proint ... selvfølgelig... og takker for hjælpen ;o)