Application.FileSearch fejler
Jeg har problemer med Application.FileSearch ikke virker på alle PC'er men kun på nogle, er der noget med windows installation der skal opdateres, eller den fil der skal bruges ikke er på den forventet plads.Private Sub cmdKillFile_Click()
Set fs = Application.FileSearch
Dim Parth1 As String
Dim Con1 As String
Dim Content As String
Parth1 = ImageParth
With fs
.LookIn = Parth1
.FileName = "*.*"
If .Execute > 0 Then
MsgBox "There were " & .foundfiles.Count & _
" file(s) found."
For i = 1 To .foundfiles.Count
Con1 = InaktivImage(Mid(.foundfiles(i), 42))
If Con1 <> "OK" Then
If MsgBox("Slet fil.: " & Mid(.foundfiles(i), 42), vbYesNo) = vbYes Then
Kill .foundfiles(i)
End If
End If
Next i
Else
MsgBox "There were no files found."
End If
End With
Me.txtInaktiveImage.Value = Content
End Sub