Windows 7 Scipting with Windows 7

Discussion in 'Programming and Scripting' started by Hajime, Jul 12, 2010.

  1. Hajime

    Hajime New Member

    Joined:
    Jul 12, 2010
    Messages:
    4
    Likes Received:
    0
    Can anyone help? i need a scipt that calls a "file open menu" and how to assign a name into it. I am thinking of creating a converter that runs on windows 7 and im kinnda stuck in this part, Thanks
     
  2. Hajime

    Hajime New Member

    Joined:
    Jul 12, 2010
    Messages:
    4
    Likes Received:
    0
    o_O I think i found the answer i just hope that this code works..... if you have any more suggestions feel free to reply thanks.

    i've used this code below:

    Function ChooseFile()
    Dim Result
    Dim IE : Set IE = CreateObject("InternetExplorer.Application")
    With IE
    .Visible = False
    .Navigate("about:blank")
    Do Until .ReadyState = 4 : Loop
    With .Document
    .Write "<html><body><input id='f' type='file'></body></html>"
    With .All.f
    .Focus
    .Click
    Result = .Value
    End With
    End With
    .Quit
    End With
    Set IE = Nothing
    ChooseFile = Result
    End Function

    MsgBox ChooseFile()


    just hope that this works
     

Share This Page

Loading...