質問があります。
あるディレクトリの配下のファイル名を取得するには
どのようにしたらよいのでしょうか?
またその場合、どういった形式で取得できるのでしょうか?

もうひとつファイルをオープンして一行しかない
ファイルの場合だけ編集を行い、
上書きするという処理をご存知のかた
いましたら、教えてください。

このQ&Aに関連する最新のQ&A

A 回答 (3件)

1つ目の質問の回答ですが、「Dir関数」を使えばできます。


やり方は、ヘルプに載っているので見てください。

2つ目の質問の回答ですが、
--------------------------------
Dim strFile As String
Dim strLine As String

'☆☆☆☆1行取り出し☆☆☆☆
'ファイルを開く
Open strFile For Input As #1
'ファイルから1行読み取る
Line Input #1, strLine
'ファイルを閉じる
Close #1

'☆☆☆☆書き込み☆☆☆☆
strLine="書き込むよ!!"
Open strFile For Output As #1
Print #1, strLine
Close #1

--------------------------------
ただし、エラー処理は、省略してます。
こんなんでどうでしょう?
    • good
    • 0
この回答へのお礼

ありがとうございました。
Dir関数でできました。
引数を省略すると次のファイル名が
取得できるようです。
あとはOutput,Inputを
使って解決することができました。

お礼日時:2001/06/08 10:17

最初のファイル名取得ですが、4つほどあります。



1.Dir関数を使用する
osaosa42さんが紹介されてますね。最も一般的な方法です。

2.ファイルシステムオブジェクトを使用する
VB6からだと思います。
Dirよりも高機能・・・だったと思います。

3.WindowsAPIを使用する
FindFirstFile,FindNextFile,FindCloseを使用します。Dir関数では取れない情報をとったり、再帰的にフォルダの内容を取得したりしたい場合に使用したりします。Dirより高速。

4.ファイルリストボックスを利用する
ファイルリストボックスをフォームに貼りつけて、VisibleをFalseにしておいて、利用します。

こんなところでしょうか。
用途によって使い分けます。使い方が載っているページを紹介しておきます。

http://www.galliver.co.jp/writing/vbm_tokushu/ap …
http://www.vbvbvb.com/jp/gtips/0051/gFindFirstFi …
    • good
    • 0

こんにちは、honiyonです。


 今手元にVBがないので分かりませんが、ヘルプにのっているはずです。(ファイル名の取得)
 因みにDelphiでは FindFirst, FindNextを使います。
 検索エンジンで、「VB ファイル名 取得」で検索したら色々と参考文献が見つかると思います。(試してません^^;)

 一行しかないファイルの検索方法ですが、まずファイルを開くまではOKですよね? その後「一行だけのファイルである」と判断の仕方を提示します。
 一行だけのファイル(テキスト形式)であるのは、

   1.データ(文字)が書かれているけど改行コードが含まれていない。
   2.改行コード以降にデータ(文字)がかかれていない。

 のどちらかだと思います。
 改行コードは 0x0D 0x0Aです。 (0D,0A,ひょっとしたら逆かも^^;)

 曖昧なアドバイスですが、参考になれば幸いです(..
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qリストのピアノ曲で…

リストのピアノ曲の中で比較的難易度の低いものを教えて下さい。
過去に弾いたことがあるのは、愛の夢・ため息のみです。
手は大きくなく、何とか9度届くくらいです。
宜しくお願いします。

Aベストアンサー

比較的難易度の低いものといっても、<ため息>を弾かれたなら、「忘れられたワルツ」や、あるいは、「巡礼の年」をぱらぱらとご覧になってみて、譜読みしたい(できそうな)ものを選ばれるというのはどうでしょうか?以下は、私自身が過去に譜読みしたもので、それほど無体でなかった(爆)と思うものです。
お役に立てば良いのですが。

参考までに、無料のオンライン楽譜サイトURL添付しておきますね。
(信頼おけるところなので、クリックしても大丈夫です(笑))

忘れられたワルツ(1番は比較的聞かれる機会もあるかと)
<http://imslp.org/wiki/Valses_Oubli%C3%A9es,_S.215_%28Liszt,_Franz%29>
巡礼の年(第1年:4番は美しい曲です)
<http://imslp.org/wiki/Ann%C3%A9es_de_P%C3%A8lerinage:_1%C3%A8re_Ann%C3%A9e:_Suisse,_S.160_%28Liszt,_Franz%29>
巡礼の年(第2年イタリア:「ダンテを読んで」は難しいですけど、1番、3番、あるいはペトラルカのソネット104番などは練習すれば何とか…と思わせるものがあります)
<http://imslp.org/wiki/Ann%C3%A9es_de_P%C3%A8lerinage:_2%C3%A8me_Ann%C3%A9e:_Italie,_S.161_%28Liszt,_Franz%29>

比較的難易度の低いものといっても、<ため息>を弾かれたなら、「忘れられたワルツ」や、あるいは、「巡礼の年」をぱらぱらとご覧になってみて、譜読みしたい(できそうな)ものを選ばれるというのはどうでしょうか?以下は、私自身が過去に譜読みしたもので、それほど無体でなかった(爆)と思うものです。
お役に立てば良いのですが。

参考までに、無料のオンライン楽譜サイトURL添付しておきますね。
(信頼おけるところなので、クリックしても大丈夫です(笑))

忘れられたワルツ(1番は比較的聞か...続きを読む

Qディレクトリ以下のファイル・フォルダをすべて取得

あるディレクトリ以下のファイルをすべてListViewやListBoxに表示させるものを作成したいのですが、どうすればよいのでしょうか?
VisualBasic2008を使っております。

Aベストアンサー

Directoryクラスを使ってフォルダー名やファイル名を取得しましょう

Function GetFileNameOrSubFolderName( sPath as String) as String()
  dim sNames as String() = Directory.GetFiles( sPath )
  dim sFolders as String() = DIrectory.GetDirectories( sPath )
  dim Results as String()
  ReDim Results( sNames.Length + sFolders.Length -1 )
  dim n as Integer
  for n = 0 to sNames.Lenth -1
    Resules( n ) = sName(n)
  next
  ' フォルダー名の前後に[]を追加
  for n = 0 to sFolders.Length - 1
    Results( sName.Length + n ) = "[" & sFolders(n) & "]"
  next
  return Results
End Function
といった具合で取得して

ListBox1.Items.Clear()
for each ss as string in GetFileNameOrSubFolderName( "C:\Work" )
  ListBox1.Items.add( ss )
next
といった具合でリストボックスなどに反映しましょう
# エラー処理などをしていませんので適宜修正してください

Directoryクラスを使ってフォルダー名やファイル名を取得しましょう

Function GetFileNameOrSubFolderName( sPath as String) as String()
  dim sNames as String() = Directory.GetFiles( sPath )
  dim sFolders as String() = DIrectory.GetDirectories( sPath )
  dim Results as String()
  ReDim Results( sNames.Length + sFolders.Length -1 )
  dim n as Integer
  for n = 0 to sNames.Lenth -1
    Resules( n ) = sName(n)
  next
  ' フォルダー名の前後に[]を追加...続きを読む

Q情報少ないですが、是非リストのピアノ曲のタイトルを教えてください。

昔外国で聞いたコンサートで、リストのピアノ独奏曲があったのですが
タイトルが思い出せません。
ピアニスト本人が英語で”パ行の発音を発していたような。。
曲は長調、最初左手のみ?でレミ(それから下に下がって)ソラレ?といったような主題が流れます。最後の方にも同じものが再現部に現れ、終盤はドビッシーのアラベスクのようなアルペジオが流れます。曲はアンコールで弾かれたので長くなく5分程度、全体的に大変美しい曲ですが、珍しいものではないかと思います。

間違いない情報としましては。。
フランツ リストであること
愛の夢やため息、コンソレーション3番、軽やかさといった、有名な曲ではない事
(二つの伝説や、メフィストワルツ、マゼッパでもありませんでした)
図書館とCDショップであたってみるつもりですが、曲を探そうにもタイトルが分かりません。。
リストにお詳しい方など、是非教えてください。

Aベストアンサー

自信は無いですが、巡礼の年 (Annees de Pelerinage)、第二年、イタリア、から第一曲目の「婚礼」(Sposalizio)ではないかなとふと思いました。聴いてみてくださいな。

このCDの一曲目。視聴できます。
http://www.amazon.com/Liszt-Piano-Works-Annees-Pelerinage/dp/B00000E2MO/ref=sr_1_3/102-6333279-0771332?ie=UTF8&s=music&qid=1177292401&sr=8-3

またはこのCDの二曲目。
http://www.amazon.com/Liszt-Paralipom%C3%A8nes-Franz/dp/B00000AE0E/ref=sr_1_5/102-6333279-0771332?ie=UTF8&s=music&qid=1177292627&sr=1-5

Qファイルに上書きするとファイルの中身が消えてしまいます。

.NETで、テキストファイルの中身が
30
20
10
と改行されているファイルを読み込み、それを10を15にして再度テキストファイルに書き込みする時に、
Print(a, スコア(DataCounter) + Environment.NewLine)
というので書き込んでいるのですが、

追加情報 : 文字列 "
" から型 'Double' へのキャストが有効ではありません。

というエラーが出てしまいます。
もしかして、Environment.NewLineっていうのは、文字列にしか使えないのですか?であれば、数値に対するものはあるのでしょうか?
教えていただければ助かります。

Aベストアンサー

>Environment.NewLineっていうのは、文字列にしか使えないのですか?
というか、実体が文字列なので文字列以外とどうこうしようというのは
ちょっと無理があるような。

> Print(a, スコア(DataCounter) + Environment.NewLine)

スコア(DataCounter)を文字列化してやって、& で連結すればよいのではないでしょうか?
CStr(スコア(DataCounter)) & Environment.NewLine
かな?

Qショパンとリストの合作であるピアノ曲はあるのでしょうか

ピアノの楽譜を見ていて(確か全音の楽譜だったと思います)、作曲家がショパン=リストとなっている曲が1曲あったように記憶しています。
その曲名は思い出せないのですが、その曲は偉大な作曲家であるフレデリック・ショパンとフランツ・リストの両名による合作なのでしょうか。まあ同世代の人間ですし交流もあったようですから合作の曲があってもおかしくないと思いますが。

そして合作だとしたら、その曲が生まれた経緯はわかりますでしょうか。20年ほど前に桑田佳祐とMr.Childrenによる合作の「奇跡の地球」という歌がありましたが、そのようなコラボレーションプロジェクトだったのではないかと思うのですが、どうでしょう。

Aベストアンサー

今は洋楽では大人数の共作、共演、featureといったことが当たり前に多くなされています(そういう手段の普及度は日本とは比較にならないです)が、西洋クラシックの時代に人気作曲家が合作といったことは割と少ないと思いますよ。
まず自分の知る限りでは、この頃の作曲家は非常に作家性や自我の強い人達であり、今のロックバンドなんかと異なりピアノに向かって黙々と1人で創作することに慣れていて、共同で1つの作品を創作するなんてとても出来そうにないことと、宗教音楽の時代と異なり著作物の権利問題に既に厳しくなっていて、「共作」という権利問題の扱いがまだまだ成熟していなかったこと、等が挙げられると思います。実際、作家の間で使用許可を得たとか得ないとかパクっただとかの訴訟問題は当時からよく起こっていたようです。

ただ、作曲(ピアノ版や、ピアノ譜のスケッチ等)は1人の人が担い、後々編曲版を別の人が作るといったことは多かったようです。
実際、ドビュッシーは無名のサティを世に出す手助けをする為にジムノペディを管弦楽アレンジしていますし、ラヴェルはドビュッシーの管弦楽曲のピアノ版、もしくはピアノ曲の管弦楽版を編曲したりしています。言うまでもなくこれらは同時代を生きた作曲家達です。
上のように、既にある有名曲を後々別の有名作家が編曲するということは多いですが、人気作家で忙しかったドビュッシーは、管弦楽曲のスケッチを自ら作曲して、友人であり作曲家であったにカプレにおおまかな指示だけしてオーケストレーションを任せる等のことも度々しています。これは共作とは言えるかもしれませんが、どちらかというと「分業」もしくはカプレは「アシスタント」ですし、「作曲家」は完全にドビュッシーとなりますよね。

ということで、「ショパン=リスト」となっていたら、自分ならなんとなく「リストが後々編曲したのかな」と思います。詳しいことは知らないので憶測でそう思うってだけですけどね。参考までに。

今は洋楽では大人数の共作、共演、featureといったことが当たり前に多くなされています(そういう手段の普及度は日本とは比較にならないです)が、西洋クラシックの時代に人気作曲家が合作といったことは割と少ないと思いますよ。
まず自分の知る限りでは、この頃の作曲家は非常に作家性や自我の強い人達であり、今のロックバンドなんかと異なりピアノに向かって黙々と1人で創作することに慣れていて、共同で1つの作品を創作するなんてとても出来そうにないことと、宗教音楽の時代と異なり著作物の権利問題に既...続きを読む

Q『ファイルの上書きの確認』ダイアログボックスの際に旧ファイルをバックアップする。

みなさんこんにちわ。いつも大変助かっています。



はじめまして、田中といいます。
初心者的な質問ですが宜しくお願いします。



ファイルの上書き保存で、更新日時が新しいからと言って、最新とは限らないので、
毎回ファイルの中身を見てファイルの上書き保存をする必要があります。

WINDOWS XPはファイルを移動するとその際にコンペアチェックして、
相違が見られると『ファイルの上書きの確認』ダイアログボックスが表示されていると思います。
直感でそう思いました。

そこで、『ファイルの上書きの確認』ダイアログボックスが表示されたら、
所定フォルダにバックアップするようにVBで作りたいのです。


そこで質問です。
どのような感じで作れば良いか、アドバイスをお願いします。

『ファイルの上書きの確認』ダイアログボックスが表示されたら、
上書きされる側のファイルをバックアップするという感じで考えています。
あとその表示されたかを1秒ごとにチェックしようと思っています。
CPUに負荷が掛かるのでその辺りを如何すれば良いか素人に教えてください。

漠然とした質問で申し訳ありませんが宜しくお願いします。

みなさんこんにちわ。いつも大変助かっています。



はじめまして、田中といいます。
初心者的な質問ですが宜しくお願いします。



ファイルの上書き保存で、更新日時が新しいからと言って、最新とは限らないので、
毎回ファイルの中身を見てファイルの上書き保存をする必要があります。

WINDOWS XPはファイルを移動するとその際にコンペアチェックして、
相違が見られると『ファイルの上書きの確認』ダイアログボックスが表示されていると思います。
直感でそう思いました。

そこで、『ファ...続きを読む

Aベストアンサー

 お求めの作業は、.Net のコントロール「OpenFileDialog」や「SaveFileDialog」がほとんど自動でサポートしてくれます。

 まず、VB.NET の一般的なコントロールで何が出来るかを、概観する事をお奨めします。別におぼえなくてもいいんです。こんな事ができるのか、というイメージがつかめれば、ヘルプを引く助けになります。

Qショパン,リスト,ラフマニノフのピアノ曲オススメ

こんにちは。

ピアノに関してはまったくのど素人のクラシック音楽愛好家です。
ベタな質問で恐縮ですが,作曲家自身が名ピアニストでもあった三名様(ショパン,リスト,ラフマニノフ)のピアノ独奏曲または四手のための作品のオススメをご教示いただけましたら幸いです。

【お願い事項】
 ・作曲家お一人様それぞれ数作品程度をめどに
  (傑作がたくさんあって絞るのは大変かと思いますが)
 ・三名のうちのどなたかだけ,もちろん一曲だけのオススメでもOK
 ・聴きやすい,親しみやすい曲想でなくてもOK
 ・曲の長短は不問
 ・一般的な世評をご教示いただいてもいいですし,個人的好みでもOK
 ・お気に入りのCDアルバムでご紹介いただいてもOK
 ・私の好みは無視していただいてOK(えっ,そんなの知ったこっちゃない?^^;)

なお,これらは勝手なお願いですので,作品数の縛りも含め,ご自由にご回答いただいてももちろん結構です。


では,よろしくお願いいたします♪

Aベストアンサー

意外なご質問ですね。
私の好みは無視していただいてOK…とのことですので,
マニアックなものではなく,オーソドックスなもので考えてみました。

リスト
http://www.hmv.co.jp/product/detail.asp?sku=237633

迷った結果(迷うほど多くは知らないのですが),ひとつに絞るならこれにしました。
ユーザーレビュー 2007年10月04日の方のコメント通り,
Un sospiro「ため息」と,La leggerezza「軽やかさ」の印刷ミスがあります。
「12の超絶技巧練習曲」や,ラ・カンパネラでお馴染みの「パガニーニによる大練習曲」,
よく聴く機会があるので演奏される頻度が高いのではと思う「森のざわめき」など,
有名なものは満載の2枚組です。お勧めの低価格盤です。
ハンガリー狂詩曲はオーケストラでご存知のものがあるでしょうし,
こちらの方がいいのではと思いました。
「巡礼の年」は大人の香りがする通好みで,質問者様にぴったりかもしれないと迷いましたが,
それは後のお楽しみにということで,まずは上記のもの絞りました。


ラフマニノフ
http://www.hmv.co.jp/product/detail/853252

安いものばかり上手に買っています。
幻想小品集 作品3-1『エレジー』は私のお気に入りです。
もう少し演奏のテンポが速いといいのですが。(私好みでは)
楽興の時 4番 ホ短調 作品16-4はショパンの「革命」からの影響かな?…と思います。
演奏は別のCDでも,『エレジー』が入っているものがお勧めです。
lib08に試聴があります。
http://piano1001.com/lib_0_frame.htm


ショパン
一番迷ったので最後になりました。
ノクターン,バラード,スケルツォ,ソナタ,ワルツ……,どれもいい!,どうしましょう。
迷いに迷って,やっぱり,ノクターン!
お気に入りの演奏があったのですが残念ながら廃盤になっていました。
http://www.hmv.co.jp/product/detail/742515

悪口は禁句かもしれませんが,ポリーニとワイセンベルクにはがっかりしました。
全曲は聴いていませんが,キーシンの演奏にはグッときました。
でも,これも残念ながらノクターン全曲のCDがなさそうです。
というわけで,演奏者のお勧めは分かりませんが,遺作を含む21番まで入っているものを
お選びください。映画「戦場のピアニスト」で使われた20番 嬰ハ短調 遺作は特に好きです。
下記,動画の試聴でどうぞ。ノクターン第20番 「遺作」(ルイ・レーリンク)
http://www.piano.or.jp/enc/dictionary/composer/chopin/000448.html

意外なご質問ですね。
私の好みは無視していただいてOK…とのことですので,
マニアックなものではなく,オーソドックスなもので考えてみました。

リスト
http://www.hmv.co.jp/product/detail.asp?sku=237633

迷った結果(迷うほど多くは知らないのですが),ひとつに絞るならこれにしました。
ユーザーレビュー 2007年10月04日の方のコメント通り,
Un sospiro「ため息」と,La leggerezza「軽やかさ」の印刷ミスがあります。
「12の超絶技巧練習曲」や,ラ・カンパネラでお馴染みの「パガニーニに...続きを読む

QVBA カレントディレクトリ取得について

お世話になってます。
VBAの初心者です。

test.mdbファイルを "C\TEST" という作業ディレクトリ配下において
そのmdbのモジュールでCurDirを使用してカレントディレクトリを取得する
という処理をVBAで書きたいのですが、

Dim strPath As String

strPath = CurDir("C")

と記述し実行しても
strPathに格納される値は "C\" となってしまいます。
本当は"C\TEST"という値を取得したいのですが、
使用方法が間違っているのか、何が悪いのかよく分かりません。

よろしくお願い致します。

Aベストアンサー

CurrentProject.Path
では?

Qショパン・リストでオススメのピアノ曲のCDを教えて下さい

ショパンやリストの、エチュード系のCDを探しています。

『エチュード全集』や『ハンガリー狂詩曲全集』など、出来たら選曲集ではなく、全集が好ましいです。

演奏家については、殆ど無知ですので、有名な方を教えていただければと思います。



どうぞ宜しくお願い致します。

Aベストアンサー

◇ショパンの練習曲はポリーニをお勧めします。
http://www.hmv.co.jp/product/detail/851768

ポリーニは好みに合わなくて何度もがっかりさせられましたが,
この1枚は別でした。目が覚めるような鮮やかな演奏です。
一番,お勧めしたいのはホロヴィッツですが,
残念ながら,練習曲集,ワルツ集のように,まとまった形では
C Dが出ていません。演奏は素晴らしいです。
http://www.hmv.co.jp/Product/detail.asp?sku=1818508

◇リスト ハンガリー狂詩曲全集
 ピサロ
http://www.hmv.co.jp/product/detail.asp?sku=1460034

使用楽器がブリュートナーということで珍しい録音かと思います。
楽器の特性が表れていると思いますが,豊かな響きの好録音です。
演奏は都会的というか,この曲集でよく聴く「こてこて」した感じがなく,
品の良いハンガリー狂詩曲です。

ブリュートナーの説明
http://d.hatena.ne.jp/keyword/%A5%D6%A5%EA%A5%E5%A1%BC%A5%C8%A5%CA%A1%BC


◇リスト 練習曲集
 リスト弾きの饗宴ということで複数のピアニストです。
http://www.hmv.co.jp/product/detail.asp?sku=237633

ガンガンと力が入った演奏は何度も繰り返し聴いていると疲れを感じ,飽きてきますが,
この曲集は,全体に力んだ演奏はなく,良いと思います。
この値で,この内容はお買い得かと思います。

>演奏家については、殆ど無知ですので、有名な方を教えていただければと思います。
商業ベースに乗るのが下手で,あまり名は売れていないけれど,
たいへん優れたピアニストもいますので,「有名な方」は
あまり気にしなくていいと思います。
一部の音楽評論家の意見で,「ショパン弾き」とか「リスト弾き」と
レッテルが貼られますが,それも一種の商業ベースによるものです。

◇ショパンの練習曲はポリーニをお勧めします。
http://www.hmv.co.jp/product/detail/851768

ポリーニは好みに合わなくて何度もがっかりさせられましたが,
この1枚は別でした。目が覚めるような鮮やかな演奏です。
一番,お勧めしたいのはホロヴィッツですが,
残念ながら,練習曲集,ワルツ集のように,まとまった形では
C Dが出ていません。演奏は素晴らしいです。
http://www.hmv.co.jp/Product/detail.asp?sku=1818508

◇リスト ハンガリー狂詩曲全集
 ピサロ
http://www.hmv.co.jp/produc...続きを読む

Qフルパスから最後のディレクトリ名を取得したい。

vb.netなのですが、例えば
c:\aaa\bbb\ccc\ddd\eee\fff.exe
というフルパスがあったとして、
eeeというディレクトリ名を取得したいのですが、
何か良い方法はないでしょうか。
それぞれのディレクトリ名の文字数や階層数は
決まっていないのですが、オススメの方法が
ありましたら、教えて頂けると助かります。

Aベストアンサー

MessageBox.Show(IO.Path.GetFileName(IO.Path.GetDirectoryName(myPath)))

IO.Path の GetDirectoryName でフォルダのフルパスを取得して、さらに IO.Path の GetFileName で最終フォルダ(またはファイル)の名前を取得。


人気Q&Aランキング

おすすめ情報