Wie kann ich in einer VBS prüfen, ob 6 Dateien und 2 weitere im Unterordner existieren, bevor eine EXE gestartet wird?

Question

Wie kann ich in einer VBS prüfen, ob 6 Dateien und 2 weitere im Unterordner existieren, bevor eine EXE gestartet wird?

Antwort

Verwandte Fragen

Kann man mit VB.NET 2003 das Eigenschaften-Fenster von Dateien und Ordnern anzeigen?

Wie listet man mit einem PowerShell-Script und Input-Parameter Path alle direkten Unterverzeichnisse mit Größe und Datei-Anzahl auf?

Kann man im VB.NET 2003 TreeView Dateien und Ordner auf gleicher Ebene anzeigen, wobei Dateien oberhalb der Ordner gelistet werden?

Newsletter Script in PHP?

Accepted Answer

Um ein VBScript zu erstellen, das überprüft, ob sechs Dateien im aktuellen Verzeichnis und zwei Dateien in einem Unterordner vorhanden sind, und dann eine EXE-Datei startet oder eine Fehlermeldung anzeigt und beendet, kannst du folgendes Skript verwenden: ```vbscript Option Explicit Dim files, subfolderFiles, allFiles, file, fso, allExist ' Dateien im aktuellen Verzeichnis files = Array("file1.txt", "file2.txt", "file3.txt", "file4.txt", "file5.txt", "file6.txt") ' Dateien im Unterordner subfolderFiles = Array("subfolder\file7.txt", "subfolder\file8.txt") ' Alle Dateien zusammenführen allFiles = files & subfolderFiles Set fso = CreateObject("Scripting.FileSystemObject") allExist = True ' Überprüfen, ob alle Dateien existieren For Each file In allFiles If Not fso.FileExists(file) Then allExist = False Exit For End If Next If allExist Then ' EXE-Datei starten Dim wshShell Set wshShell = CreateObject("WScript.Shell") wshShell.Run "yourprogram.exe" Else ' Fehlermeldung anzeigen und beenden MsgBox "Eine oder mehrere Dateien fehlen. Das Programm wird beendet.", vbCritical WScript.Quit End If ``` Ersetze `"file1.txt"`, `"file2.txt"`, etc. durch die tatsächlichen Dateinamen und `"subfolder\file7.txt"`, `"subfolder\file8.txt"` durch die tatsächlichen Pfade der Dateien im Unterordner. Ebenso ersetze `"yourprogram.exe"` durch den Namen der ausführbaren Datei, die gestartet werden soll. Dieses Skript überprüft, ob alle angegebenen Dateien vorhanden sind. Wenn eine Datei fehlt, wird eine Fehlermeldung angezeigt und das Skript beendet sich. Wenn alle Dateien vorhanden sind, wird die EXE-Datei gestartet.

Accepted Answer

Mit VB.NET 2003 gibt es keine direkte, eingebaute Methode, um das Eigenschaften-Fenster (also das Windows-Dialogfeld „Eigenschaften“ einer Datei oder eines Ordners) anzuzeigen. Allerdings... [mehr]

Accepted Answer

Mit VB.NET 2003 gibt es keine direkte, eingebaute Methode, um das Eigenschaften-Fenster (also das Windows-Dialogfeld „Eigenschaften“ einer Datei oder eines Ordners) anzuzeigen. Allerdings kannst du dies über die Windows-API erreichen, indem du die Funktion `ShellExecute` mit dem „properties“-Verb verwendest. Hier ein Beispiel, wie das in VB.NET 2003 funktionieren kann: ```vbnet Imports System.Runtime.InteropServices Public Class Form1 <DllImport("shell32.dll", CharSet:=CharSet.Auto)> Public Shared Function ShellExecute( _ ByVal hwnd As IntPtr, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Integer) As IntPtr End Function Private Sub ShowProperties(ByVal filePath As String) ShellExecute(Me.Handle, "properties", filePath, Nothing, Nothing, 1) End Sub ' Beispielaufruf, z.B. durch einen Button: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ShowProperties("C:\Pfad\zur\Datei.txt") End Sub End Class ``` **Hinweise:** - Ersetze `"C:\Pfad\zur\Datei.txt"` durch den Pfad zu deiner Datei oder deinem Ordner. - Das funktioniert sowohl für Dateien als auch für Ordner. - Die Methode öffnet das Standard-Eigenschaftenfenster von Windows für die angegebene Datei oder den Ordner. Weitere Informationen zu `ShellExecute` findest du z.B. in der [Microsoft-Dokumentation](https://learn.microsoft.com/en-us/windows/win32/api/shellapi/nf-shellapi-shellexecutea). **Achtung:** VB.NET 2003 ist sehr veraltet und wird nicht mehr unterstützt. Für neue Projekte empfiehlt sich eine aktuelle .NET-Version.

Accepted Answer

Du kannst mit folgendem PowerShell-Skript alle direkten Unterverzeichnisse eines angegebenen Pfads auflisten und für jedes die Gesamtgröße sowie die Anzahl der enthaltenen Dateien anze... [mehr]

Accepted Answer

Du kannst mit folgendem PowerShell-Skript alle direkten Unterverzeichnisse eines angegebenen Pfads auflisten und für jedes die Gesamtgröße sowie die Anzahl der enthaltenen Dateien anzeigen lassen. Das Skript nimmt den Pfad als Parameter entgegen: ```powershell param( [Parameter(Mandatory=$true)] [string]$Path ) # Hole alle direkten Unterverzeichnisse $dirs = Get-ChildItem -Path $Path -Directory foreach ($dir in $dirs) { # Hole alle Dateien (rekursiv) im Unterverzeichnis $files = Get-ChildItem -Path $dir.FullName -File -Recurse -ErrorAction SilentlyContinue # Berechne die Gesamtgröße $size = ($files | Measure-Object -Property Length -Sum).Sum # Anzahl der Dateien $count = $files.Count # Ausgabe [PSCustomObject]@{ Directory = $dir.FullName SizeMB = [math]::Round($size / 1MB, 2) FileCount = $count } } ``` **Anwendung:** Speichere das Skript z.B. als `Get-SubdirStats.ps1` und rufe es so auf: ```powershell .\Get-SubdirStats.ps1 -Path "C:\Dein\Ordner" ``` **Erklärung:** - Das Skript nimmt einen Pfad als Parameter. - Es listet alle direkten Unterverzeichnisse auf. - Für jedes Unterverzeichnis werden rekursiv alle Dateien gezählt und deren Größe summiert. - Die Ergebnisse werden als Tabelle ausgegeben (Verzeichnis, Größe in MB, Dateianzahl). **Hinweis:** Für sehr große Verzeichnisbäume kann das Skript etwas Zeit benötigen.

Accepted Answer

Im Standardverhalten des TreeView-Steuerelements in VB.NET 2003 werden die Knoten (Nodes) in der Reihenfolge angezeigt, in der sie hinzugefügt werden, es sei denn, du sortierst sie explizit. Die... [mehr]

Accepted Answer

Im Standardverhalten des TreeView-Steuerelements in VB.NET 2003 werden die Knoten (Nodes) in der Reihenfolge angezeigt, in der sie hinzugefügt werden, es sei denn, du sortierst sie explizit. Die TreeView-Knoten können sowohl Ordner als auch Dateien repräsentieren, aber das TreeView-Steuerelement unterscheidet nicht automatisch zwischen ihnen. **Um Dateien oberhalb der Ordner auf gleicher Ebene anzuzeigen**, musst du die Knoten selbst sortieren, bevor du sie hinzufügst oder nachträglich sortierst. Das TreeView-Steuerelement in .NET 1.1 (Visual Studio 2003) bietet keine eingebaute Möglichkeit, die Sortierreihenfolge individuell zu steuern (wie z.B. mit einer benutzerdefinierten IComparer-Klasse in späteren .NET-Versionen). **Vorgehensweise:** 1. **Dateien und Ordner sammeln:** Sammle zunächst alle Dateien und Ordner, die du auf einer Ebene anzeigen möchtest. 2. **Dateien zuerst hinzufügen:** Füge zuerst alle Dateien als TreeNode hinzu, dann die Ordner. **Beispiel:** ```vb ' Angenommen, du hast eine Liste von Dateinamen und Ordnernamen Dim files() As String = {"Datei1.txt", "Datei2.txt"} Dim folders() As String = {"Ordner1", "Ordner2"} ' Füge zuerst die Dateien hinzu For Each file As String In files TreeView1.Nodes.Add(file) Next ' Dann die Ordner For Each folder As String In folders TreeView1.Nodes.Add(folder) Next ``` **Hinweis:** Wenn du die Knoten nachträglich sortieren möchtest, musst du sie entfernen und in der gewünschten Reihenfolge wieder hinzufügen, da das TreeView in .NET 1.1 keine benutzerdefinierte Sortierung unterstützt. **Fazit:** Ja, es ist möglich, Dateien und Ordner auf gleicher Ebene im TreeView anzuzeigen und die Dateien oberhalb der Ordner aufzulisten, indem du die Reihenfolge beim Hinzufügen der Knoten selbst steuerst. Automatische oder benutzerdefinierte Sortierung ist in VB.NET 2003 jedoch nur sehr eingeschränkt möglich.

Accepted Answer

Um ein einfaches Newsletter-Script in PHP zu erstellen, benötigst du grundlegende Funktionen wie das Erfassen von E-Mail-Adressen, das Speichern in einer Datenbank und das Versenden von E-Mails.... [mehr]

Accepted Answer

Um ein einfaches Newsletter-Script in PHP zu erstellen, benötigst du grundlegende Funktionen wie das Erfassen von E-Mail-Adressen, das Speichern in einer Datenbank und das Versenden von E-Mails. Hier ist ein einfaches Beispiel: 1. **Datenbankverbindung**: Stelle sicher, dass du eine Datenbank hast, um die E-Mail-Adressen zu speichern. ```php <?php $servername = "localhost"; $username = "username"; $password = "password"; $dbname = "newsletter_db"; // Verbindung zur Datenbank herstellen $conn = new mysqli($servername, $username, $password, $dbname); // Überprüfen der Verbindung if ($conn->connect_error) { die("Connection failed: " . $conn->connect_error); } ?> ``` 2. **E-Mail-Adresse erfassen**: Erstelle ein einfaches HTML-Formular, um E-Mail-Adressen zu sammeln. ```html <form action="subscribe.php" method="post"> <input type="email" name="email" required placeholder="Deine E-Mail-Adresse"> <input type="submit" value="Abonnieren"> </form> ``` 3. **E-Mail-Adresse speichern**: In der `subscribe.php`-Datei kannst du die E-Mail-Adresse speichern. ```php <?php include 'db_connection.php'; // Die Datei mit der Datenbankverbindung if ($_SERVER["REQUEST_METHOD"] == "POST") { $email = $_POST['email']; // E-Mail-Adresse in die Datenbank einfügen $sql = "INSERT INTO subscribers (email) VALUES ('$email')"; if ($conn->query($sql) === TRUE) { echo "Danke für deine Anmeldung!"; } else { echo "Fehler: " . $sql . "<br>" . $conn->error; } } $conn->close(); ?> ``` 4. **Newsletter versenden**: Um den Newsletter zu versenden, kannst du die gespeicherten E-Mail-Adressen abrufen und eine E-Mail an alle senden. ```php <?php include 'db_connection.php'; // Die Datei mit der Datenbankverbindung $sql = "SELECT email FROM subscribers"; $result = $conn->query($sql); if ($result->num_rows > 0) { // E-Mail-Inhalt $subject = "Unser Newsletter"; $message = "Hier ist der Inhalt des Newsletters."; $headers = "From: your-email@example.com"; while($row = $result->fetch_assoc()) { mail($row['email'], $subject, $message, $headers); } echo "Newsletter wurde versendet!"; } else { echo "Keine Abonnenten gefunden."; } $conn->close(); ?> ``` Stelle sicher, dass du die Datenbank und die Tabelle `subscribers` mit den entsprechenden Spalten (z.B. `email`) erstellt hast. Dieses Beispiel ist sehr grundlegend und sollte für den produktiven Einsatz weiter verbessert werden, insbesondere in Bezug auf Sicherheit (z.B. SQL-Injection-Prävention) und Fehlerbehandlung.