vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
VBScript: Fehler bei der Objekterstellung 
Autor: Ryche
Datum: 21.04.03 19:46

Hallo Leute,

Ich habe ein VBScript geschrieben, um meine komprimierte Daten per Taskplaner auf
eine ZIP-Diskette zu kopieren. Also dieser Script hat für einige Wochen wunderbar
funktioniert. Seit einigen Tagen meldet Windows Script Host jedoch die folgende
Fehlermeldung:

ActiveX-Komponenten kann kein Objekt erstellen: 'Scripting.FileSystemObject'

Ich habe die Knowledge Base von Microsoft studiert und nichts gefunden.
Ich arbeite mit Windows XP. Der Code sieht so aus:

Dim FSO
Dim DeleteFile
Dim SourceFile
Dim TargetDrive
Dim TargetFile
Dim MsgText
Dim ZipDrive

Set FSO=CreateObject("Scripting.FileSystemObject")
SourceFile="D:\Diversicum.zip"
TargetDrive="J:"
TargetFile="J:\Diversicum.zip"

Do
If FSO.FileExists(SourceFile) Then
Set ZipDrive=FSO.GetDrive("J:")
If ZipDrive.IsReady Then
FSO.CopyFile SourceFile, TargetFile
MsgText="Die Datei " & SourceFile & " wurde erfolgreich Kopiert!" & vbcrlf
MsgText="Bitte nehmen Sie die Zip-Diskette aus dem Laufwerk " & TargetDrive & "!"
MsgText = MsgBox (MsgText, 64, "MyBackup")
Set DeleteFile=FSO.GetFile(SourceFile)
DeleteFile.Delete
Exit Do
Else
MsgText="Es ist keine Zip-Diskette vorhanden!" & vbcrlf
MsgText="Bitte legen Sie eine leere Diskette ins Laufwerk " & TargetDrive & " ein."
MsgText=Msgbox(MsgText,65,"MyBackup")
If MsgText=vbCancel Then
Exit Do
End if
End If
Else
MsgText="Die Datei " & SourceFile & " existiert nicht!" & vbcrlf
MsgText=MsgText & "Sie müssen Ihre Daten zuerst mit 'Zip.cmd' komprimieren."
MsgText=MsgBox(MsgText, 48, "MyBackup")
Exit Do
End if
Loop
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
VBScript: Fehler bei der Objekterstellung950Ryche21.04.03 19:46
Re: VBScript: Fehler bei der Objekterstellung581ModeratorDieter22.04.03 10:52
Re: VBScript: Fehler bei der Objekterstellung588Ryche22.04.03 21:52
Re: VBScript: Fehler bei der Objekterstellung558Elwood06.05.03 14:12

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel