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, 2479 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 ..
Ähnliche Inhalte
Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(34)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Heiß diskutierte Inhalte
Webbrowser
Windows 7 unbeliebte Internetseite sperren (15)

Frage von Daoudi1973 zum Thema Webbrowser ...

ISDN & Analoganschlüsse
gelöst Splitter - RJ45 zu RJ11? (13)

Frage von Waishon zum Thema ISDN & Analoganschlüsse ...

LAN, WAN, Wireless
gelöst Suche Firmware Image für Cisco Aironet 1252 (10)

Frage von Herbrich19 zum Thema LAN, WAN, Wireless ...

Netzwerke
VLAN Verständnissproblem (9)

Frage von Dragan123 zum Thema Netzwerke ...