X-beliebige Textdatei öffnen und bearbeiten

Computer: Software & Programmierung JavaScript & Script-Sprachen
#1

Hallo,

ich möchte mit VBS eine Textdatei öffnen und bearbeiten.

Der Name der Datei soll dabei keine Rolle spielen, also variabel sein.

Ich dachte es würde so funktionieren wenn ich zu Beginn meines Codes die x-beliebige Datei öffne und dann bearbeite.
Zu Beginn meines Codes steht dieser Befehl.

Set oFile = fso.OpenTextFile(„M:\Test_16_VBS\Datapage*.txt“) ’ Pfad

Doch das Programm findet keine Datei bzw gibt mir eine Fehlermeldung.
Das * wird an dieser Stelle falsch sein, was muss ich stattdessen hinschreiben.

Welchen Befehl gibt es im VBS um dieses Problem zu beheben?

Im Ordner ist immer nur eine Textdatei vorhanden, aber diese kann einen untzerschiedlichen Namen haben.

Schon einmal vielen Dank!

Grüße

#2

Hallo,

Set oFile = fso.OpenTextFile(„M:\Test_16_VBS\Datapage*.txt“)
’ Pfad

* ist nunmal ein platzhalter , platzhalter werden aber durch das Programm verabeitet .

Du kannst ja auch kein link zu so etwas machen

LINK M:\Test_16_VBS\Datapage*.txt

was soll den da angezeigt werden ? Du nimmst eine Scuhfunktion * und erwartest das damit eine eindeutigkeit in einem Pfad gegeben wird .

oFile = öffne ein file *.txt

also sucht dein Programm nach einem file das sich genau *.txt nennt.

wie man das macht, mann öffnet das directory und liesst den namen für das file aus und öffnet es dann.

#3

Danke für deine Erklärung.

Hab mir gedanken dazu gemacht, dachte mir dass ich mit diesem Befehl
alle Dateien in dem Ordner auslesen kann.

Set FSO =CreateObject(„Scripting.FileSystemObject“)
Set Folder = FSO.GetFolder(„M:\Test_16_VBS\Datapage“)
For Each File in Folder.Files
If File.Name Like „*.txt“ Then Debug.Print File.Name
Next

Jedoch bekomme ich ein Fehlermeldung Sub oder Function Prozedur nicht definiert bei if…

Grüße

#4

Habe es gelöst bekommen, danke für eure Hilfe!!

Hier der Code dazu:

Set fso = CreateObject(„Scripting.FileSystemObject“)
Set o = fso.GetFolder(„M:\Test_16_VBS\Datapage“)
Set da = o.Files
counter = o.Files.Count
'msgbox counter
if counter > 1 then
msgbox „Es darf nur eine Datei im Ordner vorhanden sein!“
WScript.Quit
end if
For Each d in da
s = s & d.path
'mach was mit der Datei
s=""
next

Grüße

#5

Danke