VBscript OpenTextFile funktioniert nicht?

Hallo Leute,

ich Programmiere ja VBScript und habe jetzt eine Fehlermeldung und kriege diese nicht behoben:

Set fso = CreateObject("Scripting.FileSystemObject")

sl = InputBox("Wieviele Schüler sollten den Test machen?","")

'Gibt es eine "& sl &"ste Datei?

If fso.FileExists("D:\Lernprogrammmi\NomenMitEndungen\Tests\Temp\"& sl &".txt") Then

Do until Sl="0"

Set oFile = fso.OpenTextFile("D:\Lernprogrammmi\NomenMitEndungen\Tests\Temp\"& sl &".txt")

msgbox oFile.ReadLine

sl=sl-1

loop

Das Programm sollte in einer msgbox die Datei öffnen und danach auch die Dateien die unter der eingegebenen Zahl liegen öffnen und das bis null. Nun steht aber in dieser Zeile: "msgbox oFile.ReadLine" ein Fehler:

Eingabe hinter Dateiende

Kann mir da jemand helfen?

Außerdem möchte ich dass Alle Dateien in einer Abgespeichert werden aber so wie ich das erfahren habe klappt das nicht. Denn dann kreuzen sich zwei oFile's.

1 Antwort

Vom Fragesteller als hilfreich ausgezeichnet

Erzesel

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

programmieren

10.06.2018, 13:07

Fehler Du prüfst außerhalb des Do-Loops ob die Datei existiert
Fehler Wenn die Datei leer ist liest Du hinter dem Dateiende
If fso.File... ist nicht mit end if abgeschlossen

korrigiertes Script:

Set fso = CreateObject("Scripting.FileSystemObject")
sl = InputBox("Wieviele Schueler sollten den Test machen?","")
'Gibt es eine "& sl &"ste Datei?
Do until sl=0
'wenn File  existiert  Inhalt  lesen
If fso.FileExists("D:\Lernprogrammmi\NomenMitEndungen\Tests\Temp\"& sl &".txt") Then
Set oFile = fso.OpenTextFile("D:\Lernprogrammmi\NomenMitEndungen\Tests\Temp\"& sl &".txt")
'sicherstellen das  nicht  hinter dem Dateiende  gelesen  wird
Do Until oFile.AtEndOfStream
      ' alle Zeilen  der Datei   lesen
    fileText= filetext & oFile.ReadLine & vbCrLf
Loop
oFile.close
'fileText anzeigen
msgbox "Datei " & sl & ".txt :" & vbCrLf & fileText
'Dateiinhalt  der "Sammelvariable" für  alle Texte  zuweisen
'dateiname  : Linefeed  fileText  2xLinefeed
allText=allText & sl & ".txt :" & vbCrLf & fileText & vbCrLf  & vbCrLf
'fileText löschen
fileText=""
end if
'Zähler veringern
sl=sl-1
loop

'allText anzeigen
msgbox allText
'erstelle neue  Datei "all.txt"
Set oFile = fso.CreateTextFile("D:\Lernprogrammmi\NomenMitEndungen\Tests\Temp\all.txt")
'allText iin Datei "all.txt" schreiben
oFile.Write(allText)
oFile.close

Dateiprüfung in die Schleife verlegt
Datei nicht weiter als das Dateiende lesen ... .AtEndOfStream
end if an richtiger Stelle eingefügt
den gesamten aus allen Dateien gelesen Text in neue Sammeldatei schreiben

Woher ich das weiß:eigene Erfahrung – Ich mach das seit 30 Jahren

igern

Fragesteller

10.06.2018, 15:37

Danke! hast mir sehr geholfen ;)

Hallo liebe Community,

Ich habe gestern mit vbs angefangen und habe eine Frage:Wie kann ich eine Variable in eine .txt Datei schreiben

script:

text = inputbox("Du:")

set fs = createobject("scripting.filesystemobject")

set file = fs.openTextFile("a.vbs", 8, true)

test = text

file.writeline ""

file.writeline "if text = test then"

file.writeline "msgbox(test)"

file.writeline "else"

Die Ausgabe ist:

if text = test then

msgbox(text)

else

Nun soll test aber der Inhalt der Inputbox sein aber,text soll text bleiben.

Bitte mit Erklärung,bin nunmal anfänger

...zur Frage

VBScript Inputbox in den Vordergrund stellen?

Der Titel sagt schon alles. Mit normalen msgboxen geht es zwar, aber bei Inputboxen ist es recht kompliziert.

...zur Frage

Link der sich öffnet in vbs Datei (idealerweise im Vollbild)?

Mein script lautet:

yes = MsgBox("Test", vbYesNo + vbQuestion)

Loop until yes = vbYes

Ich würde gerne wenn ich auf "Ja" gedrückt habe einen link einer Website einfügen und den idealerweise im Vollbildmodus.

Wie muss ich das ganze ändern / hinzufügen. Geht das überhaupt?

...zur Frage

VBScript Fehler Dateien bereits vorhanden?

Ich schreibe gerade an einer art "DesktopCleaner"... das ganze soll erstmal nur auf meinem System funktionieren.

Option Explicit 
Dim objFSO, objFolder, objSubFld, f1, f2, colFiles, pathname, i 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFSO.GetFolder("D:\") 
ChkSubFld objFolder 

Private Sub ChkSubFld(StartFolder) 
ChkFiles StartFolder 
Set objSubFld = StartFolder
For Each f2 in objSubFld 
ChkSubFld f2 
Next 
End Sub 

Private Sub ChkFiles(Start) 
Set colFiles = Start.Files 
For Each f1 in colFiles 
pathname = objFSO.GetAbsolutePathName(f1)
MsgBox pathname
 If Not (pathname = "D:\4.m3u") Or (pathname = "D:\CyberGhost 6.lnk") Or (pathname = "D:\desktop.ini") Or (pathname = "D:\Electrum-LTC.lnk") Or (pathname = "D:\Electrum.lnk") Or (pathname = "D:\Lazarus.lnk") Or (pathname = "D:\Start Tor Browser.lnk") Or (pathname = "D:\TeamSpeak 3 Client.lnk") Then
objFSO.MoveFile pathname, "D:\Alles Desktop\DesktopCleaner"
End If
Next 
End Sub 

objFSO.MoveFile "E:\VBS\DesktopCleaner\data\TranscodedWallpaper", "C:\Users\Ericmc\AppData\Roaming\Microsoft\Windows\Themesr"
MsgBox "Fertig!"

Also der Ablauf soll sein: Lösche alle Dateien auf dem Desktop (D:), ändere das Desktop Hintergrundbild. Der Fehler ist wohl beim ersten objFSO.MoveFile .... ich schaffe es aber nicht ihn zu beheben. Es kommt immer die aussage die Dateien würden bereits existieren?? Obwohl der Ordner DesktopCleaner leer ist. Danke für eure Hilfe.

...zur Frage

Wo liegt hier der Fehler (VB-Skript)?

Ich habe versucht da so ein Programm in VBS zu coden aber mir ist da irgendein Fehler unterlaufen. Kann mir da wer helfen diesen Fehler zu beheben? Das Programm soll einen Satz sagen (mit Stimme), ein Fenster öffnen wo man eine Website eingibt und diese dann öffnen. Hier ist der Code:

set STIMME=createobject("sapi.voice")

STIMME.speak("Bitte nenne den Namen der Website die du öffnen willst!")

WEBSITE=inputbox("Nenne den Namen der Website","website")

set WSITE=createobject("wscript.shell")

If Website = "" Then

STIMME.speak("Website nicht gefunden. Bitte versuche es erneut!")

WEBSITE=inputbox("Nenne den Namen der Website","website")

Else

STIMME.speak("Loading " & WEBSITE & ".com")

set WSITE=createobject("wscript.shell")

WSITE.run "http://www. " & WEBSITE & ".com")

STIMME.speak("Website wurde geladen!")

exit do

Loop

...zur Frage

VBScript: Erlaubnis verweigert?

Ich schreibe VBS und habe nun eine Fehlermeldung:

 Set oFile = fso.OpenTextFile("D:/lpX32/NomenMitEndungen/Tests/"&UCase(Name)&"_TEST.txt",2,true)

Was mache ich falsch?

...zur Frage

Mit einer .vbs datei einen Link ausführen?

Ich versuche grade mit einer .vbs datei und dem Notepad (.txt) mit MsgBoxen einen kleinen Scherz zu machen, und am ende, wenn alle Msg Boxen durch sind, soll beim Klicken auf einen Knopf (ok/ja) sich automatisch ein Link in Firefox öffnen.

Die Msg Boxen sind soweit fertig, aber wie stelle ich das mit dem Link an? Kann mir da bitte jemand helfen?

...zur Frage

VBScript: Maus bewegen?

Wie kann ich in VBS per Befehl den Mauszeiger auf eine Koordinate schicken und dann einen Klick ausführen?

Bin anfänger als bitte nicht sagen: "ja du musst den String durch die Variable ersetzen bla bla bla..." also wäre schon mit dem Richtigen Code :)

...zur Frage

(VBS) Script soll eine Pause machen?

Hi, ich schreibe gerade ein kleines Script. Es soll ein Programm öffnen und ein paar Zeilen "tippen". Aber bis sich das Programm öffnet und ich alles eingestellt habe, vergehen ein paar Sekunden. Wäre es möglich, dass sich das Script kurz pausiert, und dann weiter den Code abarbeitet? habe es schon mit der "sleep"-Funktion versucht, dabei kommt aber die Fehlermeldung (siehe Anhang). Hier der Code:

Dim Anwendung
Set Anwendung = CreateObject("WScript.Shell")
Anwendung.Run "TSWIN7.EXE"
Anwendung.Sleep(10000)
Anwendung.SendKeys "Test"

PS: Ich schreibe eigentlich nie mit VBS, also bitte so gut wie möglich erklären (am besten mit Codebeispiel), so das ich alles verstehe :D

...zur Frage

Anführungszeichen in vbs?

Ich habe ein Problem.

Ich habe ein VBScript das ein anderes schreiben soll, aber ich weiß nicht wie ich die Anführungszeichen auf dem neu geschriebenen VBScript darstellen soll.

Const strFileName = "output.vbs"

Const ForReading = 1

Const ForWriting = 2

Const ForAppending = 8

Const CreateNotExist = True

Dim strInput, objFSO, objFile

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile(strFileName, ForWriting, CreateNotExist)

objFile.WriteLine "set Network = CreateObject("WScript.Network")"

(...)

objFile.Close

Set objFile = Nothing

Set objFSO = Nothing

Es wäre nett wenn ich eine leicht verständliche Antwort bekäme

...zur Frage

VBS Zeilen zählen?

Ich schreibe zur Zeit ein Programm und dieses soll sich selber auslesen, wie viele Zeilen das Programm selber hat. Geht dies und wenn ja, wie?

...zur Frage

VBA nur die ersten Unterordner anzeigen lassen?

Hallo,

wie muss ich diesen Code hier umschreiben damit NICHT die Unterordner der Unterordner angezeigt werden, sondern nur die der 'ersten Stufe'.

Also angenommen auf dem Laufwerk C:\ sind die Ordner

A, B, C, D, E

und diese Unterordner von C:\ enthalten jeweils auch Unterordner Namens
aa, bb, cc, dd, ee,

Dann schreibt der bisherige Code

A - aa
bb
cc
dd
ee
B - aa
bb

und so weiter.
Ich brauche aber nur die Ordner A, B, C, D, E und nicht deren Unterordner.

Public Sub OrdnerListen_Start()

Dim fso As Object
Dim strPfad As String

strPfad = "C:\"

With ActiveSheet

.UsedRange.ClearContents

Set fso = CreateObject("Scripting.FileSystemObject")

Call OrdnerListen(fso, strPfad, .Range("A1")) ' Pfad anpassen!

Set fso = Nothing

End With

End Sub

Private Sub OrdnerListen(fso As Object, Ordnerangabe As String, rng As Range, Optional Zeile As Long, Optional Spalte As Long)

On Error Resume Next

Dim o, uo

Set o = fso.GetFolder(Ordnerangabe)

rng.Offset(Zeile, Spalte).Value = o.Name
Zeile = Zeile + 1

For Each o In o.SubFolders

Call OrdnerListen(fso, o.Path, rng, Zeile, Spalte)

Set o = Nothing
Set uo = Nothing

End Sub

...zur Frage

Mit VBA Dateien in einem Ordner umbenennen?

Ich habe es mithilfe vom Internet und einigen sehr wenigen Kenntnissen meinerseits geschafft, mir einen Code zu schreiben, mit dem ich Dateien (Fotos - also JPG-Dateien) umbenennen kann. Leider habe ich einen Teil des Codes gelöscht und dies gespeichert. Somit funktioniert leider gar nichts mehr und ich bekommen immer den Fehler, dass die Datei nicht gefunden werden kann. Die Meldung bekomme ich immer in der Zeile "Name File.Name As x".

Kann mir bitte jemand helfen?

Hier mein Code:

  Shell "Explorer.exe C:\Users\LANGEMIC.HILTI\Documents\Temp, vbNormalFocus"
  Set FS = CreateObject("Scripting.FileSystemObject")
  Set Folder = FS.GetFolder("C:\Users\LANGEMIC.HILTI\Documents\temp")
  
  Dim x As Single
  x = ActiveCell
  
  For Each File In Folder.Files
    If File.Name Like ".jpg" Then
      ActiveCell.Offset(1, 0).Select
      x = ActiveCell
      Name File.Name As x
      End If
  Next
End Sub

...zur Frage

VBScript: Zeichen zählen?

Wenn ich Wörter zählen möchte mache ich das in Kopf was ein bisschen doof wird wenn man so um die 300 - 400 Wörter zählen muss. Dann kam mir die Idee: Wenn ich ein Wort gezählt habe haue ich einmal auf die Leertaste/eine Taste. Am Schluss drücke ich Enter und mein Programm soll zählen wie viele Zeichen ich eingegeben hab. Wie würde das gehen?

Worte = InputBox("Gib einfach Buchstaben und leerstellen ein und diese Werden dann gezählt!","Wörter zählen")

'Hier Wörter zählen

'_____________________________________________


'_____________________________________________

msgbox ""&Anzahl&" Wörter",0+64,"Wörter gezählt"
'Ende

î hier eine kleine Vorgabe ;)

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen