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

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von DexMex, 3. Februar 2009 .

Schlagworte:
  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen
  1. #1 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.
     

  2. Anzeige
  3. #2 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
    
     

  4. Videos zum Thema
Die Seite wird geladen...