Hvorfor åbner den ikke filen?

Hvad er det du gerne vil? Finde alle filer på P der hedder test?

Nej, jeg vil finde alle filer på placeringen p:\test hvor der står title i feltet titel. Det finder den også helt fint, men når jeg så markerer en af filerne og klikker åbn (eller sobbeltklikker på en) så åbner den ikke filen??

Hvis jeg bruger WdDialogFileOpen er der ingen problemer med at åbne, men så kan jeg ikke søge på oplysninger i titelfeltet.

øv, øv og tre gang eøv. Det er en kendt fejl at det ikke kan lade sig gøre, og der er vist ingen rigtig fornuftig løsning på problemet

http://support.microsoft.com/default.aspx?scid=kb;en-us;212678

Værsgo - her er løsningen :-)

Function FindFiles(Optional ByVal strPath As String, Optional ByVal strExtension As String) As String


Dim dlg As Dialog
Dim dlgFind As Dialog
Dim strFile As String
Dim strDefaultOpenPath As String


'Get and hang onto the user's default document path
strDefaultOpenPath = _
Application.Options.DefaultFilePath(wdDocumentsPath)


'Evaluate the passed variables to see
'if we need to give them a value
If strPath = "" Then
    'No argument was passed so...
    'Point to default document path
    strPath = strDefaultOpenPath
End If


If strExtension = "" Then
    'No argument was passed so...
    'Point to default Word Document File Type
    strExtension = "*.doc"
End If


'Set the SearchPath
Application.Options.DefaultFilePath(wdDocumentsPath) = strPath


'display common dialog
Set dlg = Dialogs(wdDialogFileOpen)
Set dlgFind = Dialogs(wdDialogFileFind)
With dlg
    .Name = strExtension
    'Did they press Cancel? If so, exit the routine
    Select Case .Display
    Case -1
        'Update the FileFind Dialog
        dlgFind.Update
        strPath = dlgFind.SearchPath
        strFile = dlg.Name
    Case Else
        'Restore the defautl Doc Path
        Application.Options.DefaultFilePath(wdDocumentsPath) = strDefaultOpenPath
        Exit Function
    End Select
End With


'Update our variable with info from the Dialogs
strFile = dlg.Name


'Ensure that the returned path is appropriately padded
'with a separator like \ or :, depending on your system type
If Right(strPath, 1) <> Application.PathSeparator Then
    strPath = strPath & Application.PathSeparator
End If


'concatentate an explicit path-file string
strFile = strPath & strFile


'Restore User settings
Application.Options.DefaultFilePath(wdDocumentsPath) = strDefaultOpenPath


'See the result
FindFiles = strFile


End Function

Sub TestFindFilesWOvalues()


Dim strResult As String

strResult = FindFiles("C:\", "test")
MsgBox strResult

End Sub

men det er uden titelfeltet opdager jeg lige...

ja, nu nærmer vi os, men den søger på filnavn og det skal den ikke. Den skal søge på argumentet (dokumentegenskaben) Title = "title"

arbejder på det ...

Problemet er at Title faktisk ikke er i wdDialogFileFind men faktisk virker...

Den sidste forstod jeg ikke?

JEg har brug for at kunne identificere et dokument (flere dokumenter naturligvis) ved hjælp af to oplysninger der indtastes i en dialogboks. Den ene indtastning bliver til filnavnet når dokumentet gemmes og vil altid være entydig, hvorimod den anden vil kunne figurere i flere dokumenter.

Man skal så kunne finde frem til alle filer der indeholder den anden oplysning.

Nå ja - glemte lige. De to indtastede værdier bliver i dette tilfælde gemt i dokumentegenskaben Title

Her er et groft udkast til en makro, der finder de filer der har titlen "Test". resultatet kunne sættes ind i en listboks, som brugeren kan vælge filen fra, hvorefter den åbnes:

Sub GetFileList()

  Dim oSearch As FileSearch

  ' Change strDirName to the path of the directory for which you want a
  ' listing.
  Dim strDirName As String
  Dim strPrompt As String
 
  strDirName = "C:\"
  strPrompt = strDirName & Chr(13) & Chr(13)
 
  Dim i As Long

  ' Get a reference to the FileSearch object.
  Set oSearch = Application.FileSearch

  With oSearch

      ' Reset the search.
      .NewSearch

      ' Specify the directory that contains the files you want to count.
      ' The variable strDirName is the parameter of the CountAllFiles()
      ' function.
      .LookIn = strDirName

      ' Exclude subfolders.
      .SearchSubFolders = False

      ' Specify what types of files you want to find.
      ' For example, to search for text files change this line to:
      '  .FileName "*.txt"
      .FileName = "*.*"

      ' The Execute command begins the search.
      .Execute

      ' Check to see if any files were found.
      If .FoundFiles.Count > 0 Then

        ' Loop through the files that were found and store the file names
        ' in the variable strPrompt.
        For i = 1 To .FoundFiles.Count
       
                On Error Resume Next
                Dim FileName As String
                Dim DSO As DSOleFile.PropertyReader
                Set DSO = New DSOleFile.PropertyReader
                FileName = .FoundFiles(i)
               
                If Err Then
               
                Err.Clear
                Else
                    With DSO.GetDocumentProperties(sfilename:=FileName)
                        titel = .Title
                    End With
                   
                    If titel = "Test" Then
                        strPrompt = strPrompt & .FoundFiles(i) & Chr(13)
                    End If
                End If
        Next i
      Else
        strPrompt = strPrompt & "No files found."
      End If

      ' Display the file list in a message box.
      MsgBox strPrompt

  End With

End Sub

Følg anvisningerne på denne sidde for at installere og sætte referancen til dso filen:

http://word.mvps.org/FAQs/MacrosVBA/DSOFile.htm

Tror det bliver lige et nummer for avanceret for mig nu. Vil hellere lære de få brugere der har behov for det at bruge søg funktionen tror jeg.

Men mange tak for hjælpen.

/Piphans

Nu har jeg en fil klar, hvis du bare skriver din email :-)

ihh tak - du må gerne sende til netdebat@ofir.dk