Erlaubnis verweigert

From: Ingo Strohm (i.strohm_at_feengrotten.de)
Date: 06/22/04


Date: Tue, 22 Jun 2004 11:12:46 +0200

Hallo,

mit Hilfe dieser Group habe ich folgendes Script erstellt:

Dieses Script läuft in einer Testumgebung tadellos.

In der "Arbeitsumgebung" kommen Fehler, sobald im Quellordner: nFold =
("e:\jun-2004\") neue Dateien hinzukommen.

(Zur Info dieser Ordner ist gemappt und schreibgeschützt für den PC der die
Bilder "holt".)

Fehler: Zeile 18 Zeichen 4 -> unten mit Fehler markiert
            Erlaubnis verweigert, Code 800A0046 Quelle Laufzeitfehler

Der Ordner c:\zeige ist lokal, Vollzugriff und um "allen" aus dem Wege zu
gehen als lokaler Admin angemeldet.

Der Quellordner ist über ein LAN auf einer W98 Maschine.

Ich hoffe das ihr helfen könnt,

Gruss Ingo

############################################################################
######################

Option Explicit

Const MIN = "n" ' Konstanten immer als Erstes definieren

Dim WSHShell, fso
Dim nFold, ZielFolder
Dim file, oFold

Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ZielFolder = fso.GetFolder("c:\zeige\")

deleteAllOldFiles(ZielFolder)

Sub deleteAllOldFiles(oFold)

 For Each file in oFold.Files
   file.Delete
<==== Fehler
 Next

End Sub

nFold = ("e:\jun-2004\")

Call CopyFiles(fso.GetFolder(nFold))

Sub CopyFiles(fsoFolder)

For Each file in fsoFolder.Files

If DateDiff(MIN, file.DateCreated, Now) <= 60 Then

file.Copy fso.BuildPath("c:\zeige\", file.Name)

End If

Next

End Sub

wshshell.run "c:\Progra~1\IrfanV~1\i_view32.exe /slideshow=c:\zeige"
WScript.Sleep 600000
WSHShell.AppActivate "IrfanView"
WSHShell.Sendkeys "%{F4}"
wshshell.run "c:\tv_show.vbs"
WScript.Quit