Erfolgsmeldung nach "Datei verschieben"

Alle Antworten

• 

  

  0

  Anmelden

  Am 15.09.2010 schrieb micwil:

  1. SourcePath = "C:\Backup\"                             '(Notebook)
  2. DestinationPath = "\\Desktop\Backup_D\"        '(PC)
  3. set fso = CreateObject("Scripting.FileSystemObject") 4. fso.MoveFile Sourcepath & "*.zip", DestinationPath
  
  Mit diesem Code verschiebe ich zip-Dateien innerhalb meines WLAN (2x WindowsXP). Da diese Dateien recht groß sein können (10 - 20 MB), würde ich gern eine MsgBox anzeigen lassen, wenn der Verschiebevorgang erfolgreich abgeschlossen ist. Wie kann ich das realisieren?

  5. WScript.Echo "Verschieben erledigt."

  Servus
  Winfried

  ---

  Connect2WSUS: http://www.grurili.de/tools/Connect2WSUS.exe
  GPO's: http://www.gruppenrichtlinien.de
  Community Forums NNTP Bridge: http://communitybridge.codeplex.com/

  • Als Antwort markiert Andrei Talmaciu Mittwoch, 22. September 2010 13:02

  Mittwoch, 15. September 2010 14:54
• 

  

  0

  Anmelden

  Am 15.09.2010 16:45, schrieb micwil:

  > 1. SourcePath = "C:\Backup\" '(Notebook)

  > 2. DestinationPath = "\\Desktop\Backup_D\" '(PC)

  > 3. set fso = CreateObject("Scripting.FileSystemObject")

  > 4. fso.MoveFile Sourcepath & "*.zip", DestinationPath

  >

   

  Mach aus 4. sowas wie:

   

  IF (fso.MoveFile Sourcepath & "*.zip", DestinationPath) then

  MsgBox "Yay, hat geklappt."

   

  Syntax musst du anpassen. Ich kann nur Logik ;-)

   

  Cheers,

  Florian

   

  ---

  Microsoft MVP - Group Policy (http://www.frickelsoft.net/blog)

  • Als Antwort markiert Andrei Talmaciu Mittwoch, 22. September 2010 13:02

  Mittwoch, 15. September 2010 19:07
• 

  

  0

  Anmelden

  Hallo

  konnten die Tipps weiterhelfen?

  Gruß
  Andrei

  Freitag, 17. September 2010 07:44