VBScript Dateiauswahl Dialog

Umlüx

Huge Metal Fan

Registered: Jun 2001
Location: Kärnten
Posts: 8964

05.04.2011 - 13:53

ich scheitere grade daran, einen dateiauswahldialog zu basteln. nach langem rungooglen bin ich auf BrowseForFolder gestoßen, und ich kann mir die struktur damit zwar anzeigen lassen und ordner auswählen, aber keine files.

Code: VB

dim objshell, retPath
set objshell = CreateObject("Shell.Application")
set retPath = objshell.BrowseForFolder(0,"Datei Wählen", &H4241,17)
MsgBox retPath

wie mach ich es nun richtig :confused:

watchout

Legend
undead

Registered: Nov 2000
Location: Off the grid.
Posts: 6845

05.04.2011 - 17:24

Nur eine Vermutun, hab keine Ahnung von der vbscript API:

Code: VB

objshell.BrowseForFile

?

Jedenfalls BrowseForFolder wird dich wohl eher nicht files auswählen lassen

DKCH

...

Registered: Aug 2002
Location: #
Posts: 3279

05.04.2011 - 17:28

Code: VB

Set objDialog = CreateObject("UserAccounts.CommonDialog")
'objDialog.Filter = "VBScript Scripts|*.vbs|All Files|*.*"
objDialog.Filter = "All Files|*.*"
objDialog.FilterIndex = 1
objDialog.InitialDir = "C:\Temp"
nResult = objDialog.ShowOpen

If nResult = 0 Then
MsgBox "Cancel"
Else
MsgBox objDialog.FileName
End If

?

edit: ah, geht nur bis xp, anscheinend...

Bearbeitet von DKCH am 05.04.2011, 17:37

Umlüx

Huge Metal Fan

Registered: Jun 2001
Location: Kärnten
Posts: 8964

05.04.2011 - 23:48

tjaa browseforfile gibts leider nicht

und es sollte unter Win7 laufen.

watchout

Legend
undead

Registered: Nov 2000
Location: Off the grid.
Posts: 6845

06.04.2011 - 00:40

Code: VB

Option Explicit

WScript.Echo "Selected file: " & ChooseFile( )

Function ChooseFile( )
' Select File dialog based on a script by Mayayana
' Known issues:
' * Tree view always opens Desktop folder
' * In Win7/IE8 only the file NAME is returned correctly, the path returned will always be C:\fakepath\
' * If a shortcut to a file is selected, the name of that FILE will be returned, not the shortcut's
    On Error Resume Next
    Dim objIE, strSelected
    ChooseFile = ""
    Set objIE = CreateObject( "InternetExplorer.Application" )
    objIE.visible = False
    objIE.Navigate( "about:blank" )
    Do Until objIE.ReadyState = 4
    Loop
    objIE.Document.Write "<HTML><BODY><INPUT ID=""FileSelect"" NAME=""FileSelect"" TYPE=""file""><BODY></HTML>"
    With objIE.Document.all.FileSelect
        .focus
        .click
        strSelected = .value
    End With
    objIE.Quit
    Set objIE = Nothing
    ChooseFile = strSelected
End Function

von http://www.robvanderwoude.com/vbstech_ui_fileopen.php (3. Hit http://www.google.com/search?q=file+dialog+in+vbscript

)

Umlüx

Huge Metal Fan

Registered: Jun 2001
Location: Kärnten
Posts: 8964

06.04.2011 - 08:46

ja die seite hab ich auch gefunden, nur die 2 oberen funktionierten nicht und beim 3. hab ich nur InternetExplorer gelesen und gedacht, das sei so für mich nicht anwendbar.

naja.. hinhauen tut das ja dennoch nicht, da er den pfad nicht liefert.

Bearbeitet von Umlüx am 06.04.2011, 08:51

Umlüx Huge Metal Fan Registered: Jun 2001 Location: Kärnten Posts: 8964	05.04.2011 - 13:53 ich scheitere grade daran, einen dateiauswahldialog zu basteln. nach langem rungooglen bin ich auf BrowseForFolder gestoßen, und ich kann mir die struktur damit zwar anzeigen lassen und ordner auswählen, aber keine files. Code: VB `dim objshell, retPath set objshell = CreateObject("Shell.Application") set retPath = objshell.BrowseForFolder(0,"Datei Wählen", &H4241,17) MsgBox retPath` wie mach ich es nun richtig
watchout Legend undead Registered: Nov 2000 Location: Off the grid. Posts: 6845	05.04.2011 - 17:24 Nur eine Vermutun, hab keine Ahnung von der vbscript API: Code: VB `objshell.BrowseForFile` ? Jedenfalls BrowseForFolder wird dich wohl eher nicht files auswählen lassen
DKCH ... Registered: Aug 2002 Location: # Posts: 3279	05.04.2011 - 17:28 Code: VB `Set objDialog = CreateObject("UserAccounts.CommonDialog") 'objDialog.Filter = "VBScript Scripts\|.vbs\|All Files\|." objDialog.Filter = "All Files\|." objDialog.FilterIndex = 1 objDialog.InitialDir = "C:\Temp" nResult = objDialog.ShowOpen If nResult = 0 Then MsgBox "Cancel" Else MsgBox objDialog.FileName End If` ? edit: ah, geht nur bis xp, anscheinend... Bearbeitet von DKCH am 05.04.2011, 17:37*
Umlüx Huge Metal Fan Registered: Jun 2001 Location: Kärnten Posts: 8964	05.04.2011 - 23:48 tjaa browseforfile gibts leider nicht und es sollte unter Win7 laufen.
watchout Legend undead Registered: Nov 2000 Location: Off the grid. Posts: 6845	06.04.2011 - 00:40 Code: VB Option Explicit WScript.Echo "Selected file: " & ChooseFile( ) Function ChooseFile( ) ' Select File dialog based on a script by Mayayana ' Known issues: ' * Tree view always opens Desktop folder ' * In Win7/IE8 only the file NAME is returned correctly, the path returned will always be C:\fakepath\ ' * If a shortcut to a file is selected, the name of that FILE will be returned, not the shortcut's On Error Resume Next Dim objIE, strSelected ChooseFile = "" Set objIE = CreateObject( "InternetExplorer.Application" ) objIE.visible = False objIE.Navigate( "about:blank" ) Do Until objIE.ReadyState = 4 Loop objIE.Document.Write "<HTML><BODY><INPUT ID=""FileSelect"" NAME=""FileSelect"" TYPE=""file""><BODY></HTML>" With objIE.Document.all.FileSelect .focus .click strSelected = .value End With objIE.Quit Set objIE = Nothing ChooseFile = strSelected End Function von http://www.robvanderwoude.com/vbstech_ui_fileopen.php (3. Hit http://www.google.com/search?q=file+dialog+in+vbscript )
Umlüx Huge Metal Fan Registered: Jun 2001 Location: Kärnten Posts: 8964	06.04.2011 - 08:46 ja die seite hab ich auch gefunden, nur die 2 oberen funktionierten nicht und beim 3. hab ich nur InternetExplorer gelesen und gedacht, das sei so für mich nicht anwendbar. naja.. hinhauen tut das ja dennoch nicht, da er den pfad nicht liefert. Bearbeitet von Umlüx am 06.04.2011, 08:51

VBScript Dateiauswahl Dialog

Forum Index > Software > Coding Stuff

Umlüx

watchout

DKCH

Umlüx

watchout

Umlüx