Wie kann ich ein Script in VBS kopieren und wieder einfügen?

Question

Wie kann ich ein Script in VBS kopieren und wieder einfügen?

Antwort

Verwandte Fragen

Wie kann ich mit VBA einen Zellenbereich kopieren und in die nächste freie Zeile einfügen?

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

Accepted Answer

Um ein VBScript zu erstellen, das eine Datei kopiert und an einem anderen Ort wieder einfügt, kannst du folgendes Skript verwenden: ```vbscript Dim fso Set fso = CreateObject("Scripting.FileSystemObject") ' Pfad zur Quelldatei Dim sourceFile sourceFile = "C:\Pfad\zur\Quelldatei.txt" ' Pfad zum Zielverzeichnis Dim destinationFolder destinationFolder = "C:\Pfad\zum\Zielverzeichnis\" ' Kopiere die Datei fso.CopyFile sourceFile, destinationFolder, True ' Bestätigungsnachricht WScript.Echo "Datei wurde erfolgreich kopiert." ``` Speichere dieses Skript mit der Dateiendung `.vbs`, z.B. `kopieren.vbs`, und führe es aus, um die Datei zu kopieren. Stelle sicher, dass die Pfade zu deiner Quelldatei und deinem Zielverzeichnis korrekt sind.

Accepted Answer

Um mit VBA einen bestimmten Zellenbereich (z.B. `A1:C3`) zu kopieren und in die nächst freie Zeile einer anderen Spalte oder Tabelle einzufügen, kannst du folgenden Beispielcode verwenden:... [mehr]

Accepted Answer

Um mit VBA einen bestimmten Zellenbereich (z.B. `A1:C3`) zu kopieren und in die nächst freie Zeile einer anderen Spalte oder Tabelle einzufügen, kannst du folgenden Beispielcode verwenden: ```vba Sub BereichKopierenInNaechstFreieZeile() Dim Quelle As Range Dim Ziel As Worksheet Dim LetzteZeile As Long ' Bereich festlegen, der kopiert werden soll Set Quelle = ThisWorkbook.Sheets("Tabelle1").Range("A1:C3") ' Ziel-Arbeitsblatt festlegen Set Ziel = ThisWorkbook.Sheets("Tabelle2") ' Nächst freie Zeile in Spalte A des Zielblatts finden LetzteZeile = Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row + 1 ' Bereich in die nächst freie Zeile einfügen Quelle.Copy Destination:=Ziel.Range("A" & LetzteZeile) End Sub ``` **Erläuterungen:** - `Quelle` ist der Bereich, den du kopieren möchtest. - `Ziel` ist das Arbeitsblatt, in das eingefügt werden soll. - `LetzteZeile` sucht die letzte belegte Zeile in Spalte A und addiert 1, um die nächste freie Zeile zu finden. - Mit `Quelle.Copy Destination:=...` wird der Bereich direkt eingefügt. **Hinweis:** Wenn du den Bereich in derselben Tabelle einfügen möchtest, passe einfach die Arbeitsblattnamen an. Soll der Bereich in eine andere Spalte eingefügt werden, ändere die Spaltenangabe in `Ziel.Range("A" & LetzteZeile)` entsprechend. Weitere Informationen findest du auch in der [Microsoft VBA-Dokumentation](https://learn.microsoft.com/de-de/office/vba/api/overview/excel).

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.