Problemer med MoveFile

Nu er det lang tid siden jeg har rodet med vb-script, men du kunne gøre følgende;

on error resume next
FSO.MoveFile \"p:\\pdf\\a*.pdf\", destination

Jeg ved at det måske ikke er den rigtige løsning da man så ikke kan se hvilke fejl, der muligvis opstår senere.

Men hvis du lægger det ud i en ekstern funktion, så vil din fejlhåndtering kun være lokal.

FlytFil filnavn, dest

Function FlytFil

  on error resume next
  FSO.MoveFile \"p:\\pdf\\a*.pdf\", destination

end function

Alternativt kan du se om der er filer i folderen først

objFolder = FSO.GetFolder \"p:\\pdf\\\"

If objFolder.Files.Count > 0 Then
  FSO.MoveFile \"p:\\pdf\\a*.pdf\", destination
End If

Undskyld den eksterne funktion vil selvfølgelig være:

FlytFil

Function FlytFil

  on error resume next
  FSO.MoveFile \"p:\\pdf\\a*.pdf\", destination

end function

Løsningen er nu ikke så langt fra enda!

Fejlhåndteringen er ikke noget problem i dette tilfælde, da scriptet kun skal flytte rundt på nogle filer

ALK