VB-Script

Dieses Thema VB-Script im Forum "Webentwicklung, Hosting & Programmierung" wurde erstellt von capirossi, 19. Feb. 2010.

Thema: VB-Script Hallo zusammen, ich möchte mit einem VB-Script in meinem Verzeichnis D:\TEST\Uebersicht alle Ordnernamen ausgeben...

  1. Hallo zusammen,

    ich möchte mit einem VB-Script in meinem Verzeichnis D:\TEST\Uebersicht alle Ordnernamen ausgeben lassen und dann die Möglichkeit
    haben einen entsprechenden Ordner auszuwählen.

    Wenn der Ordner ausgewählt ist, möchte ich ein Eingabefeld mit einbauen, wo ich einen Parameter übergeben kann.

    Mit dem eingegebenen Parameter, soll im Unterverzeichns D:\TEST\Uebersicht\A U S G E W Ä H L T E R O R D N E R ein Unterordner mit dem Namen des eingegebenen
    Parmater angelegt werden. Falls schon ein Ordner mit diesem Namen existiert, wäre es toll, wenn ein kurzer Hinweis erscheint.

    Ich bin für jede Hilfe dankbar!!!!

    Viele Grüße, Marc
     
  2. chk
    chk
    Hallo Marc,

    das ist mit reinen VB-Mitteln etwas schwierig, da VbScript nicht direkt Checkboxen oder Buttons unterstützt.
    Man müsste also eventuell per Hand einen Ordner auswählen und den Parameter anfügen.
    Wie wäre es mit einer Variante in VB6, VB.Net oder C#?

    Gruß Christian
     
  3. Hallo Christian,

    erstmal vielen Dank für Deine Antwort!!!

    Hast Du evtl. einen Lösungsansatz für mich als absoluten Anfänger, wie ich es in einem VB-Script mit manueller Pfadeingabe realisieren kann?
    D. h. das ich bei Aufruf der VBS-Datei zuerst den Ordnernamen eingebe (bis zur Struktur D:\TEST\Uebersicht\ ist der Pfad immer gleich) und das Script den manuell eingegebenen Parameter an den Pfad anhängt (z. B. D:\TEST\Uebersicht\Muster).
    Dann kurz prüft, ob der Ordner Muster im Pfad bereits existiert und wenn ja, sich ein zweites Eingabefeld öffnet, wo ich manuell einen Parametre eintragen kann, der dann unter dem Pfad einen Unterordner mit dem Namen des zweiten Parameter anlegt. Z. B. Wird bei der zweiten Parameterabfrage Bundesland eingegeben, dann soll die Struktur D:\TEST\Uebersicht\Muster\Bundesland angelegt werden.

    Ich bin für jede Hilfe dankbar!!!!

    Viele Grüße, Marc
     
  4. chk
    chk
    Hallo Marc,

    dieses Skript sollte es machen:

    ' begin of script
    '==========================================================================
    '
    ' NAME: CreateFolder2.vbs
    '
    ' AUTHOR: chk
    ' DATE : 25.02.2010
    '
    ' COMMENT:
    ' Aufruf: cscript CreateFolder2.vbs /d: DirectoryName
    '
    '==========================================================================

    Option Explicit

    On Error Resume Next

    Dim folder, subfolder
    Dim fso

    Const entryPath = E:\temp\test\
    Const Version = 1.0

    Set fso = CreateObject(Scripting.FileSystemObject)

    Call ParseArgs()

    If Not fso.FolderExists( entryPath & folder ) Then
    fso.CreateFolder( entryPath & folder )
    If Err.Number <> 0 Then
    MsgBox Der Ordner & entryPath & folder & \ & subfolder & konnte _
    & nicht erstellt werden & VbCrLf & Fehler: & Err.number, vbCritical, Fehler
    Else
    MsgBox Der Ordner & VbCrLf & entryPath & folder & \ & subfolder & VbCrLf & wurde _
    & erstellt, vbInformation,Information
    End If
    Else
    'Wscript.Echo Den Ordner & entryPath & folder & gibt es schon
    subFolder = InputBox(VbCrLf & VbCrLf & Diesen Ordner gibt es schon. & VbCrLf _
    & VbCrLf & Bitte geben Sie einen neuen Unterordner an, Information)
    fso.CreateFolder( entryPath & folder & \ & subfolder )
    If Err.Number <> 0 Then
    MsgBox Der Ordner & entryPath & folder & \ & subfolder & konnte _
    & nicht erstellt werden & VbCrLf & Fehler: & Err.number, vbCritical, Fehler
    Else
    MsgBox Der Ordner & VbCrLf & entryPath & folder & \ & subfolder & VbCrLf & wurde _
    & erstellt, vbInformation,Information
    End If

    End If

    WScript.Quit(0)

    'Get arguments
    Sub ParseArgs()
    'Pflichtargument: path, alle anderen optional
    If WScript.Arguments.Count = 0 Or WScript.Arguments.Count > 1 Then
    WScript.StdErr.WriteLine VbCrLf & Invalid number of arguments
    ShowUsage()
    WScript.Quit 2
    End If

    If WScript.Arguments.Named.Exists(?) Or WScript.Arguments.Named.Exists(LCase(help)) _
    Or WScript.Arguments.Named.Exists(LCase(h)) Then
    ShowUsage()
    WScript.Quit 0
    End If

    If WScript.Arguments.Named.Exists(d) Then
    folder = WScript.Arguments.Named(d)
    End If
    End Sub

    ' Help
    Private Sub ShowUsage()

    WScript.StdOut.WriteLine VbCrLf
    WScript.StdOut.WriteLine CreateFolder2 Version & Version & VbCrLf
    WScript.StdOut.WriteLine Usage: & VbCrLf
    WScript.StdOut.WriteLine vbTab &cscript //nologo CreateFolder2.vbs /d:myDir
    WScript.StdOut.WriteLine
    WScript.StdOut.WriteLine vbTab & /d: & vbTab & vbTab & - the new directory to make
    WScript.StdOut.WriteLine vbTab & /? or /help or /h & - shows this help
    WScript.StdOut.WriteLine
    WScript.StdOut.WriteLine Example: & VbCrLf
    WScript.StdOut.WriteLine vbTab & cscript //nologo CreateFolder2.vbs /d:meinVerzeichnis & VbCrLf

    End Sub
    'end of script

    Einfach diesen Quelltext in einen x-beliebigen Editor kopieren,dann als irgendwas.vbs abspeichern und
    mit cscript audführen.
    Viel Spaß Christian
     
  5. Hallo Christian,

    erstmal vielen, vielen Dank für Deine große Hilfe!!!!

    Jetzt hab ich das ganze eben getestet und bei Const entryPath = entsprechend meinen Pfad eingegeben, der immer gleich ist (Const entryPath = L:\Test\)

    Wenn ich das Skript starte, steht in der MsgBox bereits gleich Diesen Ordner gibt es schon. Bitte geben Sie einen neuen Unterordner an.

    D. h. das Skript fragt mich zur Zeit nicht nach dem ersten Parameter (=Ordnername), ob dieser im Pfad L:\Test\PARAMETER1 existiert. Sollte der Ordner existieren, dann die Aufforderung zur Eingabe des zweiten Parameter (für den Unterordner). Existiert der Zweite Parameter als Ordner in der Struktur noch nicht (L:\Test\PARAMETER1\PARAMETER2), soll ein Unterordner anelegt werden, der den Namen des 2. Parameter trägt.

    Bsp: 1. Parameter ABC -> Prüfung ob es den Ordner L:\Test\ABC gibt -> existiert er nicht, dann Aufforderung zur
    Eingabe des 2. Parameter CDE -> Prüfung ob es den Ordner L:\Test\ABC\CDE gibt --> existiert der Ordner noch nicht, dann soll er angelegt werden.

    Würde mich freuen, wenn Du nochmal einen Blick auf das Skript werfen könntest und nochmals vielen Dank für Deine Unterstützung an dieser Stelle.

    Gruß, Marc
     
  6. chk
    chk
    Hallo,

    ich war ein paar Tage im Urlaub. Ich schau nochmal drüber.

    Gruß CHK
     
  7. Hallo Christian,

    wäre super, wenn Du da nochmal kurz schauen könntest.

    Schon jetzt vielen Dank für Deine Mühe!

    Gruß, Marc
     
Die Seite wird geladen...

VB-Script - Ähnliche Themen

Forum Datum
per VB-Script eine URL unsichtbar aufrufen und iexplorer wieder schließen. Webentwicklung, Hosting & Programmierung 17. Jan. 2010
VB-Script:Bilder anzeigen, drehen, zoomen Windows XP Forum 28. Nov. 2005
Mousebewegung mit VB-Script Windows XP Forum 6. Sep. 2005
Bei vb-script anwendung versteckt starten Windows XP Forum 2. Apr. 2005
(VB-SCRIPT) Diagramm ohne Bezüge kopieren Windows XP Forum 28. Feb. 2005