{"id":5253,"date":"2016-03-22T20:08:17","date_gmt":"2016-03-22T11:08:17","guid":{"rendered":"http:\/\/excelwork.info\/excel\/?p=5253"},"modified":"2016-03-23T20:46:18","modified_gmt":"2016-03-23T11:46:18","slug":"filegetpathname","status":"publish","type":"post","link":"https:\/\/excelwork.info\/excel\/filegetpathname\/","title":{"rendered":"\u30d5\u30eb\u30d1\u30b9\u304b\u3089\u30d5\u30a1\u30a4\u30eb\u540d\u3001\u30d1\u30b9\u3092\u53d6\u5f97\u3059\u308b"},"content":{"rendered":"

\u30d5\u30eb\u30d1\u30b9\u304b\u3089\u30d5\u30a1\u30a4\u30eb\u540d\u306e\u307f\u3092\u53d6\u5f97\u3059\u308b<\/h2>\n
\n

\u30d5\u30eb\u30d1\u30b9\u304b\u3089\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u53d6\u5f97\u3059\u308b\u306b\u306f\u3001Dir \u95a2\u6570<\/a> \u304c\u4fbf\u5229\u3067\u3059\u3002\u305f\u3060\u3057\u3001\u5bfe\u8c61\u3068\u306a\u308b\u30d5\u30a1\u30a4\u30eb\u304c\u5b58\u5728\u3057\u306a\u3044\u5834\u5408\u306f\u3001\u53d6\u5f97\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u305b\u3093\u3002
\n \u305d\u306e\u5834\u5408\u306f\u3001\u307e\u305a\u3001InStrRev \u95a2\u6570<\/a> \u3092\u4f7f\u3063\u3066\u30d5\u30eb\u30d1\u30b9\u306e\u6700\u5f8c\u306e\u300c\\\u300d\u306e\u4f4d\u7f6e\u3092\u53d6\u5f97\u3057\u307e\u3059\u3002\u6700\u5f8c\u306e\u300c\\\u300d\u306e\u5f8c\u304c\u3001\u30d5\u30a1\u30a4\u30eb\u540d\u3068\u306a\u308b\u306e\u3067\u3001Mid \u95a2\u6570<\/a> \u3092\u4f7f\u3063\u3066\u53d6\u5f97\u3057\u307e\u3059\u3002<\/p>\n<\/div>\n

\n

\u30d5\u30eb\u30d1\u30b9\u304b\u3089\u30d1\u30b9\u540d\u306e\u307f\u3092\u53d6\u5f97\u3059\u308b<\/h2>\n
\n

\u30d5\u30a1\u30a4\u30eb\u540d\u304c\u308f\u304b\u308c\u3070\u3001Replace \u95a2\u6570<\/a> \u3092\u4f7f\u3063\u3066\u30d5\u30eb\u30d1\u30b9\u304b\u3089\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u524a\u9664\u3057\u3066\u53d6\u5f97\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n<\/div>\n

\n

FSO \u3092\u4f7f\u7528\u3057\u3066\u30d5\u30eb\u30d1\u30b9\u304b\u3089\u30d1\u30b9\u30fb\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u53d6\u5f97\u3059\u308b<\/h2>\n
\n

FSO\uff08FileSystemObject\uff09<\/strong> \u3092\u4f7f\u7528\u3057\u3066\u3001\u30d5\u30eb\u30d1\u30b9\u304b\u3089\u30d1\u30b9\u3001\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u53d6\u5f97\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002\u30d1\u30b9\u3092\u53d6\u5f97\u3059\u308b\u306b\u306f\u3001GetParentFolderName \u30e1\u30bd\u30c3\u30c9<\/strong> \u3092\u4f7f\u7528\u3057\u307e\u3059\u3002\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u53d6\u5f97\u3059\u308b\u306b\u306f\u3001GetFileName \u30e1\u30bd\u30c3\u30c9<\/strong> \u3092\u4f7f\u7528\u3057\u307e\u3059\u3002
\n FSO<\/strong> \u306b\u95a2\u3057\u3066\u306f\u3001\u30d5\u30a1\u30a4\u30eb\u30b7\u30b9\u30c6\u30e0\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u4f7f\u3044\u65b9<\/a> \u3092\u53c2\u7167\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n<\/div>\n

\n

ConvertFormula \u30e1\u30bd\u30c3\u30c9 \u4f7f\u7528\u4f8b<\/h2>\n
\n

\u30b5\u30f3\u30d7\u30ebVBA\u30bd\u30fc\u30b9 1<\/h3>\n
\r\n\u3000\r\nSub Sample1_GetFileName()\r\n\r\n    Dim TargetFilePathName As String\r\n    Dim FileName As String\r\n    Dim FilePath As String\r\n    \r\n    TargetFilePathName = \"C:\\MyDocuments\\Sample.txt\"\r\n    \r\n    If Dir(TargetFilePathName) <> \"\" Then\r\n        '\u30d5\u30a1\u30a4\u30eb\u304c\u5b58\u5728\u3059\u308b\u5834\u5408\r\n        FileName = Dir(TargetFilePathName)\r\n    Else\r\n        '\u30d5\u30a1\u30a4\u30eb\u304c\u5b58\u5728\u3057\u306a\u3044\u5834\u5408\r\n        FileName = Mid(TargetFilePathName, InStrRev(TargetFilePathName, \"\\\") + 1)\r\n    End If\r\n    \r\n    FilePath = Replace(TargetFilePathName, FileName, \"\")\r\n    \r\n    MsgBox \"\u30d1\u30b9\uff1a\" & FilePath & vbCrLf & \"\u30d5\u30a1\u30a4\u30eb\u540d\uff1a\" & FileName\r\n\r\nEnd Sub\r\n\u3000\r\n  <\/pre>\n
\n
\u5b9f\u884c\u7d50\u679c 1<\/h3>\n
\"\u30d5\u30a1\u30a4\u30eb\u540d\u30fb\u30d1\u30b9\u53d6\u5f97\"<\/a><\/p>\n

\n
\u30b5\u30f3\u30d7\u30ebVBA\u30bd\u30fc\u30b9 2\uff08FSO \u4f7f\u7528\uff09<\/h3>\n
\r\n\u3000\r\nSub Sample2_GetFileName()\r\n    \r\n    'FileSystemObject \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u4f7f\u7528\u3059\u308b\u65b9\u6cd5\r\n        \r\n    Dim myFSO As Object\r\n    Dim TargetFilePathName As String\r\n    Dim FileName As String\r\n    Dim FilePath As String\r\n           \r\n    TargetFilePathName = \"C:\\MyDocuments\\Sample.txt\"\r\n    Set myFSO = CreateObject(\"Scripting.FileSystemObject\")\r\n    \r\n    FileName = myFSO.GetFileName(TargetFilePathName)\r\n    FilePath = myFSO.GetParentFolderName(TargetFilePathName)\r\n    \r\n    MsgBox \"\u30d1\u30b9\uff1a\" & FilePath & vbCrLf & \"\u30d5\u30a1\u30a4\u30eb\u540d\uff1a\" & FileName\r\n    \r\nEnd Sub\r\n\u3000\r\n  <\/pre>\n
\n
\u5b9f\u884c\u7d50\u679c 2<\/h3>\n
\"\u30d5\u30a1\u30a4\u30eb\u540d\u3001\u30d1\u30b9\u53d6\u5f97\uff08FSO\u4f7f\u7528\uff09\"<\/a><\/p>\n<\/div>\n

\n","protected":false},"excerpt":{"rendered":"
\u30d5\u30eb\u30d1\u30b9\u304b\u3089\u30d5\u30a1\u30a4\u30eb\u540d\u306e\u307f\u3092\u53d6\u5f97\u3059\u308b \u30d5\u30eb\u30d1\u30b9\u304b\u3089\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u53d6\u5f97\u3059\u308b\u306b\u306f\u3001Di … <\/p>\n","protected":false},"author":1,"featured_media":5254,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"amp_status":"","spay_email":"","jetpack_publicize_message":""},"categories":[675],"tags":[691,693,722,801,200,210,63,38],"jetpack_featured_media_url":"https:\/\/i2.wp.com\/excelwork.info\/excel\/wp\/wp-content\/uploads\/2016\/03\/getfilepath01.jpg?fit=207%2C170&ssl=1","jetpack_publicize_connections":[],"jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p4Ye9i-1mJ","_links":{"self":[{"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/posts\/5253"}],"collection":[{"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/comments?post=5253"}],"version-history":[{"count":6,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/posts\/5253\/revisions"}],"predecessor-version":[{"id":5305,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/posts\/5253\/revisions\/5305"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/media\/5254"}],"wp:attachment":[{"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/media?parent=5253"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/categories?post=5253"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/excelwork.info\/excel\/wp-json\/wp\/v2\/tags?post=5253"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}