Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Script erstellen

Frage Entwicklung

Mitglied: Gansterjo2

Gansterjo2 (Level 1) - Jetzt verbinden

05.09.2012 um 15:12 Uhr, 2452 Aufrufe, 2 Kommentare

Hallo zusammen

Hier geht es darum, dass ich ein Script erstellen sollte, beidem es darum geht, dass es bei der Ausführung Dateien löscht, welche innerhalb einer Woche nicht mehr bearbeitet werden. Dieses Visual Basic Script habe ich, jedoch funktioniert es aus irgend welchem Grund nicht wirklich...

Das Script sieht so aus:
01.
  Dim  objFS, myPath, myFolder, myFile, olddate 
02.
   
03.
  myPath = InputBox("Bitte Pfad eingeben:", "Dateien älter als 7 Tage löschen") 
04.
   
05.
  If myPath = "" Then Call DisplayInfo:  Wscript.Quit (1) 
06.
   
07.
  set objFS = CreateObject("Scripting.FilesystemObject") 
08.
   
09.
  If Not objFS.FolderExists(myPath) Then Call DisplayInfo:  Wscript.Quit (1) 
10.
   
11.
  set myFolder = objFS.GetFolder(myPath) 
12.
   
13.
  olddate = DateAdd("d", -7, Now)  '7 Wochen 
14.
   
15.
  for each myfile in myFolder.Files 
16.
    If myFile.DateLastModified < olddate then objFS.DeleteFile myFile.Path 
17.
  next  
18.
   
19.
  Wscript.Quit (0) 
20.
   
21.
  Sub DisplayInfo 
22.
    MsgBox "Usage: delmyordner.vbs [FolderPath]", vbExclamation, "Missing Argument" 
23.
  End Sub 
24.
 
Ich hoffe Ihr könnt mir helfen...

Freundliche Grüsse

Gansterjo2
Mitglied: 60730
05.09.2012, aktualisiert um 15:49 Uhr
Servus Gangsterjoe,

naja script erstellen - ist eine weite Prärie?
edit
wobei der http://www.administrator.de/forum/vbs-Dateien-l%C3%B6schen-die-%C3%A4lt ... Ersteller] ja hier zu finden wäre. kam mir gleich so didimäßig vor
/edit
Dann "aus irgendeinem Grund" sehr eindeutige Fehlerbeschreibung?

So mal kurzs übern Daumen gepeilt, sehe ich da nix schlimmes dran, aber eines sehe ich gleich unter Ubuntu und OSx läuft das natürlich nicht.
Bitte warten ..
Mitglied: Gansterjo2
05.09.2012 um 15:47 Uhr
Hallo TimoBeil

Oh ja stimmt... Genaue Beschreibung fehlt...

Also diese Script, welches im Quellcode steht, läuft nur unter Windows und ist ein VBScript. Nun ich hab das Script nochmals ausgeführt... es hat jetzt funktioniert, ich hab die Testumgebung neu gesstartet...

Ich hab mich übertan. Aber trotzdem Danke.

Fg Gansterjo2
Bitte warten ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Heiß diskutierte Inhalte
Windows Server
DHCP Server switchen (25)

Frage von M.Marz zum Thema Windows Server ...

SAN, NAS, DAS
gelöst HP-Proliant Microserver Betriebssystem (14)

Frage von Yannosch zum Thema SAN, NAS, DAS ...

Grafikkarten & Monitore
Win 10 Grafikkarte Crash von Software? (13)

Frage von Marabunta zum Thema Grafikkarten & Monitore ...

Windows 7
Verteillösung für IT-Raum benötigt (12)

Frage von TheM-Man zum Thema Windows 7 ...