32 lines
817 B
Plaintext
32 lines
817 B
Plaintext
|
Option Explicit
|
||
|
|
|
||
|
|
Const BIF_returnonlyfsdirs = &H0001
|
||
|
|
|
||
|
|
Dim wsh, objDlg, objF, fso, spoFile
|
||
|
|
Set objDlg = WScript.CreateObject("Shell.Application")
|
||
|
|
Set objF = objDlg.BrowseForFolder (&H0,"Select your DF folder", BIF_returnonlyfsdirs)
|
||
|
|
|
||
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
||
|
|
If fso.FileExists("DF_PATH.txt") Then
|
||
|
|
fso.DeleteFile "DF_PATH.txt", True
|
||
|
|
End If
|
||
|
|
|
||
|
|
If IsValue(objF) Then
|
||
|
|
If InStr(1, TypeName(objF), "Folder") > 0 Then
|
||
|
|
Set spoFile = fso.CreateTextFile("DF_PATH.txt", True)
|
||
|
|
spoFile.WriteLine(objF.Self.Path)
|
||
|
|
End If
|
||
|
|
End If
|
||
|
|
|
||
|
|
Function IsValue(obj)
|
||
|
|
' Check whether the value has been returned.
|
||
|
|
Dim tmp
|
||
|
|
On Error Resume Next
|
||
|
|
tmp = " " & obj
|
||
|
|
If Err <> 0 Then
|
||
|
|
IsValue = False
|
||
|
|
Else
|
||
|
|
IsValue = True
|
||
|
|
End If
|
||
|
|
On Error GoTo 0
|
||
|
|
End Function
|