VBA

Jeg har nu lavet følgende makro til at finde ud af om der er nogle dokumenter i den pågældende Drev, der er oprettet af en userinitials. Den fungér godt. Det jeg nu mangler er at kunne flytte/kopier pågældende dokumenter til den mappe der har det samme userinitials.

Er der nogle der kan hjælpe mig med det og dermed redde min julefrokost?



Sub Flyt()
Dim intcount
Dim svar As String
'Dim Path As Variable
Dim initi As String
svar = InputBox("Indtast dine initialler?", "Initialler...")
ChangeFileOpenDirectory ("P:\")
With Application.FileSearch
.LookIn = "P:\"
.Execute
.FileType = msoFileTypeWordDocuments
    If Application.UserInitials = svar Then
        MsgBox "......OK......"
            Else
            MsgBox "Der er ingen filer."
            Exit Sub
    End If

    If .Execute() > 0 Then
        MsgBox "Der er fundet ialt " & .FoundFiles.Count & " filer."

        For intcount = 1 To .FoundFiles.Count
        MsgBox "Navnet på dem er følgende: " & .FoundFiles(intcount)
        Next intcount
       
    End If
End With
End Sub

Prøv at se på disse her i hjælpen

MoveFile Method
This method allows moving files between volumes only if supported by the operating system.

Move Method (Core VBA)
The results of the Move method on a File or Folder are identical to operations performed using FileSystemObject.MoveFile or FileSystemObject.MoveFolder. You should note, however, that the alternative methods are capable of moving multiple files or folders.

Det har jeg også gjort. Og jeg får Run-time error '438'
.MoveFile ("P:\"), ("P:\jja\") hvor ("P:\") er source og ("P:\jja\") er destination.

438 = Object doesn't support this property or method
Du må bruge det forkert....!