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)

Bild zum Beitrag

Was mache ich falsch?

1 Antwort

Vom Beitragsersteller als hilfreich ausgezeichnet

regex9

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Computer, Technik, Programm

16.06.2018, 11:23

Hast du in diesem Verzeichnis denn Schreib- und Leserechte? Führe dein Skript einmal mit Administratorrechten aus.

Sofern du die Datei zuvor schon einmal geöffnet oder erstellt hast, solltest du den dort verwendeten Stream schließen. Tue dies auch mit oFile, nachdem du alle Operationen mit dem Handler durchgeführt hast, die du durchführen wolltest.

Ähnliche Beiträge

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.

...zum Beitrag

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

...zum Beitrag

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 :)

...zum Beitrag

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

...zum Beitrag

VBS Variable in eine .txt Datei schreiben?

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

...zum Beitrag

VBScript: Zahlen runden?

Hallo ich habe ein Programm. Ja ach ne XD

Ich rechne dort die Prozente u.s.w. aus und hat auch alles geklappt. Nur jetzt hat man 36 Punkte und das Programm hat gerechnet, dass ab 36,40 eine 3 hat und bis zu 35,40 eine Vier. Nun möchte ich das runden uzwar so: 4.48 = 5, 4.2 = 4 u.s.w.

Dass heißt wenn es eine Nachkommastelle gibt das es auf ...,5 rundet.

...zum Beitrag

mit vbs Skript ein click auf den Bildschirm machen?

Hi ich wollte mal fragen wie oben steht mit welchem vbs script man ein click auf der Position x = 423 , y = 354 macht habe schon vieles ausprobiert wie :

Dim x
 set x=createobject("wscript.shell")

 x.sendkeys"{CLICK LEFT,50,60}"

oder

With CreateObject("WScript.Shell")
    .Run "nircmd setcursor 100 100", 0, True
    .Run "nircmd sendmouse right click", 0, True
End With

keine ahnung ob das vbs ist aber kann wer helfen wie ich diesen click mit vbs mache ?

...zum Beitrag

(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

...zum Beitrag

VBScript Umlaute wie ö oder ü in MsgBox ausgeben?

Hallo,

Wir sind in der Schule gerade Skripting mit VBS am lernen. im Moment noch ziemlich am Anfang. Jetzt bin ich ein Skript am schreiben welches jemandem einen guten Tag wünscht xD

Aber wenn ich schreibe "Ich wünsche dir einen schönen Tag "..... dann werden das ü und das ö nicht angezeigt.

Wie mach ich das? In HTML kann man ja mit Ü oder so umlaute schreiben. Geht das in VBS auch? Wenn ja, wie?

Hier ist mal mein Skript:

Dim filename
Dim objFSO
Dim username
Set objNetwork = CreateObject("Wscript.Network")
filename = Wscript.ScriptfullName
username = objNetwork.UserName

Danke für die Antworten :)

Lg KilerAffe msgbox "Ich wünsche dir einen schönen Tag " & username, vbOKonly, ":)"

...zum Beitrag

Per VBS Tastenkombination ausführen?

Hi, ich muss per VBS eine Tastenkombination ausführen und zwar folgende:

STRG + Windows-Taste + D

Manche wissen vielleicht, dass man damit einen neuen virtuellen Desktop unter Windows erstellt. Ich habe bereits folgende Ansätze, nur leider funktioniert nichts davon:

Set shell = CreateObject("WScript.shell")
shell.SendKeys "^{HOME}d"

Theoretisch müsste es ja funktionieren, vielleicht ist der Syntax falsch, kenn mich mit VBS net wirklich aus :)

Danke für jede Hilfe!

...zum Beitrag

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?

...zum Beitrag

VBS Nach Wort suchen und Zeile auslesen?

Hallo Leute,

ich hätte ein kleines Vorhaben.

Ich möchte eine VBS-Datei schreiben.

Es soll so ablaufen:

Man gibt ein Wort ein, nach dem in einer Word-Datei (wenn's nicht geht, dann .txt) gesucht wird.
Es wird die gesamte Zeile, in der das Wort steht, ausgegeben.
Es wird die darauf folgende Zeile ausgegeben.

Ist eigentlich mega simpel, aber ich krieg es nicht auf die Reihe.

Für Lösungsansätz, Denkanstöße und Lösungen wäre ich dankbar. =)

MfG,

Arthur

...zum Beitrag

VBA | Tabellen-PDF auch mit Datum speichern?

Hallo zusammen,

ich speichere mein Tabellenblatt als PDF,

Trotz Recherche und Tests kommt bei mir eine Fehlermeldung, wenn ich ein Datum in den Namen einfügen möchte.

Dim DateiName As String

Sheets("rec").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

DateiName = "Testseite01.pdf"

...zum Beitrag

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 ;)

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen