Hallo zusammen,
Ich muss für eine Prüfung ein Projekt realisieren und dort wollte ich eine IF Abfrage machen, wenn dies nicht zutrifft sollte es die Inputbox wieder holen. Doch irgendwie komm ich nicht auf den grünen Zweig. Kann mir jemand helfen?
Mein Script:
' Freie Projektarbeit
' Man muss ein ausgewähltes Projekt realisieren. Es handelt sich hier um eine Einzelarbeit, die benotet wird.
' Für das Projekt muss man folgende Punkte beachten:
' Benutzerführung - Der Benutzer sollte optimal durch das Skript geführt werden. Dazu sollte man Statusmeldungen verwenden.
' Fehlersicherheit - Das Skript sollte auch bei fehlerhaften Eingaben seitens des Benutzers nicht einfach den Geist augeben.
' Dazu sind die jeweiligen Eingaben zu überprüfen.
' Funktionalität - Man sollte mit kleinen Tests die Fuinktionalität unter Beweis stellen.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'1.Abschnitt
'Eingabe der Anzahl der gewünschten Dateien:
'Hier wird die Eingabe von der InputBox verwendet, um zu überprüfen ob die Eingabe numerisch ist.
'Wenn nicht wird der Vorgang wiederholt, d.h 'die InputBox wird wieder aufgerufen und es wird eine Fehlermeldung ausgegeben.
'Ist die Eingabe numerisch wird sie in den Datentyp CByte (0-255) umgewandelt und es geht zum 2.Abschnitt.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim objApp
Set objApp = WScript.CreateObject("Scripting.filesystemobject")
Dim EingabeAnzahl
EingabeAnzahl = InputBox("Geben Sie die Anzahl der gewünschten Dateien ein. Maximal 255")
If IsNumeric(EingabeAnzahl) Then
MsgBox ("Ihre Eingabe: " & EingabeAnzahl)
Else
MsgBox ("Ihre Eingabe ist falsch: " & EingabeAnzahl)
'Repeat EingabeAnzahl
End If
EingabeAnzahl = CByte(EingabeAnzahl)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'2.Abschnitt
'Eingabe des gewünschten Verzeichnis, wo die Dateien erstellt werden sollen:
'Hier wird die Eingabe von der InputBox verwendet, um zu überprüfen ob das Verzeichnis überhaupt exisitiert.
'Wenn nicht wird der Vorgang wiederholt, d.h 'die InputBox wird wieder aufgerufen und es wird eine Fehlermeldung ausgegeben.
'Exisitert das Verzeichnis geht es weiter zum 3. Abschnitt.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Do Until folderexists(EingabeVerzeichnis)
Dim EingabeVerzeichnis
EingabeVerzeichnis = InputBox("Geben Sie das gewünschte Verzeichnis ein."&vbcrlf&" Beispiel: C:\Testreihe\Test1")
MsgBox ("Ihre Eingabe: " & EingabeVerzeichnis)
Dim VerzeichnisExistenzpruefung
Set VerzeichnisExistenzpruefung = CreateObject("Scripting.FileSystemObject")
If VerzeichnisExistenzpruefung.folderexists(""&EingabeVerzeichnis&"") then
MSGBOX("Verzeichnis existiert")
Else
MSGBOX ("Verzeichnis ist nicht vorhanden!")
' Repeat EingabeVerzeichnis
End If
'Loop
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'3.Abschnitt
'Erstellung der Anzahl gewünschten Dateien:
'Hier wird die Information (Anzahl gewünschte Dateien) aus dem 1. Abschnitt genommen und so verwendet, dass genau soviele
'Dateien erstellt werden bis die Zahl vom 1. Abschnitt (Anzahl gewünschte Dateien) erreicht worden ist.
'Wenn die Datei schon exisitiert wird die Meldung "File x.txt exisitert schon! File wird überschrieben!
'Klicken Sie auf Abbrechen, um den Vorgang abzubrechen" ausgeben.
'Dabei kann man
'Dazu wird noch jeweils das Datum und die Uhrzeit eingetragen.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Zaehler
Zaehler = 1
Do While Zaehler < EingabeAnzahl + 1
Set DateiExistenzpruefung = CreateObject("Scripting.FileSystemObject")
If DateiExistenzpruefung.fileExists("test"&Zaehler&".txt") then
MSGBOX ("File test"&Zaehler&".txt existiert schon! File wird überschrieben! Klicken Sie auf Abbrechen, um den Vorgang abzubrechen"), vbOKCancel
If vbCancel Then
MsgBox("Der Vorgang wird abgebrochen.")
WScript.Quit
End If
End If
Set logbuch =objApp.opentextfile(""&EingabeVerzeichnis&"\test"&Zaehler&".txt", 8, true,0)
logbuch.writeline Now
logbuch.close
Zaehler = Zaehler + 1
Loop
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'4.Abschnitt
'Ausgabe "Erfolreiche Durchführung":
'Hier wird noch folgende Ausgabe als Beendung gemacht...
'"Es wurden erfolgreich x Dateien im Verzeichnis C:/Beispiel erstellt."
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
MsgBox("Es wurden erfolgreich "&EingabeAnzahl&" Dateien im Verzeichnis "&EingabeVerzeichnis&" erstellt.")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
