Studio ODIN

VBS ����t�H���_�_�C�A���O���J��

�悭����l�^�ł����A���������Ƃ��āB

Const ssfDESKTOP = &H0      ' Desktop
Const ssfPERSONAL = &H5     ' My Documents
Const ssfMYPICTURES = &H27  ' My Pictures
Const ssfWINDOWS = &H24     ' Windows

Function GetNewFolderPath(IstrMessage, IlngRoot)
GetNewFolderPath = ""

    Dim objWShell, objFolder

    Set objWShell = WScript.CreateObject("Shell.Application")
    Set objFolder = objWShell.BrowseForFolder(0, IstrMessage, 0, IlngRoot)

    If (Not objFolder Is Nothing) Then
        GetNewFolderPath = objFolder.Self.Path
    End If

    Set objFolder = Nothing
    Set objWShell = Nothing

End Function

Msgbox GetNewFolderPath("Select Folder", ssfPERSONAL)

�L�����Z������Ƌ󕶎��񂪕Ԃ��Ă���݂����ȁB