So-net無料ブログ作成
検索選択

VBScript でファイル選択ダイアログ [Windows/ASP/VBScript]

無理だと思ってたら、こんなの↓を発見
http://hp.vector.co.jp/authors/VA006065/scripts/bat2vbsf.htm
なくなると困るので、ここにコピペさせていただく
BrowseForFolder() のパラメーターを変えると、フォルダ選択にも使えるみたい


Option Explicit

Const ssfDRIVES = &h11
Const BIF_RETURNONLYFSDIRS   = &h0001
Const BIF_EDITBOX            = &h0010   ' IE5
Const BIF_BROWSEINCLUDEFILES = &h4000   ' IE5

' Get folder or file (file is only valid IE 5 or lator)

Function GetFolder(bFile)
  Dim oShell
  Dim oFolder

  bFile = False ' assume select as a Folder path
  Set oShell = CreateObject("Shell.Application")
  Set oFolder =_
    oShell.BrowseForFolder(0, "Select folder (or file, if you can do it!)",_
      BIF_EDITBOX Or BIF_BROWSEINCLUDEFILES, ssfDRIVES)
  Set oShell = Nothing

  If Not oFolder Is Nothing Then
    On Error Resume Next
    GetFolder = oFolder.Items.Item.Path
    If Err = 7 Then ' it may be a File
      'On Error Goto 0
      Dim Fn, i

      Err.Clear
      bFile = True
      Fn = oFolder.Title
      Do
        Set oFolder = oFolder.ParentFolder
        i = InStr(oFolder.Title, ":")
        If i <> 0 Then
          Fn = Mid(oFolder.Title, i-1, 2) & "\" & Fn
          Exit Do
        End If
        Fn = oFolder.Title & "\" & Fn
      Loop Until Err <> 0
      If Err <> 0 Then Fn = ""  ' Not a File
      GetFolder = Fn
    End If
    Set oFolder = Nothing
  End If
End Function

Dim path, bfi
path = GetFolder(bfi)
If path <> "" Then
  Dim note
  If bfi Then note = "File" Else note = "Folder"
  MsgBox note &  path
End If

nice!(0)  コメント(0) 
共通テーマ:パソコン・インターネット

nice! 0

コメント 0

コメントを書く

お名前:
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。