Wie überprüft ein VBScript, ob die angegebenen Dateien im aktuellen Verzeichnis und im Unterordner vorhanden sind und startet eine EXE-Datei, wenn alle Dateien vorhanden sind?

Question

Wie überprüft ein VBScript, ob die angegebenen Dateien im aktuellen Verzeichnis und im Unterordner vorhanden sind und startet eine EXE-Datei, wenn alle Dateien vorhanden sind?

Antwort

Verwandte Fragen

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

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

Accepted Answer

Um ein VBScript zu erstellen, das überprüft, ob bestimmte Dateien im aktuellen Verzeichnis und in einem Unterordner vorhanden sind und dann eine EXE-Datei startet, wenn alle Dateien vorhanden sind, kann folgender Code verwendet werden: ```vbscript Option Explicit Dim objFSO, objShell Dim currentDir, subDir, filesToCheck, file, allFilesExist ' Initialisiere das FileSystemObject und Shell-Objekt Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("WScript.Shell") ' Aktuelles Verzeichnis und Unterverzeichnis festlegen currentDir = objFSO.GetAbsolutePathName(".") subDir = objFSO.BuildPath(currentDir, "Unterordner") ' Liste der zu überprüfenden Dateien filesToCheck = Array("datei1.txt", "datei2.txt", "Unterordner\datei3.txt") allFilesExist = True ' Überprüfe, ob alle Dateien vorhanden sind For Each file In filesToCheck If Not objFSO.FileExists(objFSO.BuildPath(currentDir, file)) Then allFilesExist = False Exit For End If Next ' Wenn alle Dateien vorhanden sind, starte die EXE-Datei If allFilesExist Then objShell.Run "deineDatei.exe" Else WScript.Echo "Eine oder mehrere Dateien fehlen." End If ' Objekte freigeben Set objFSO = Nothing Set objShell = Nothing ``` In diesem Skript: 1. `filesToCheck` enthält die Liste der Dateien, die überprüft werden sollen. Dateien im Unterordner werden mit dem relativen Pfad angegeben. 2. Das Skript überprüft, ob jede Datei in der Liste existiert. 3. Wenn alle Dateien vorhanden sind, wird die EXE-Datei gestartet. Andernfalls wird eine Meldung ausgegeben, dass eine oder mehrere Dateien fehlen. Stelle sicher, dass die Pfade und Dateinamen in `filesToCheck` sowie der Name der EXE-Datei korrekt sind.

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

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.