Sub Get_Path(File_Path)
'Call Get_Path(File_Path)
Set tf = CreateObject("Scripting.FileSystemObject")
pth = ThisWorkbook.Path
Set tf_txt = tf.OpenTextFile(pth & "\jwc_temp.txt", 1, True)
Do Until tf_txt.AtEndOfStream
    tmp = tf_txt.readline                       '1行読み込み
    If Left(tmp, 5) = "file=" Then
        File_Path = Right(tmp, Len(tmp) - 5)
        Exit Do
    End If
Loop
End Sub