Excel for mac 2011でDir関数?
Excel for mac 2011でDir関数を使用したファイルサーチが出来ません。なぜなのでしょうか?
使用環境は、Excel for mac 2011 ver. 14.1.0, MacOS X 10.6.7, MacBook Airです。
働いている研究室がMac onlyのため、Mac版のExcelにvbaを移植しようと考えているのですが、以下のプログラムが上手く動きません。
------------------vbaプログラム
Private Sub CommandButton1_Click()
Dim strPATHNAME As String ' 指定フォルダ名
Dim strFILENAME As String ' 検出したファイル名
Dim ExistFILE As Boolean ' "*.TXT"ファイルの判定
' 「フォルダの参照」よりフォルダ名の取得
strPATHNAME = MacScript("choose folder")
strPATHNAME = Mid(strPATHNAME, 7) 'aliasを削る
If strPATHNAME = "" Then Exit Sub
' 指定フォルダ内のTEXTのファイル名を参照する
strFILENAME = Dir(strPATHNAME, vbNormal) '<------ここでファイルを検出しない。
ExistFILE = strFILENAME Like "*.TXT"
If strFILENAME = "" Then
MsgBox "このフォルダにはTXTファイルは存在しません。"
Exit Sub
End If
End Sub
------------------
上記プログラムは、コマンドボタンを押すとフォルダを指定して、その中の”.TXT”という拡張子のついたファイルを見つけるプログラムです。(実際には何もしないダミープログラムですが)
しかしこれを実行すると、Dir関数の所で何も検出してくれません。
ローカル変数を追って、フォルダまでのパスにカタカナが入ったらダメだとか、”alias”が邪魔だとかは解決したのですが、肝心のDir関数が上手く動いていないことに気づきました。
どなたか詳しい方にお願い致します。
どうすれば、指定したフォルダ中の拡張子”.TXT”がついたファイルを見つけることが出来るのか?教えて頂ければ幸いです。