Mit VBS prüfen, ob sechs bestimmte Dateien im Verzeichnis des Scripts sind und falls ja, eine Datei starten.

Question

Mit VBS prüfen, ob sechs bestimmte Dateien im Verzeichnis des Scripts sind und falls ja, eine Datei starten.

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 mit VBScript zu prüfen, ob sich sechs bestimmte Dateien im selben Verzeichnis wie das auszuführende Script befinden, und falls alle vorhanden sind, eine Datei zu starten, kann folgender Code verwendet werden: ```vbscript Option Explicit Dim objFSO, objShell, strScriptPath, arrFiles, i, allFilesExist ' Erstelle ein FileSystemObject Set objFSO = CreateObject("Scripting.FileSystemObject") ' Erstelle ein Shell-Objekt Set objShell = CreateObject("WScript.Shell") ' Pfad des auszuführenden Scripts strScriptPath = objFSO.GetParentFolderName(WScript.ScriptFullName) ' Array mit den Dateinamen, die überprüft werden sollen arrFiles = Array("datei1.txt", "datei2.txt", "datei3.txt", "datei4.txt", "datei5.txt", "datei6.txt") ' Initialisiere die Variable, die überprüft, ob alle Dateien vorhanden sind allFilesExist = True ' Überprüfe, ob jede Datei im Verzeichnis vorhanden ist For i = 0 To UBound(arrFiles) If Not objFSO.FileExists(objFSO.BuildPath(strScriptPath, arrFiles(i))) Then allFilesExist = False Exit For End If Next ' Wenn alle Dateien vorhanden sind, starte die gewünschte Datei If allFilesExist Then objShell.Run objFSO.BuildPath(strScriptPath, "startdatei.exe") End If ' Aufräumen Set objFSO = Nothing Set objShell = Nothing ``` Dieser Code überprüft, ob die sechs angegebenen Dateien im gleichen Verzeichnis wie das Script vorhanden sind. Wenn alle Dateien vorhanden sind, wird die Datei "startdatei.exe" gestartet. Die Dateinamen und die zu startende Datei können nach Bedarf angepasst werden.

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.