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

Visual Studio Datein älter x Tage löschen

Frage Entwicklung Visual Studio

Mitglied: BadFsaadKl

BadFsaadKl (Level 1) - Jetzt verbinden

29.06.2010 um 10:22 Uhr, 3470 Aufrufe

Moin,

ich möchte auf einem Windows-Server in mehreren Pfaden nach Dateien bestimmter Endungen suchen, welche ein definiertes Alter überschreiten.
Das ganze soll via einer INI-Datei gesteuert werden.
Verarbeitung soll in einer EXE erfolgen.

Soweit funktioniert das Programm ja, ich habe in der INI Datei, mehrere Pfade, DateiTypen angegeben(Durch abfrage nach Stichwörtern), welche auch richtig ausgelesen werden.

Nur im Bereich des "IO.Directory.GetFiles" liefert das Programm mir immer nur den Letzten Pfad, und überspringt die ersten Verzeichnisse.
Denk mal das das Array irgendwie noch falsch ist.

Hier mal der Aufbau der INI-Datei:

Pfad;C:\Test\Ordner 01
Pfad;C:\Test\Ordner 02
Pfad;C:\Test\Ordner 03
Pfad;C:\Test\Ordner 04
Intervall;1
Typ;txt
Typ;xls

Das Programm sieht wie folgt aus:

01.
'########################################## 
02.
'Prüfen auf Dateien älter x zu aktuellem Datum 
03.
'Source = INI-Datei mit zu prüfenden Angaben 
04.
'(c) 22.06.2010 
05.
 
06.
Imports System 
07.
Imports System.IO 
08.
Module Win_Rotator 
09.
 
10.
    Sub Main() 
11.
        Dim Source As String = Directory.GetCurrentDirectory() & "\Win_Rotator.ini" 
12.
        Dim StreamReader As StreamReader = File.OpenText(Source) 
13.
        Dim LineInput As String 
14.
        Dim Typ() As String 
15.
        Dim Intervall, p, t As Integer 
16.
        Dim Pfad() As String 
17.
        Dim sFile() As String 
18.
        Dim Fileinfo As System.IO.FileInfo 
19.
        '########################################## 
20.
        'Lesen der INI Datei 
21.
        p = 0 
22.
        t = 0 
23.
        LineInput = StreamReader.ReadLine() 
24.
        Do While (LineInput <> Nothing) 
25.
            'MsgBox(LineInput & Chr(13)) 
26.
            If Left(LineInput, 5) = "Pfad;" Then 
27.
                ReDim Preserve Pfad(p + 1) 
28.
                Pfad(p) = (Right(LineInput, Len(LineInput) - 5)) 
29.
                p += 1 
30.
            End If 
31.
            If Left(LineInput, 4) = "Typ;" Then 
32.
                ReDim Preserve Typ(t + 1) 
33.
                Typ(t) = (Right(LineInput, Len(LineInput) - 4)) 
34.
                t += 1 
35.
            End If 
36.
            If Left(LineInput, 10) = "Intervall;" Then 
37.
                Intervall = (Right(LineInput, Len(LineInput) - 10)) 
38.
            End If 
39.
 
40.
            LineInput = StreamReader.ReadLine() 
41.
        Loop 
42.
        p = 0 
43.
        t = 0 
44.
        Do While p <= UBound(Pfad) - 1 
45.
            'MsgBox(Pfad(p)) 
46.
            p = p + 1 
47.
        Loop 
48.
        Do While t <= UBound(Typ) - 1 
49.
            MsgBox(Typ(t)) 
50.
            t = t + 1 
51.
        Loop 
52.
        'Console.WriteLine("Pfad: " & Pfad & ", Intervall: " & Intervall & ", Typ: " & Typ) 
53.
        '########################################## 
54.
        'Auslesen der Dateien 
55.
        'Dim sFile() As String 
56.
 
57.
        p = p - 1 
58.
        t = t - 1 
59.
        sFile = IO.Directory.GetFiles(Pfad(p)) 
60.
        Dim counter As Integer = 0 
61.
        Do Until counter = sFile.Length 
62.
            Fileinfo = New System.IO.FileInfo(sFile(counter)) 
63.
            'Console.WriteLine(Fileinfo.Name) 
64.
            'Console.WriteLine(Fileinfo.LastWriteTime.ToString) 
65.
            counter += 1 
66.
            If Date.Now.Subtract(Fileinfo.LastWriteTime()).TotalDays >= Intervall Then 
67.
                Dim Check As String 
68.
                Check = Fileinfo.Extension 
69.
                If Check = "." & Typ(t) Then 
70.
                    Console.WriteLine(Fileinfo.FullName) 
71.
                    'System.IO.File.Delete(Fileinfo.FullName) 
72.
                End If 
73.
            Else 
74.
                'Console.WriteLine("Keine Datei gefunden!") 
75.
            End If 
76.
 
77.
        Loop 
78.
        '########################################## 
79.
        Console.ReadLine() 
80.
    End Sub 
81.
 
82.
End Module
Nur die Variable sFile nimmt immer nur den letzten Ordner.

Kann mir hier jemand helfen ?

Danke
Ähnliche Inhalte
Datenbanken
gelöst SQL Abfrage mit Visual Studio (5)

Frage von specialuser zum Thema Datenbanken ...

Windows Server
Dateien löschen mit Forfiles, welche älter als x Tage sind (4)

Frage von kellbidden zum Thema Windows Server ...

Visual Studio
Microsoft Visual Studio kommt für macOS (1)

Link von Frank zum Thema Visual Studio ...

IDE & Editoren
gelöst Visual Studio 2017RC - Intellisense autocomplete? (2)

Frage von Highend01 zum Thema IDE & Editoren ...

Neue Wissensbeiträge
Linux Netzwerk

Ping und das einstellbare Bytepattern

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(3)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
SAN, NAS, DAS
MSA 2050 RAID Konfig (24)

Frage von Leo-le zum Thema SAN, NAS, DAS ...

Netzwerkmanagement
Windows Server 2008 R2: "netsh reset" nicht verfügbar? (10)

Frage von RickTucker zum Thema Netzwerkmanagement ...

Netzwerkmanagement
Suche eine Software für Cloudverwaltung (6)

Frage von tsunami zum Thema Netzwerkmanagement ...

Google Android
Musik Wiedergabe am PC mit Smartphone über Bluetooth steuern (5)

Frage von justlukas zum Thema Google Android ...