Wie prüfe ich mit einer VBS-Datei, ob eine Datei in einem Unterordner vorhanden ist?

Question

Wie prüfe ich mit einer VBS-Datei, ob eine Datei in einem Unterordner vorhanden ist?

Antwort

Verwandte Fragen

Wie kann ich in VB.NET 2003 eine Liste aller JPG-Dateien aus sämtlichen Unterordnern des Ordners MainOrdner erstellen?

Wie kann ich mit PHP 8 eine Datei außerhalb des Webverzeichnisses einfügen?

Wie speichere ich mehrzeilige Texte mit VB.NET 2003 in eine Datei und lese einzelne Blöcke anhand von Überschriften aus?

Accepted Answer

Um in einer Visual Basic Script (VBS) Datei zu prüfen, ob eine bestimmte Datei in einem Unterordner vorhanden ist, kannst du den folgenden Code verwenden: ```vbs Dim fso, folder, filePath, fileExists ' Setze den Pfad zum Unterordner und zur Datei folder = "C:\Pfad\Zum\Unterordner" filePath = folder & "\Dateiname.ext" ' Erstelle ein FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") ' Überprüfe, ob die Datei existiert fileExists = fso.FileExists(filePath) ' Ausgabe des Ergebnisses If fileExists Then WScript.Echo "Die Datei existiert." Else WScript.Echo "Die Datei existiert nicht." End If ``` Ersetze `C:\Pfad\Zum\Unterordner` durch den tatsächlichen Pfad zu deinem Unterordner und `Dateiname.ext` durch den Namen der Datei, die du überprüfen möchtest. Speichere den Code in einer `.vbs` Datei und führe sie aus, um die Überprüfung durchzuführen.

Accepted Answer

Um in VB.NET 2003 eine Liste aller JPG-Dateien in einem Ordner und allen Unterordnern zu erstellen, kannst du die rekursive Durchsuchung mit der Klasse `Directory` und `DirectoryInfo` verwenden. Hier... [mehr]

Accepted Answer

Um in VB.NET 2003 eine Liste aller JPG-Dateien in einem Ordner und allen Unterordnern zu erstellen, kannst du die rekursive Durchsuchung mit der Klasse `Directory` und `DirectoryInfo` verwenden. Hier ein Beispielcode: ```vb.net Imports System.IO Module Module1 Sub Main() Dim rootPath As String = "C:\Pfad\zu\MainOrdner" Dim jpgFiles As New ArrayList() GetAllJpgFiles(rootPath, jpgFiles) ' Ausgabe der gefundenen Dateien For Each file As String In jpgFiles Console.WriteLine(file) Next Console.ReadLine() End Sub Sub GetAllJpgFiles(ByVal folder As String, ByRef fileList As ArrayList) Try ' Alle JPG-Dateien im aktuellen Ordner hinzufügen Dim files() As String = Directory.GetFiles(folder, "*.jpg") fileList.AddRange(files) ' Alle Unterordner durchlaufen Dim dirs() As String = Directory.GetDirectories(folder) For Each dir As String In dirs GetAllJpgFiles(dir, fileList) Next Catch ex As Exception ' Fehlerbehandlung, z.B. Zugriffsfehler ignorieren End Try End Sub End Module ``` **Hinweise:** - Ersetze `C:\Pfad\zu\MainOrdner` durch den tatsächlichen Pfad. - In VB.NET 2003 gibt es noch keine generischen Listen, daher wird `ArrayList` verwendet. - Die Methode ist rekursiv und durchsucht alle Unterordner. - Die Ausgabe erfolgt in der Konsole. Du kannst die Liste auch anderweitig weiterverarbeiten. Weitere Informationen zur Datei- und Ordnerverwaltung findest du in der [Microsoft-Dokumentation](https://learn.microsoft.com/de-de/dotnet/api/system.io.directory?view=netframework-1.1).

Accepted Answer

Um mit PHP 8 eine Datei von außerhalb des Webverzeichnisses einzufügen, kannst du die Funktionen `require`, `require_once`, `include` oder `include_once` verwenden. Wichtig ist dabei, den *... [mehr]

Accepted Answer

Um mit PHP 8 eine Datei von außerhalb des Webverzeichnisses einzufügen, kannst du die Funktionen `require`, `require_once`, `include` oder `include_once` verwenden. Wichtig ist dabei, den **absoluten Pfad** zur Datei anzugeben, da relative Pfade sich auf das aktuelle Arbeitsverzeichnis beziehen, das je nach Serverkonfiguration variieren kann. **Beispiel:** Angenommen, deine Verzeichnisstruktur sieht so aus: ``` /var/www/html/ (Webverzeichnis) /var/www/config/config.php (Datei außerhalb des Webverzeichnisses) ``` Dann kannst du in einer PHP-Datei im Webverzeichnis (`/var/www/html/index.php`) so auf die Datei zugreifen: ```php require '/var/www/config/config.php'; ``` **Alternativ:** Du kannst auch den Pfad dynamisch bestimmen, z.B. mit `__DIR__`: ```php require dirname(__DIR__) . '/config/config.php'; ``` **Wichtige Hinweise:** - Stelle sicher, dass der Webserver-Benutzer (z.B. `www-data` bei Apache) Leserechte auf die Datei hat. - Das Einbinden von Dateien außerhalb des Webverzeichnisses ist eine gute Praxis, um Konfigurationsdateien und sensible Daten vor direktem Zugriff zu schützen. - Die `open_basedir`-Einstellung in der `php.ini` kann den Zugriff auf bestimmte Verzeichnisse einschränken. Prüfe ggf. diese Einstellung, falls du eine Fehlermeldung erhältst. **Weitere Infos:** - [PHP: include - Manual](https://www.php.net/manual/de/function.include.php) - [PHP: require - Manual](https://www.php.net/manual/de/function.require.php)

Accepted Answer

Um mehrzeilige Texte in eine Datei zu speichern und später anhand von Überschriften (z. B. [Block1], [Block2]) auszulesen, kannst du in VB.NET 2003 wie folgt vorgehen: **1. Speichern mehrze... [mehr]

Accepted Answer

Um mehrzeilige Texte in eine Datei zu speichern und später anhand von Überschriften (z. B. [Block1], [Block2]) auszulesen, kannst du in VB.NET 2003 wie folgt vorgehen: **1. Speichern mehrzeiliger Texte mit Überschriften:** Du kannst die Datei als einfachen Text strukturieren, z. B. so: ``` [Block1] Zeile 1 von Block 1 Zeile 2 von Block 1 [Block2] Zeile 1 von Block 2 Zeile 2 von Block 2 ``` Das Speichern könnte so aussehen: ```vbnet Dim pfad As String = "C:\temp\textdatei.txt" Dim sw As New System.IO.StreamWriter(pfad, False) sw.WriteLine("[Block1]") sw.WriteLine("Zeile 1 von Block 1") sw.WriteLine("Zeile 2 von Block 1") sw.WriteLine() sw.WriteLine("[Block2]") sw.WriteLine("Zeile 1 von Block 2") sw.WriteLine("Zeile 2 von Block 2") sw.Close() ``` **2. Auslesen eines Blocks anhand der Überschrift:** Du kannst die Datei zeilenweise einlesen und die gewünschten Blöcke extrahieren: ```vbnet Dim pfad As String = "C:\temp\textdatei.txt" Dim blockName As String = "[Block2]" Dim blockText As New System.Text.StringBuilder() Dim leseBlock As Boolean = False Dim sr As New System.IO.StreamReader(pfad) Dim zeile As String Do zeile = sr.ReadLine() If zeile Is Nothing Then Exit Do If zeile.Trim() = blockName Then leseBlock = True Continue Do End If If leseBlock Then If zeile.StartsWith("[") And zeile.EndsWith("]") Then Exit Do ' Nächster Block beginnt, also stoppen End If blockText.AppendLine(zeile) End If Loop sr.Close() ' blockText.ToString() enthält jetzt den gewünschten Block ``` **Hinweise:** - Die Blöcke werden durch Überschriften in eckigen Klammern getrennt. - Leere Zeilen zwischen den Blöcken sind optional, aber hilfreich für die Lesbarkeit. - Die Methode funktioniert auch mit beliebig vielen Blöcken. **Weitere Tipps:** - Für komplexere Strukturen empfiehlt sich das INI-Format oder XML, aber für einfache Zwecke reicht diese Methode völlig aus. - Achte auf den Zeichensatz beim Lesen/Schreiben (Standard ist UTF-8). **Links:** - [Microsoft Dokumentation zu StreamReader](https://learn.microsoft.com/de-de/dotnet/api/system.io.streamreader) - [Microsoft Dokumentation zu StreamWriter](https://learn.microsoft.com/de-de/dotnet/api/system.io.streamwriter)