Wie prüfe ich in VBS, ob eine Datei im selben Verzeichnis existiert?

Question

Wie prüfe ich in VBS, ob eine Datei im selben Verzeichnis existiert?

Antwort

Verwandte Fragen

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 VBScript zu prüfen, ob eine Datei im selben Verzeichnis wie das Skript existiert, kann folgender Code verwendet werden: ```vbscript Dim fso, currentDirectory, filePath, fileName ' Erstelle ein FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") ' Hole das aktuelle Verzeichnis des Skripts currentDirectory = fso.GetParentFolderName(WScript.ScriptFullName) ' Definiere den Dateinamen, den du überprüfen möchtest fileName = "deine_datei.txt" ' Erstelle den vollständigen Pfad zur Datei filePath = fso.BuildPath(currentDirectory, fileName) ' Überprüfe, ob die Datei existiert If fso.FileExists(filePath) Then WScript.Echo "Die Datei existiert." Else WScript.Echo "Die Datei existiert nicht." End If ``` Dieser Code verwendet das `FileSystemObject`, um das aktuelle Verzeichnis des Skripts zu ermitteln und dann zu prüfen, ob die angegebene Datei in diesem Verzeichnis existiert.

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)