Mit VBS überprüfen, ob im Quellverzeichnis 6 bestimmte Dateien existieren, 2 im Unterordner?

Question

Mit VBS überprüfen, ob im Quellverzeichnis 6 bestimmte Dateien existieren, 2 im Unterordner?

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 im ausführbaren Quellverzeichnis sechs bestimmte Dateien existieren, von denen zwei in einem Unterordner liegen, kannst du folgendes Skript verwenden: ```vbscript Option Explicit Dim fso, folder, subfolder, filesToCheck, i, fileExists ' Erstelle ein FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") ' Setze das Quellverzeichnis (aktuelles Verzeichnis) Set folder = fso.GetFolder(fso.GetParentFolderName(WScript.ScriptFullName)) ' Definiere die zu prüfenden Dateien filesToCheck = Array("datei1.txt", "datei2.txt", "datei3.txt", "datei4.txt", "unterordner\datei5.txt", "unterordner\datei6.txt") ' Prüfe jede Datei For i = 0 To UBound(filesToCheck) fileExists = fso.FileExists(folder.Path & "\" & filesToCheck(i)) If fileExists Then WScript.Echo "Datei existiert: " & filesToCheck(i) Else WScript.Echo "Datei fehlt: " & filesToCheck(i) End If Next ' Aufräumen Set fso = Nothing Set folder = Nothing ``` Dieses Skript prüft, ob die angegebenen Dateien im aktuellen Verzeichnis und im Unterordner existieren. Passe die Dateinamen und Pfade in der `filesToCheck`-Array entsprechend deinen Anforderungen an.

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.