PathFileExistsの罠

VB6,VBA,VBS,EXCEL,DOS,BAT,WSH,WORDの小技メモ

HTML/ CSS/ CGI-Perl/ JavaScript/ JavaApplet/ AccessUp/ Internet/ EnglishLearn/ ちゃいちゃん天使/ 天使メッセージ/ 飯田ワールド/ 結城ワールド/ プロフィール/ WEB相談室/ WEBアンテナ/ 燈明日記/ Perlノート/ 漢字起源/ yahoo

はじめに

本ページは、ウインドウズ系全般のティプスメモです。

そう、はじめはVB系のティプスメモだったのですが…いつの間にか、ウインドウズ系全般のティプスメモになってしまいました。

ちなみに、ティプス(Tips)とは、マニュアルに書かれていない技法や裏わざのことですが、本ページでは、私が経験してこれはと思ったノウハウのメモになっています。

尚、以下は本サイトの最新情報(ブログ)です。

それでは、本ページが何かのお役に立てれば幸いです。ごゆっくりご覧ください。

2009-10-07 PathFileExistsの罠

VB2005でのPathFileExistsで、はまったのでメモしときます。


PathFileExistsは、引数にファイルパスを指定して、そのファイルが存在する場合、真(0以外)が返され、存在しない場合、偽(0)が返されます。

そのファイルパス中にカタカナが含まれると、なぜかファイルパスの文字列は壊されるのです。


◆NGサンプル
Declare Function PathFileExists Lib "shlwapi" Alias "PathFileExistsA" (ByVal lpszPath As String) As Integer
 :    
 : 
    Dim strFilePath As String = "C:\Documents and Settings\All Users\スタート メニュー\プログラム\スタートアップ\AP.lnk"
    If PathFileExists(strFilePath) = 0 Then
       MsgBox "ファイルが存在しません。
    End If

存在チェックは正常なのですが、そのあとstrFilePathの内容を見ると『スタート』以降が無くなるのです。つまり、strFilePathの内容が壊されるのです。

原因はわかりませんが、パス中のカタカナが悪さをしている感じです。


◆OKサンプル1

これを以下のようにコンスタントにすると大丈夫になります。

    Const strFilePath As String = "C:\Documents and Settings\All Users\スタート メニュー\プログラム\スタートアップ\AP.lnk"
    If PathFileExists(strFilePath) = 0 Then
       MsgBox "ファイルが存在しません。
    End If

◆OKサンプル2

また、直接引数に文字列を指定しても大丈夫です。

    If PathFileExists("C:\Documents and Settings\All Users\スタート メニュー\プログラム\スタートアップ\AP.lnk") = 0 Then
       MsgBox "ファイルが存在しません。
    End If

おわりに

以下のページには、すべてのTIPSがあります。もしよろしければ、どうぞ!

尚、ご感想、ご意見、誤字、脱字、間違い等がありましたら遠慮なくVB-TIPS掲示板へご指摘ください。

人のよいところをどんどん見つけよう