Erstes VBS Script

Cheesefish · 28. Januar 2008

Heyho
Ich versuch mich hier grad an Visual basic^^
Warum funktioniert dieses script hier nicht?

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Name = FSO.OpenTextFile("C:\Programme\Vmware\Windows XP Professional.vmx")
Set Name2 = FSO.CreateTextFile("","C:\Programme\Vmware\Windows XP Professional.vmx")

do until Name.AtEndOfStream
line=Name.readLine
If InStr(line, "cdrom-raw") Then
line = Replace(line, "cdrom-raw", "atapi-cdrom")
End If

Name2.writeLine line

loop
Name.close
Name2.close

MFG Cheesefish

Backslash · 28. Januar 2008

Ich vermute mal wegen den 2 "Name"s. Dann ist die Datei ja schon in verwendung des ersten.

Wieso machst du nicht einfach:

Code:

Set fso = CreateObject("Scripting.FileSystemObject")

pfad = InputBox("Welche Datei soll geändert werden?")

Set datei = fso.OpenTextFile("", pfad)
inhalt = datei.ReadAll
inhalt = Replace(inhalt, "cdrom-raw", "atapi-cdrom")
datei.Close

Set datei = fso.CreateTextFile(pfad)
datei.Write(inhalt)
datei.Close

Ich habe noch, um das ganze flexibler zu machen, eine Abfrage des Pfades per InputBox eingebaut. Noch schöner wäre das mit Argumenten, aber wir wollen's mal nicht noch komplizierter machen

Achja, der Code ist ungetestet, bin grade nicht in Windows.

/edit: vielleicht hilft dir auch: http://www.asphelper.de/referenz/vbscript/

Cheesefish · 28. Januar 2008

Vielen Dank nu klappts

Suche

Erstes VBS Script

Cheesefish

Ensign

Backslash

Captain

Cheesefish

Ensign

Ähnliche Themen