Mit VBS prüfen, ob 3 Dateien im Quellverzeichnis und einem Unterverzeichnis vorhanden sind?

Question

Mit VBS prüfen, ob 3 Dateien im Quellverzeichnis und einem Unterverzeichnis 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 mit VBScript zu prüfen, ob drei bestimmte Dateien sowohl im Quellverzeichnis der ausführbaren Datei als auch in einem Unterverzeichnis vorhanden sind, kannst du folgendes Skript verwenden: ```vbscript Option Explicit Dim fso, sourceFolder, subFolder, filesToCheck, file, filePath, allFilesExist Set fso = CreateObject("Scripting.FileSystemObject") ' Ver der ausführbaren Datei sourceFolder = fso.GetParentFolderName(WScript.ScriptFullName) ' Unterverzeichnis (hier als Beispiel "Unterverzeichnis") subFolder = fso.BuildPath(sourceFolder, "Unterverzeichnis") ' Dateien, die überprüft werden sollen filesToCheck = Array("datei1.txt", "datei2.txt", "datei3.txt") allFilesExist = True ' Überprüfen, ob die Dateien im Quellverzeichnis vorhanden sind For Each file In filesToCheck filePath = fso.BuildPath(sourceFolder, file) If Not fso.FileExists(filePath) Then allFilesExist = False Exit For End If Next ' Überprüfen, ob die Dateien im Unterverzeichnis vorhanden sind If allFilesExist Then For Each file In filesToCheck filePath = fso.BuildPath(subFolder, file) If Not fso.FileExists(filePath) Then allFilesExist = False Exit For End If Next End If If allFilesExist Then WScript.Echo "Alle Dateien sind sowohl im Quellverzeichnis als auch im Unterverzeichnis vorhanden." Else WScript.Echo "Nicht alle Dateien sind vorhanden." End If ``` Dieses Skript überprüft, ob die Dateien `datei1.txt`, `datei2.txt` und `datei3.txt` sowohl im Quellverzeichnis der ausführbaren Datei als auch in einem Unterverzeichnis namens "Unterverzeichnis" vorhanden sind. Wenn alle Dateien in beiden Verzeichnissen vorhanden sind, wird eine entsprechende Meldung ausgegeben. Andernfalls wird eine Meldung ausgegeben, dass nicht alle Dateien vorhanden 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.