[VisualBasic] inputbox CreateObject("Scripting.FileSystemObject")

DexMex · 3. Februar 2009

inputbox CreateObject("Scripting.FileSystemObject")

VBS ist vill. schon etwas aus der mode gekommen aber an vba wollte ich jetz noch nicht so ran , evt. bleibt mir auch keine andere wahl wenns keine lösung dafür gibt.

Was ich vor habe:

1. ich habe in einem ordner von 1- 10 test.txt zu liegen
2. die mit einer inputbox gesteuert werden sollen/ zB. 3 test (text der enthalten ist in einer Lst datein copiert wird)

das kopieren ist ja kein thema den code ...

Dim fso
set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.copyfile "c:\1-10test.txt", "c:\default.Lst"
wscript.quit

Nur möchte ich das es über der inputbox den weg leitet
und wie ich den code an der inputbox hinzufüge.

Anzeige

Coldasice2k · 5. Februar 2009

Hi, sorry, ich verstehe nicht wirklich was du machen willst, also wenn du den Inhalt einer Datei in eine andere schreiben willst, dann bist du mit diesem Script auf dem Holzweg, di kopierst nämlich gerade die Datei selbst...

Hier noch die Syntax für Inputboxen...

Code:


Public Function Eing()

Dim eingabewert As String

eingabewert = InputBox("Bitte etwas eingeben", "Titel der Inputbox")

If StrPtr(eingabewert) = 0 Then
 MsgBox "Es wurde 'Abbrechen' angeklickt'"
 Else
 If eingabewert = "" Then
 MsgBox "Es wurde nichts eingegeben"
 Else
 MsgBox "Es wurde '" & eingabewert & "' eingegeben"
 End If
End If

End Function

Nützliche Suchen

[VisualBasic] inputbox CreateObject("Scripting.FileSystemObject")

Videos zum Themenbereich