Hallo,
ich habe im Verzeichnis C: die Datei testappli.txt liegen. Diese dient als Schalter für eine produktive Datenbank und eine Testversion. Durch umbennen in xtestappli.txt wird auf die produktive Datenbank und durch umgekehrtes umbennen in testappli.txt auf die Testversion zugegriffen. Wie erreiche ich, dass mittels eines Skripts die Umbennenung in den jeweils anderen Dateinamen möglich ist?
ich habe im Verzeichnis C: die Datei testappli.txt liegen.
Diese dient als Schalter für eine produktive Datenbank und
eine Testversion. Durch umbennen in xtestappli.txt wird auf
die produktive Datenbank und durch umgekehrtes umbennen in
testappli.txt auf die Testversion zugegriffen. Wie erreiche
ich, dass mittels eines Skripts die Umbennenung in den jeweils
anderen Dateinamen möglich ist?
Hallo Kayler,
Dim fso, file
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if fso.IsFileExists("C:\testappli.txt") = True Then
Set file = fso.GetFile("c:\testappli.txt")
file.move "c:\xtestappli.txt"
Elseif fso.IsFileExists("C:\xtestappli.txt") = True Then
Set file = fso.GetFile("c:\xtestappli.txt")
file.move "c:\testappli.txt"
end if
set file = nothing
set fso = nothing
Gruß
Reinhard
Hallo Rainer
Dim fso, file
Set fso = Server.CreateObject(„Scripting.FileSystemObject“)
Was ist denn Server für ein Objekt?
Ist mir unbekannt, VB Script ist auch net grad meine Stärke.
Müsstest du nicht den Windows Scripting Host benutzen?
WScript.CreateObject("Scripting.FileSystemObject")
MfG Dominik
Danke für die Anwort.
Leider erhalte ich folgende Fehlermeldung
Objekt erforderlich `Server
Code 800A01A8
Gruss
Kay
Hallo,
da hat sich Reinhard vertippt.
Set fso = CreateObject(„Scripting.FileSystemObject“)
‚Server.‘ ist komplett überflüssig, kannst Du weg lassen.
Gruß Rainer
‚Server.‘ ist komplett überflüssig, kannst Du weg lassen.
Hallo Rainer,
dabei sah das so seriös und glaubhaft aus:
http://www.asphelper.de/referenz/vbscript/move.asp
Wenn man hier nicht alles selbst testet … *grummel* 
Gruß
Reinhard
Hallo Reinhard,
dabei sah das so seriös und glaubhaft aus:
das ist 'ne ASP-Seite. Damit kenne ich mich nicht aus.
Ohne ‚Server.‘ ist der Code aber korrekt, zumindest ist mir nichts aufgefallen.
Wenn man hier nicht alles selbst testet … *grummel*
Stimmt. Ich habe eine Ausrede, ich muss zur Zeit mit dem Mac leben. 
Gruß Rainer
Wenn man hier nicht alles selbst testet … *grummel*
Stimmt. Ich habe eine Ausrede, ich muss zur Zeit mit dem Mac
leben.
Hallo Rainer,
ja, habe ich gelesen, du schriebst das irgendwo hier daß dein PC wieder mal gehimmelt ist.
Was machste da immer damit? Ich vermute, du sendest da eine Art Strahlung aus die deine PCs flachlegt. Genaueres kannste ja im Esoterikbrett besprechen )
Ich beurteile meine Festplattencrashs anders. Einmal hat die Festplatte übel genommen daß ich ohne böse Absicht mit dem Knie ans PC-Gehäuse stieß, beim anderen Fall waren zwei Festplatten, die Systemplatine, der Drucker, hin, als ich im laufenden Betrieb ein Diskettenlaufwerk einbaute.
Was ich schon zigmal machte, aber dieses eine Mal ging es halt schief
Gruß
Reinhard
Hallo Reinhard,
ja, habe ich gelesen, du schriebst das irgendwo hier daß dein
PC wieder mal gehimmelt ist.Was machste da immer damit?
gar nichts, das ist nur Altersschwäche. Ein Billignotebook soll zwei Jahre halten, meins hat fast sechs Jahre geschafft. Nun hat es gemerkt, daß die Grenznutzungsdauer längst überschritten ist.
Gruß Rainer
Dann gehts leider trotzdem nicht.
Gruss
Kay
Hallo,
Dann gehts leider trotzdem nicht.
da muss sich Reinhard mal andere Quellen zum Kopieren suchen.
Ich habe den Code mal an meine Daten angepasst und die Fehler ausgebaut. Der ist jetzt getestet.
Gruß Rainer
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("C:\test1.txt") = True Then
Set file = fso.GetFile("c:\test1.txt")
file.Move "c:\test2.txt"
ElseIf fso.FileExists("C:\test2.txt") = True Then
Set file = fso.GetFile("c:\test2.txt")
file.Move "c:\test1.txt"
End If
Set file = Nothing
Set fso = Nothing
Super, danke (an Beide)!!!
Gruss
Kay