Folder Structureについて

質問

Folder Structureの作り方について教えてください。。
テキストファイルに書かれているものを行ごとに読み取ってそれを
フォルダーにするものを作りたいんです。
まずメニューバーに｛フォルダー作成｝を作り、
そのフォルダー作成を押し、テキストファイルを選択します。
そして

一月,3,サッカー
二月,2,バスケ
三月,5,野球

このようなものがテキストファイルにある時。。
一月、二月、三月のフォルダーを指定された場所に作り
一月のフォルダーの中にはサッカーのフォルダーが三個、
二月のフォルダーの中にはバスケのフォルダーが二個。。
となるようなプログラムを組みたい時
どのようなコードになるのか教えてください。
お願いします。

回答No.2

temtecomai2 · ベストアンサー

無理矢理に 1つのプロシージャに収めるならこんな感じかな。
#1 で回答したロジックでやってます。
ファイルは Shift-JIS だと仮定してます。
エラー処理をつけたり、分離させたりしてみてください。

Const baseDir As String = "D:\base\"
Dim ts As System.IO.StreamReader
ts = New System.IO.StreamReader(System.IO.File.Open("d:\test.txt", IO.FileMode.Open, IO.FileAccess.Read), System.Text.Encoding.GetEncoding("Shift-JIS"))

Do Until ts.EndOfStream
　　Dim param() As String = Split(ts.ReadLine(), ",")
　　System.IO.Directory.CreateDirectory(baseDir & param(0))
　　For i As Integer = 1 To param(1)
　　　　System.IO.Directory.CreateDirectory(baseDir & param(0) & "\" & param(2) & i.ToString())
　　Next
Loop
ts.Close()

お礼

ありがとうございます。
これでなんとかできそうです。

回答No.1

temtecomai2

たぶんこの質問文の書き方では回答がつかないかと。

【言語は何ですか？】
ここは VB のカテゴリーですけど、ここに書かれる質問としては
VB 6.0 （場合によっちゃそれよりも前のバージョンも）
VB.NET 2002、VB.NET 2003、VB 2005（それぞれ、Windows アプリケーションや Web アプリケーションなど、作る対象アプリの種類もあります）
VBA（何の製品の VBA なのか）
VBScript
だいたい質問される言語はこんな感じだと思います。

【質問で言っている「フォルダ」とは何のことですか】
いわゆる一般的なフォルダのことですか？
それともアプリケーションのメニュー構造の事ですか？
と言いますのも、一般的なフォルダの場合、同じ場所に同じ名前のフォルダを複数作成することはできません。
"一月" という名前のフォルダの中に "サッカー" という名前のフォルダを 3つ作ることはできません。

なので、とりあえず現時点で答えられる範囲で言えば、、、
テキストファイルから 1行ずつデータを読み込む。
Split 関数のような動作で、1行データをカンマで分けて配列に格納する。
配列の 1番目の要素が親フォルダ。この名前でフォルダを作成する。
配列の 2番目の要素が子フォルダの数。
配列の 3番目の要素が子フォルダの名前。
テキストファイルを扱う場合、VB.NET 系じゃなければ FileSystemObject を使えば良いでしょう。
ファイルを読み取りのために開くのは FileSystemObject の OpenTextFile メソッド。
http://msdn.microsoft.com/library/ja/script56/html/jsmthOpenTextFile.asp
開いたファイル（TextStream）から 1行ずつ読み込むのは TextStream オブジェクトの ReadLine メソッド。
http://msdn.microsoft.com/library/ja/script56/html/jsmthReadLine.asp
フォルダを作成するのも FileSystemObject の CreateFolcer メソッド。
http://msdn.microsoft.com/library/ja/script56/html/jsmthCreateFolder.asp

補足

すいません！言語書くのを忘れてしまって。。
あと変な文章になってしまって。。

言語はＶＢ２００５です。
ここで言ってるフォルダとはマイドキュメントなどで
新しいフォルダを作るなどのフォルダの事です。
同じ名前ではなくサッカー１、サッカー２としたかったんです。。

なのでこれをふまえてＶＢ２００５で使えるサイトを教えていただけると幸いです。
temtecomai2さんお願いします。