Vorheriges Thema: Nächstes Thema: |
Autor |
Nachricht |
unraelx38
Anmeldungsdatum: 11.05.2006 Beiträge: 3
|
Verfasst am: 11.05.2006 08:34:56 Titel: VB Scribt |
|
|
Hallo ich muss für ein Kunde meiner kleinen Privatfirma ein VB Scribt erstellen... aber ich habe keine Ahnung wie ich das machen soll!
könnt ihr mir bitte helfen?! Wäre echt lieb von euch!
Ablauf:
Ich stelle mir eine Backuplösung vor, die den Inhalt eines beliebigen Ordners auf eine andere
Harddisk resp. Partition kopiert. Und so mehr Sicherheit vor falschem Löschen oder HD Crash bietet.
Umsetzung:
Wenn man mein Script startet soll eine Inputbox erscheinen, in der kann man
„Start“ oder „Ende“ klicken kann. Wenn man auf Start klickt kommt die Meldung, das jetzt Backup in gang ist und bei Ende wird das Fenster wieder geschlossen.
Wenn das Backup fertig ist kommt die Meldung, das jetzt wieder mit voller CPU resp. HD Leistung arbeiten kann.
Danke schon im voraus! |
|
Nach oben |
|
![](templates/subSilver/images/spacer.gif) |
unraelx38
Anmeldungsdatum: 11.05.2006 Beiträge: 3
|
Verfasst am: 13.05.2006 15:03:34 Titel: |
|
|
danke vielmals für einen Code...
ich habe es mitlerweile selber erstellt
Dim start
Dim f1
Dim fso
Dim finput
Dim foutput
finput = "C:\test"
foutput = "d:\backup"
Set fso = CreateObject("Scripting.FileSystemObject")
start = inputbox("Geben Sie 'start' oder 'ende' ein, um den Vorgang auszuführen oder diesen Skript zu beenden" )
If start = "start" Then
fso.CopyFolder finput, foutput
End If |
|
Nach oben |
|
![](templates/subSilver/images/spacer.gif) |
unraelx38
Anmeldungsdatum: 11.05.2006 Beiträge: 3
|
Verfasst am: 20.05.2006 13:00:08 Titel: |
|
|
Danke ich habs jetzt so gemacht...
Code: |
Dim fso
Dim finput
Dim foutput
'finput: das zu kopierende Ordner
'foutput: Ziel Ordner
finput = "c:\test"
foutput = "d:\backup3"
If MsgBox ("Sie sind im begriffe Dateien aus einem Ordner in ein anderen Ordner zukopieren. Ãœberprüfen Sie die Pfade und ändern Sie sie gegebenfalls,"&vbCr&"indem Sie die Datei backupSAL.vbs mit dem Editor öffnen." &vbCr&vbCr& "Quellordner = "+finput &vbCr& "Zielordner = "+foutput &vbCr&vbCr&"Soll der Forgang gestartet werden?" ,4,"backupSAL") = 6 Then
Set fso = CreateObject("Scripting.FileSystemObject")
'Prüfen ob Quellordner existiert
'Danach ob Zielordner existiert, sollte Zielordner nicht existieren Fragen ob erstellt werden soll
'vbCr = Zeilenwechsel
If fso.FolderExists(finput) = False Then
MsgBox "Quellordner '"+finput+"' existiert nicht."& vbCr &"Sie können erst weiterfahren wenn der Angegebene Ordner existiert."& vbCr &"Das Programm wird beendet",16,"Fehler - Ordner nicht gefunden"
WScript.Quit
Else If fso.FolderExists(foutput) = False Then
'MsgBox Infos: 4: Ja/Nein Frage
' 6: Gibt der Button Ja zurück
If MsgBox ("Zielordner '"+foutput+"' existiert nicht"&vbCr&"Soll dieser erstellt werden, um mit dem Kopieren weiterzufahren?",4, "Ordner existiert nicht") = 6 Then
fso.CreateFolder(foutput)
fso.CopyFolder finput, foutput, True
MsgBox "Ordner wurde erstellt und die Datein kopiert.",64,"Programm wurde erfolgreich ausgeführt"
WScript.Quit
Else
MsgBox "Programm wird beendet. Dateien wurden nicht kopiert",64,"Programm beendet"
WScript.Quit
End If
End If
End If
MsgBox "Die Dateien wurden kopiert "&vbCr&vbCr& "Quellordner = "+finput &vbCr& "Zielordner = "+foutput ,64, "Programm Ende"
WScript.Quit
Else
MsgBox "Programm wurde durch User beendet",64,"Programm beendet"
WScript.Quit
End If |
|
|
Nach oben |
|
![](templates/subSilver/images/spacer.gif) |
|
|
Du kannst keine Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum nicht antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
|