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

Relevant Pages

  • Re: Übergabe von E-Mail-Adressen an Outlook
    ... Sub Send_Word_Antrag_e ... End Sub ... Dim iAntwort As Integer ... Set olAnw = GetObject ...
    (microsoft.public.de.word.vba)
  • Re: Verzeichnis löschen
    ... Sub ShellDelete ... End With ... Dim olApp As Outlook.Application ... Set olApp = CreateObject ...
    (microsoft.public.de.excel)
  • Re: Automatisches Anlegen von Ordnern, Freigaben, Berechtigungen
    ... Public intAnzahlOU, intCountDCs, bOUIsSet ... Sub Window_onLoad ... End Sub ... Set objConnection = CreateObject ...
    (microsoft.public.de.german.windows.server.general)
  • Re: 1 Makro aus 8
    ... was ich da genau mit dem Set xxx = Nothing machen muss? ... > - For Each objTmp In objFolder.Items ... > Dim objNamespace As NameSpace ... > End With ...
    (microsoft.public.de.word.vba)
  • Re: Outlook und IMAP
    ... Private Sub Application_Startup ... End Sub ... Dim mpSess As MAPI.Session ... Set Items = GetFolder.Items ...
    (microsoft.public.de.outlook)