■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#34371-0長いパスからファイル名だけを取得の仕方野島2000-11-29(水) 17:53
     #34373-0RE#34371:長いパスからファイル名だけを取得の仕方うひょう2000-11-29(水) 18:05
     #34375-0RE#34371:長いパスからファイル名だけを取得の仕方よねKEN2000-11-29(水) 18:07
     #34380-0RE#34375:長いパスからファイル名だけを取得の仕方ふるふる2000-11-29(水) 18:51
     #34381-0RE#34371:長いパスからファイル名だけを取得の仕方ぜんちゃん2000-11-29(水) 18:54
     #34389-0RE#34371:長いパスからファイル名だけを取得の仕方くりちゃん2000-11-30(木) 00:45
     #34391-0RE#34389:長いパスからファイル名だけを取得の仕方aaa2000-11-30(木) 08:01
     #34395-0RE#34391:長いパスからファイル名だけを取得の仕方魔界の仮面弁士2000-11-30(木) 10:00
     #34400-0RE#34395:長いパスからファイル名だけを取得の仕方aaa2000-11-30(木) 11:17
#34371-0
長いパスからファイル名だけを取得の仕方
はじめまして、野島と言います。

長いパスからファイル名だけを取得したいのですが、どのようにすれば良いのでしょうか?

よろしくお願い致します。
#34373-0
RE#34371:長いパスからファイル名だけを取得の仕方
> はじめまして、野島と言います。
> 長いパスからファイル名だけを取得したいのですが、どのようにすれば良いのでしょうか?
> よろしくお願い致します。

適当で申し訳ないです

private function GetFName(byref aa as string) as string
dim i as integer

aa=trim$(aa)
for i=len(aa) to 1 step -1
    if mid$(aa,i,1)="\" then exit for
next
getfname=mid$(aa,i+1)

exit function

ちなみに試してません・・・

なんちゃってうひょう
#34375-0
RE#34371:長いパスからファイル名だけを取得の仕方
> 長いパスからファイル名だけを取得したいのですが、どのようにすれば良いのでしょうか?
文字列を後ろから調べて、\が見つかるまでがファイル名。
VB6ならInStrRevで。
VB5なら後ろから地道に一文字づつチェックなど。
文字列からの切り出しはRight関数など。

あるいはFSOあたりでもできるかも(不明)
#34380-0
RE#34375:長いパスからファイル名だけを取得の仕方
> > 長いパスからファイル名だけを取得したいのですが、どのようにすれば良いのでしょうか?
> 文字列を後ろから調べて、\が見つかるまでがファイル名。
> VB6ならInStrRevで。
> VB5なら後ろから地道に一文字づつチェックなど。
> 文字列からの切り出しはRight関数など。
> 
> あるいはFSOあたりでもできるかも(不明)

そのファイルが存在しているならば、Dir関数で一発。
#34381-0
RE#34371:長いパスからファイル名だけを取得の仕方
> 長いパスからファイル名だけを取得したいのですが、どのようにすれば良いのでしょうか?
既に回答が出ていますが、こんな方法も
Dir("フルパス")でファイル名だけが返ってきますよ。
ただし、存在してなければダメですけど・・・
#34389-0
RE#34371:長いパスからファイル名だけを取得の仕方
> はじめまして、野島と言います。> 
> 長いパスからファイル名だけを取得したいのですが、どのようにすれば良いのでしょうか?

 FileSystemObject オブジェクトの GetFileName メソッド を利用する方法。

 Dim myFSO As Object
 Set myFSO = CreateObject("Scripting.FileSystemObject")
 Debug.Print myFSO.GetFileName("C:\Program Files\Microsoft Visual Studio\VB98\VB6.EXE")
 Set myFSO = Nothing

 ただし、指定されたパスが実際に存在するかどうかはチェックしないようですね。
#34391-0
RE#34389:長いパスからファイル名だけを取得の仕方
>  FileSystemObject オブジェクトの GetFileName メソッド を利用する方法。
> 
>  Dim myFSO As Object
>  Set myFSO = CreateObject("Scripting.FileSystemObject")
>  Debug.Print myFSO.GetFileName("C:\Program Files\Microsoft Visual Studio\VB98\VB6.EXE")
>  Set myFSO = Nothing

CreateObject("Scripting.FileSystemObject")を使って
VB6で開発したのですがIE4 のマシンでは、
うまく動きませんでした。これって、IE5以上なんですか???
どこかの本に Windows Host Script が必要って書いてあった
気もするけど。。。

教えて〜
#34395-0
RE#34391:長いパスからファイル名だけを取得の仕方
> CreateObject("Scripting.FileSystemObject")を使って
参照設定で、[Microsoft Scripting Runtime]をチェックしておくと、
  Dim FSO As FileSystemObject
  Set FSO = New FileSystemObject
という書き方ができます。IntelliSense機能が使えるので、便利ですよ。


> VB6で開発したのですがIE4 のマシンでは、
> うまく動きませんでした。これって、IE5以上なんですか???
SCRRUN.DLLも配布してください。


> どこかの本に Windows Host Script が必要って書いてあった
> 気もするけど。。。
FileSystemObjectが含まれている環境…
  Windos 98/Me/2000
  NT4 Option Pack
  Windows Scripting Host
  VB6
などであると思います。(未確認)

ですから、FileSystemObjectが含まれていない環境(素のWindows95など)であれば、
Windows Scripting Hostを入れるのが確実である、という事でしょう。
#34400-0
RE#34395:長いパスからファイル名だけを取得の仕方
> > CreateObject("Scripting.FileSystemObject")を使って
> 参照設定で、[Microsoft Scripting Runtime]をチェックしておくと、
>   Dim FSO As FileSystemObject
>   Set FSO = New FileSystemObject
> という書き方ができます。IntelliSense機能が使えるので、便利ですよ。

魔界の仮面弁士  様、ありがとうございました。

もう一つ質問があります。
[コントロールパネル]_[ODBC32]_[ユーザDSN]に
VB6側から追加することは、可能なのでしょうか???

教えて〜
このページと関連する記事:
#11735-0フォルダ名の取得について2000-09-27(水) 14:11
#34392-0お礼:長いパスからファイル名だけを取得の仕方2000-11-30(木) 09:15
#12593-0ディレクトリ(ファイル)の取り出し方2000-11-07(火) 05:33
#967-0Windowsディレクトリを取得する方法について2001-09-20(木) 17:31
#8000-0ファイルの有無チェックはできますか?1999-10-22(金) 09:34
#36859-0ディレクトリの取得2001-01-14(日) 02:48
#703-1フルパスからファイル名を得る2002-09-06(金) 11:25
#11594-0ファイル名や拡張子を取得1999-12-14(火) 09:50
#14498-0フルパスからフォルダ名取得2001-02-14(水) 18:05
#41633-0Shell関数2001-04-12(木) 16:47
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)