hallo ich habe folgendes problem und weis einfach nicht weiter
ich muss eine script in vbs schreiben das dateine von netztlaufwerk auf ein anderes schreibt allerdings bekomme ich immer die Fehlermeldung Erlaubnis Verweigert.
dort wo ich meinen copy Befehl ausführen möchte.
ich dachte erst ich hätte nicht genügend rechte oder so ... habe ich aber.
vielleicht hat jemand von euch ja eine idee.
Code: [Auswählen]
<html>
<head>
<title>
Verzeichnis auslesen
</title>
<HTA:APPLICATION ID="TheApp"
APPLICATIONNAME="Hello"
/>
<head>
<body>
<script LANGUAGE=VBS>
option explicit
Dim myshell, FileSyst, Verz, VerzListe, getf, file, oexec, fso, f, VonFile, pos,datum , str
Function OrdnerErstellen()
Set Filesyst = Createobject("Scripting.FileSystemObject")
'++++++++++ Ordnernamen aus datum und rest zusammenstellen ++++++++++
datum = Date - 21
str = "zerfservice_bis_"&mid(datum,7,4)&"_"&mid(datum,4,2)&"_"&mid(datum, 1,2)
'++++++++++ Überprüfen ob der Ordner für die dateien die zu alt sind schon existiert ++++++++++
If Not Filesyst.FolderExists ("s:\Sicherung\archiv\zerfservice\"&str) then
Filesyst.Createfolder("s:\Sicherung\archiv\zerfservice\"&str)
If Filesyst.FolderExists("s:\Sicherung\archiv\zerfservice\"&str) then
Set getf = Filesyst.GetFolder("q:\Daniel\Umgebung\test2")
Set file = getf.Files
For Each VonFile in file
If VonFile.DateCreated < Date -21 then
Filesyst.CopyFile "q:\Daniel\Umgebung\test2\"&VonFile.name , "s:\Sicherung\archiv\zerfservice\"&str
Filesyst.DeleteFile VonFile.name
End If
Next
End If
End If
End function
OrdnerErstellen
</script>
</body>
</html>hier ist mal der code vielleicht kann mir einer sagen ob ich was übersehen habeGruß Puejo
und danke schonmal fürs angucken
