Mit allerbedste råd til dig er at du henvender dig direkte til en eller
flere nyhedsgrupper med dit problem. Derved får du kontakt
med en stor gruppe af brugere, som alle hylder det gode gamle "Peer to
Peer" princip hvor man gratis og uforpligtende hjælper
hinanden med at løse diverse problemer.
Det fine i ordningen er både mangfoldigheden og den gensidige kontrol
med at løsningerne er korrekte - utrolig mange øjne følger
med - utrolig mange er parate til at komme frem med erfaringer/viden.
Men ingen er interesserede i at "guldkornene" havner i en eller anden
database, med risiko for en merkantil udnyttelse. Ingen er
interesserede i at arbejde anonymt udenfor grupperne.
Så hvis du savner respons, så er det forklaringen. Der kan selvsagt være
en der har en voldsom skrivekløe - så er spørgsmålet bare
om indholdet er mere værd end kløen.
--
pre
"Javid" <Javid.news@kandu.dk> wrote in message
news:pv3H9.55085$HU.3721322@news010.worldonline.dk...
> Jeg har lavet følgende makro, ved at indtaste sine initialer(User),
> finder de dokumenter der er oprettet af den pågældene userinitialer.
Det
> fungerer fint. Det jeg nu mangler er at kunne kopiere/flytte dem til
(i
> forvejen oprettet) mappe med samme initialer.
>
> Sub Flyt()
> Dim intcount
> Dim svar As String
> Dim initi As String
> svar = InputBox("Indtast dine initialler?", "Initialler...")
>
> 'svar = Application.UserInitials
> 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
> operettet af " & Application.UserInitials & "."
> For intcount = 1 To .FoundFiles.Count
> MsgBox "Navnet på dem er følgende: " & .FoundFiles(intcount)
> initi = .FoundFiles(intcount)
> Next intcount
>
> End If
> End With
> End Sub
>
> Jeg har søgte efter den i hjælpen. Jeg kan simplethen ikke finde ud af
> det.
>
> Er der nogen, der har en forslag.
> Hilsen
>
> Javid
>
> --
> Leveret af:
>
http://www.kandu.dk/
> "Vejen til en hurtig løsning"
>