Top-Themen

Aktuelle Themen (A bis Z)

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

Frage Entwicklung VB for Applications

Fehlerbehandlung beim Einlesen von Verzeichnisbäumen und Dateien

Mitglied: Easy70

Easy70 (Level 1) - Jetzt verbinden

02.10.2012, aktualisiert 18:43 Uhr, 2734 Aufrufe, 1 Kommentar

Folgendes Problem: ich möchte ganze Verzeichnisbäume einlesen, die Verzeichnisse auslassen, die beim
Einlesen Fehler verursachen (z.Bsp. wegen Zugriffsberechtigung), und dabei bestimmte Dateien (zur weiteren
Bearbeitung) in einer ListBox anzeigen.
Bei meiner Methode (s.u.) springt mir das Programm aber beim ersten Fehler aus der (Einlese-)Schleife und
überspringt die restlichen Verzeichnisse. Habe mich stundenlang vergoogelt, aber leider keine passende
Lösung gefunden. Hat hier vielleicht jemand eine rettende Idee?



Code:
01.
  Dim TempStr As String'..................' aus Verzeichnis eingelesene Datei 
02.
  Dim Counter As Integer = 0..................' allg. Zähler 
03.
  Dim FileCounter As Integer = 0..................' Zähler für gefundene Dateien 
04.
  Dim MaxFileAmount As Integer = 40                                .........' Max.Anzahl der zu vergl. Dateien 
05.
  Dim CompareFile() As String = {"File1.txt", "File2.txt" (...) }  .........' Array mit den zu findenden Dateien 
06.
  Dim SearchDir As String = "c:\"                                  .........' zu durchsuchendes Verzeichnis 
07.
				 
08.
   Try 
09.
     For Each File As String In Directory.GetFiles(SearchDir, "*.*", SearchOption.AllDirectories) 
10.
       TempStr = My.Computer.FileSystem.GetName(File) 
11.
       For Me.Counter = 1 To MaxFileAmount                         .........' Schleife für alle zu vergl. Dateien 
12.
         If TempStr = CompareFile(Counter) Then                    .........' eingelesene Datei mit Array() vergl. 
13.
           ListBox1.Items.Add(File)                                .........' passende Dateien in ListBox1 anzeigen 
14.
           FileCounter = FileCounter + 1                           .........' Anzahl der passenden Dateien +1 
15.
         End If 
16.
       Next 
17.
     Next 
18.
             
19.
   Catch ex As Exception                                           .........' Falls Verzeichnis nicht lesbar.... 
20.
       ListBox2.Items.Add(ex.Message)                              .........' Fehlermeldungen in ListBox2 anzeigen 
21.
   End Try 
22.
   infomsg = MessageBox.Show("Ready")                              .........' Programmlauf beendet

[Edit Biber]Codeformatierung. [/Edit]
Mitglied: dog
03.10.2012 um 00:45 Uhr
Bei meiner Methode (s.u.) springt mir das Programm aber beim ersten Fehler aus der (Einlese-)Schleife und
überspringt die restlichen Verzeichnisse.

Ja, weil dein Try/Catch um deine For-Schleife drum herum ist!

Du musst das Try schon in die For-Schleife packen, wenn du die Fehler ignorieren willst.
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Inhalt einer Datei als Tabelle einlesen
gelöst Frage von SmogKielBatch & Shell2 Kommentare

Hallo, ich möchte gerne eine Datei zeilenweise einlesen und als Tabelle speichern. Hat jemand eine Idee wie das funktioniert? ...

Batch & Shell
Batch - Datei aus Ordner einlesen mit Ausnahmen!
gelöst Frage von DaedrafactionBatch & Shell4 Kommentare

Hallo! Ich bin halb am verzweifeln Ich möchte bestimmte Datei aus einem Ordner auslesen und in eine Datei speichern. ...

VB for Applications
Werte über VB in Word-Datei-Felder einlesen
gelöst Frage von dila21VB for Applications16 Kommentare

Hallo zusammen, ich habe ein Problem :(. Ich habe ein VB-Script, welches Werte in eine Word Datei einlesen soll. ...

VB for Applications
CSV-Dateien mit VBA einlesen nach bestimmtem Namen
gelöst Frage von sunshine89VB for Applications7 Kommentare

Hallo, ich habe in einem Lösungsvorschlag zur Frage "Alle CSV-Dateien in einem Ordner mit einem VBA Makro einlesen" (27.08.2013) ...

Neue Wissensbeiträge
Router & Routing

PfSense als Addon auf QNAP

Information von magicteddy vor 38 MinutenRouter & Routing

Moin, für Spielereien eine ganz nette Idee aber ich fürchte das soetwas auch als echte Firewall genutzt wird: In ...

Datenschutz

Teamviewer kommt für IoT-Geräte wie den Raspberry Pi

Information von magicteddy vor 7 StundenDatenschutz

Moin, jetzt werden IoT Geräte endgültig zur Wanze? Anscheinend kann man auf einem Dashboard seine Geräte visualisieren Ich stelle ...

Microsoft

Letzte Updates für Win10 und Server2016 müssen bei Bedarf über den Update catalogue in den WSUS importiert werden!

Tipp von DerWoWusste vor 12 StundenMicrosoft1 Kommentar

automatisch kommt da nichts an im WSUS und auch nicht im SCCM. Siehe Hinweise zum Bezug der jeweils neuesten ...

Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 3 TagenLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Preis für Wartungsvertrag ok?
gelöst Frage von a-za-zNetzwerkmanagement22 Kommentare

Hallo! Mal ne Frage, weil ich mich mit dem akzeptablen Preis für einen Reaktionszeitvertrag nicht auskenne. Meine Firma hat ...

Windows Netzwerk
Ist ein Portforwarding auf einen PC ohne lauschendes Programm ein (großes) Sicherheitsproblem?
Frage von PluwimWindows Netzwerk13 Kommentare

Hallo zusammen, zur Fernwartung eines Rechners an einem anderen Ort nutze ich VNC. Da dieser Rechner einfach nur eine ...

Windows Server
Terminal Server 2016 erkennt Berechtigungen nicht
gelöst Frage von Thomas2Windows Server10 Kommentare

Hallo Administratoren, folgendes Problem stellt sich dar: Es gibt zwei Windows Server 2016, die als Terminal Server fungieren. Jetzt ...

SAN, NAS, DAS
Wer kennt sich mit QNAP und CISCO aus ?
gelöst Frage von MachelloSAN, NAS, DAS10 Kommentare

Hallo Zusammen hier im Forum, Ich habe ein QNas 451+ und dieses NAS hat zwei GBit Lan Adapter die ...