Computerhilfen.de Logo
Forum
Tipps
News
Frage stellen

Erlaubnis Verweigert + CopyFile in vbscript

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.

<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 habe
Gruß Puejo
und danke schonmal fürs angucken
« Java: Programm um Dateien umzubenennenLauflicht auf Relaiskarte mit Vorgabe des Bitmusters »
 

Schnelle Hilfe: Hier nach ähnlichen Fragen und passenden Tipps suchen!

Fremdwörter? Erklärungen im Lexikon!
Quellcode
Ein Quellcode, auch als Quelltext bekannt, bezeichnet einen unkompilierten Programm-Code einer Software. Der Quellcode ist meist in einer der verbreiteten Programmierspra...

Unicode
Ein Unicode ist ein "Einheitsschlüssel", der als internationaler Standard gilt. Unicode ist ein digitaler Zeichensatz zur Darstellung von weitestgehend jedem Schrift...

QR-Code
Die Abkürzung QR steht für "Quick Response" und besteht aus einer quadratischen Matrix mit schwarzen und weißen Punktren. Zudem sind auch Striche zu sehen...