Søgning i valgfri folder

Tilføj denne linie først i koden (lige efter Sub)

soeg = Application.Dialogs(wdDialogFileOpen).Display

Ret så linien med lookin til: .LookIn = soeg

Nej - det vil ikke virke.

Application.Dialogs(wdDialogFileOpen).Display returnerer om der er valgt en fil eller ej - ikke stien.

Jeg arbejder på sagen, da det ikke bare er lige sådan *S*

Her er den

Dim sName As String
With Dialogs(wdDialogFileOpen)
    If .Display <> 0 Then
        sName = CurDir & "\" & .Name
    End If
End With
MsgBox sName

Hej jkrons. Jeg får tilsyneladende hele mit drev søgt igennem, og ikke kun den folder jeg åbnede.

Jeg ser spændt frem til en løsning.

Sub Søg()

Dim sName As String
With Dialogs(wdDialogFileOpen)
    If .Display <> 0 Then
        sName = CurDir & "\" & .Name
    End If
End With

Position = InStrRev(sName, "\")

Søg = Mid(sName, 1, Position)

Set fs = Application.FileSearch
With fs
    .LookIn = Søg
    .FileName = "cmd*.*"
    If .Execute > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
        " file(s) found."
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
    Else
        MsgBox "There were no files found."
    End If
End With

End Sub

Helt uden fejl (håber jeg) *S*
Sub Søger()

Dim sName As String
With Dialogs(wdDialogFileOpen)
    If .Display <> 0 Then
        sName = CurDir & "\"
    End If
End With

Set fs = Application.FileSearch
With fs
    .LookIn = Søg
    .FileName = "cmd*.*"
    If .Execute > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
        " file(s) found."
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
    Else
        MsgBox "There were no files found."
    End If
End With

My mistake.  Som rvm har korrigeret allerede søger min kode gennem hele drevet, hvis ikke du aktivet foretaget et valg i dialogboksen.

Går istå på .lookin = søg

Måske skulle de tilføje de to linjer rvm har udeladt i anden omgang:

Position = InStrRev(sName, "\")
Søg = Mid(sName, 1, Position)

ja - det går lidt hurtigt nogle gange *S*

Erstat "søg" med "sName"

Ja så virker det.
Hvorfor kan jeg ikke komme ind og give point og afslutte spørgsmålet??

Fordi, du har afvist svarene - og ingen har svaret siden, men kun lagt kommentarer.

Et svar *S*

Tak for hjælpen