- #1
J
je77
Mitglied
Themenersteller
- Dabei seit
- 27.10.2018
- Beiträge
- 5
- Reaktionspunkte
- 0
Hallo,
ich habe einen Usb-stick an meinen Router angeschlossen (Netzwerkspeicher NWS).
Ich ziehe einen Ordner auf das Script damit der Pfad übergeben wird.
Diesen Ordner möchte ich auf den NWS verschieben.
Ich bekomme allerdings die Meldung "Erlaubnis verweigert".
Ich kann an den Pfaden des Movefolder-Befehls keinen Fehler finden...
Vielleicht könnte mir jemand helfen?
Darüber würde ich mich sehr freuen...
Viele Grüße, je77
ich habe einen Usb-stick an meinen Router angeschlossen (Netzwerkspeicher NWS).
Ich ziehe einen Ordner auf das Script damit der Pfad übergeben wird.
Diesen Ordner möchte ich auf den NWS verschieben.
Ich bekomme allerdings die Meldung "Erlaubnis verweigert".
Ich kann an den Pfaden des Movefolder-Befehls keinen Fehler finden...
Vielleicht könnte mir jemand helfen?
Darüber würde ich mich sehr freuen...
Viele Grüße, je77
Code:
Dim Jahr,Monat,Tag,Datum,fso,args,x,foname,finame
Set fso = CreateObject("Scripting.FileSystemObject")
Set wshshll=CreateObject("WScript.Shell")
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=Right(x,Len(x)-InStrRev(x,"\"))
fso.MoveFolder x, pfad & "\" & Datum & "\" & foname
End If
Next