ich habe ein VBScript programmiert, das den/die Ordner, die man auf das Skript zieht, um den Pfad zu übergeben, auf meinen
Netzwerkspeicher verschieben soll.
Leider erhalte ich die Meldung "Erlaubnis verweigert". Ich habe gegoogelt, das Skript nach Fehlern durchsucht. Finde den Fehler nicht...
Die Meldung kommt in der Zeile mit dem Movefolder-Befehl.
Vielleicht wäre jemand so freundlich und hilft mir?
Darüber würde ich mich sehr freuen.
Viele Grüße, je77
Dim Jahr,Monat,Tag,Datum,fso,args,x,foname,pfad Set fso = CreateObject("Scripting.FileSystemObject") pfad="X:\Papierkorb" Set args=WScript.Arguments Jahr=year(Date) Monat=Month(Date) Tag=Day(Date) Datum=Jahr & "-" & Monat & "-" & Tag If Not fso.FolderExists(pfad & "\" & Datum) Then fso.CreateFolder(pfad & "\" & Datum) For Each x in args If fso.FolderExists(x) Then foname=Mid(x,InStrRev(x,"\")+1) MsgBox(foname) fso.MoveFolder x, pfad & "\" & Datum & "\" & foname End If Next