sti til db

Der finde en fin metode med at bruge et filesystemobject men den har jeg ikke lige her så måske kan du bruge denne.

  Dim intX As Integer   
  Dim strTemp As String 
  intX = InStr(strFileName, "\")             
  Do While intX <> 0
    strTemp = strTemp + Mid(strFileName, 1, intX)
    strFileName = Right(strFileName, (Len(strFileName) - intX))
    intX = InStr(strFileName, "\")
  Loop
MsgBox strTemp

altså istedet for:
C:\Documents and Settings\DKKRIFER\Skrivebord\15052005.mdb
vil jeg gerne have dette ud:
C:\Documents and Settings\DKKRIFER\Skrivebord\

jeg vil ikke bare lave en right(currentdb.name, xx) fordi ovennævnte streng ikke er den samme hvergang db'en startes op...

og hvad er det lige det der sker i den?

Den begynder fra venstre og looper dit filnavn indtil sidste \ og gemmer det i strTemp.

Jeg skal lige checke om jeg har koden til den anden et sted.

Eller kan du prøve at checke
http://tutorial-web.com/asp/fso/filesystem.asp?property=GetAbsolutePathName

der står syntaxen - så kan du prøve at bygge den selv

UPS - det var http://tutorial-web.com/asp/fso/filesystem.asp jeg ville henvise til

Denne kan vel bruges? :)

Set fso = CreateObject("Scripting.FileSystemObject")
fso.GetFileVersion(directoryname)

Jeg vil umiddebart foreslå GetParentFolderName

ja, det er også den jeg benytter...

læg lige et svar gutter... i må sgu dele...

Her er den jeg selv bruger - dog skal du være OBS på at den ikke returnerer det sidste \

Public Function fhpFile_Path(strFileName As String) As String
' -----------------------------------------------------------------------------------
' Purpose    : Return path from an absolute filename
' Parameters :
' Returns    : String
' Created    : 02-20-03 HP
' Modified  :
' Remarks    :
' -----------------------------------------------------------------------------------
On Error GoTo Error_fhpFile_Path
  Dim strTemp As String
  Dim fsObj                                                    'Filesystem object

  Set fsObj = CreateObject("Scripting.FileSystemObject")
  strTemp = fsObj.GetParentFolderName(strFileName)

Exit_fhpFile_Path:
  fhpFile_Path = strTemp
  Exit Function

Error_fhpFile_Path:
  Select Case Err.Number
    Case 2501
    Case 3021
    Case 53                                                    'File not found
    Case Else
      MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error in procedure 'fhpFile_Path'"
  End Select
  Resume Exit_fhpFile_Path

End Function

Er det ikke meget nemmere og bruge.
CurrentProject.Path & "\"