以前に、ファイル名のフルパスからフォルダ名だけを取り出す方法を質問しました。
ファイル名フルパス=D:\test\image\image.bmp
フォルダ名=D:\test\image\
この質問に対して、ファイル名をフルパスを fullpath とし、フォルダ名を foldernameとすると、下記のコードで取得できるとの回答をいただきました。
foldername = left(fullpath, instrrev(fullpath, "\"))
そこで、フォームに、「フルパス」という名前のテキストボックスと、「フォルダ名」という名前のテキストボックスを作成し、コマンドボタンのクリック時イベントに、下記のコードを記述しました。
Me.フォルダ名 = left(Me.フルパス, instrrev(Me.フルパス, "\"))
しかし、実行すると、「プロ-ジャーの呼び出し、又は引数が不正です。」というエラーメッセージが表示されてしまいます。
どうすればよいのでしょうか?
No.1ベストアンサー
- 回答日時:
instrrev関数は、office97に無いものです。
office2000からあった関数だと思います。
なのでやるとすれば、
Dim intLoc As Integer
Me.フォルダ名 = ""
intLoc = Len(Me.フルパス)
Do
If intLoc = 0 Then
Exit Do
EndIf
If Mid(Me.フルパス,intLoc,1) = "\" Then
Exit Do
Endif
intLoc = intLoc - 1
Loop
If intLoc > 1 Then
Me.フォルダ名 = Me.フォルダ名Mid(Me.フルパス, intLoc - 1)
EndIf
あまり良いプログラムでありませんが参考にして下さい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) シートをコピーする下記記述でダイアログを用いた記述がわかりません?( A = Dir(ThisWor 4 2022/08/22 12:26
- Excel(エクセル) 【VBA】フォルダAにある2つのファイルの内1つを、フォルダBへ。もう1つを、フォルダBへ移動したい 6 2022/07/26 08:51
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) 入力ボックスが繰り返しポップアップして止まらない。 下記コードでファイル名の変更をしたいのですが、変 1 2022/09/08 11:27
- Visual Basic(VBA) ファイル名の右側を変更したい ファイル名:「1001日別売上」の左側へ「2022」を追加し、「202 6 2022/10/14 10:03
- Android VBA、フォルダのパスに環境文字 ㉑ があり、VBAが機能しません。 2 2022/07/27 09:16
- Visual Basic(VBA) batにて、異なるフォルダの同名ファイルを参照し、文字列を判別。擬似配列で変数へ格納 3 2022/04/10 03:37
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
新幹線について
-
オセロ(リバーシ)の棋譜のパ...
-
RmDirでフォルダが削除できない...
-
Axfcのダウンロードのパスワード
-
USJのスタジオパスとエクスプレ...
-
ディズニーランドのDPAとPPの取...
-
ヘルプマークって印刷した物を...
-
MSアクセスのjpgファイル表示
-
フォトショップからイラストレ...
-
Windowsにおける「ごみ箱フォル...
-
エクセルVBA 特殊フォルダのパ...
-
ExcelVBA ショートカットファイ...
-
Excel 指定したフォルダから指...
-
よみうりランドの入場料金につ...
-
ニュー速VIPで使われるパスワー...
-
エクセルである行以下全部を削...
-
白飛びした(明るい)写真をiPhon...
-
Androidのスマホで毎回毎回ホー...
-
EXCEL VBAで全選択範囲の解除
-
「無」と「未」の使い方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
どうかどなたか教えてください。
-
ディズニーランドのDPAとPPの取...
-
USJのスタジオパスとエクスプレ...
-
Axfcのダウンロードのパスワード
-
Accessのフォームで商品の画像...
-
フォルダ選択でなくフルパスを...
-
RmDirでフォルダが削除できない...
-
Photoshop cc 正円形のパス線が...
-
新幹線について
-
Accessマクロで出てくるコマン...
-
HEWのワークスペースが開けない
-
ActiveWorkbook.Pathの一つ上
-
セルにフルパスを入力してPDFフ...
-
ExcelVBA ショートカットファイ...
-
EXCELファイルのカレントフォル...
-
今度、関西に旅行に行こうと思...
-
エクセルVBA 特殊フォルダのパ...
-
ACCESSのエラーについて
-
街コンやイベントで入場時のも...
-
MSアクセスのjpgファイル表示
おすすめ情報