Smide en fil ind i vb-program

Mener du \"Drag\'n drop\" ??

Ja.
på samme måde som, når man åbner \"Notesblok\" og smider en tekstfile ind i Notesblok.

Du opretter en \"handler\" til at varetage et \"on-drop\" event og skriver den fornødne kode i denne. Resten er noget med at kigge i dokumentationen for VB

Her er et eksempel lavet til Form1

Private Sub Form_Load()
    Form1.OLEDropMode = 1 \' Så kan der modtages filer vha. Drag\'n Drop
End Sub

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    While Data.Files.Count > 0 \' Så længe der er filer at hente
        Form1.Print Data.Files(1) \' Skriv filnavnet i formen
        Data.Files.Remove (1) \' Fjern filen fra listen
    Wend
End Sub

Det kan da ikke være lettere !?

I eksemplet med notepad kunne man bruge Text1 og skrive:

Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim f As Integer
    f = FreeFile
    While Data.Files.Count > 0
        If Right(Data.Files(1), 4) = \".txt\"
        Open Data.Files(1) For Input As f
        Text1.SelText = Input(FileLen(Data.Files(1)), f)
        Close #f
        Data.Files.Remove (1)
    Wend
End Sub

Ups, der mangler et Then

Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim f As Integer
    f = FreeFile
    While Data.Files.Count > 0
        If Right(Data.Files(1), 4) = \".txt\" Then
            Open Data.Files(1) For Input As f
            Text1.SelText = Input(FileLen(Data.Files(1)), f)
            Close #f
        End If
        Data.Files.Remove (1)
    Wend
End Sub 

Du får lige det hele bare for at spilde lidt plads på Eksperten:

Private Sub Form_Load()
    Text1.OLEDropMode = 1
End Sub

Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim f As Integer
    f = FreeFile
    While Data.Files.Count > 0
        If Right(Data.Files(1), 4) = \".txt\" Then
            Open Data.Files(1) For Input As f
            Text1.SelText = Input(FileLen(Data.Files(1)), f)
            Close #f
        End If
        Data.Files.Remove (1)
    Wend
End Sub

Tak winkill, det virker jo fint.

Ja, de har gjordt det ret godt ved MS hvad angår OLE og Drag\'n drop :-)