HTMLWorld - HTML, CSS, JavaScript, PHP, Java, Flash und vieles mehrHTMLWorld:   Home | Impressum
 

 
 

Anzeige 
 
HTMLWorld » Forum

Thema anzeigen - VB Scribt

 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

VB Scribt

 

Neues Thema eröffnen   Neue Antwort erstellen    HTMLWorld Foren-Übersicht
   VB, VBS, VBA, VB.NET
Vorheriges Thema:
Nächstes Thema:  
Autor Nachricht
unraelx38



Anmeldungsdatum: 11.05.2006
Beiträge: 3

BeitragVerfasst am: 11.05.2006 08:34:56    Titel: VB Scribt Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden
unraelx38



Anmeldungsdatum: 11.05.2006
Beiträge: 3

BeitragVerfasst am: 13.05.2006 15:03:34    Titel: Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden
unraelx38



Anmeldungsdatum: 11.05.2006
Beiträge: 3

BeitragVerfasst am: 20.05.2006 13:00:08    Titel: Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    HTMLWorld Foren-Übersicht
   VB, VBS, VBA, VB.NET
Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
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.