|
inoue様 ご指摘ありがとうございました。
プログラムを少し変更していますので引き続き勉強しています。
Seasonというファイルの中に
春
夏
秋
冬
という形でデータを入れています。File_Pathでこのファイルを開きデータを配列に
いれ、Dir_Name()のファルダ配下にSeason().txt
という形で存在しているかをチェックするプログラムをつくりたいのですが、
まだはじめて1ヶ月くらいなため以下のところまでしかできていません。
また、ファイルの存在をチェックするFileExists関数も使用可能ならどのように使用したらよろしいでしょうか?
Option Explicit
Const path1 = "C:\Documents and Settings\デスクトップ\temp"
Sub FullPath_Get() 'パス取得用
Dim i As Integer, Dir_Name(6) As String
For i = 0 To 6
Select Case i
Case 0
Dir_Name(i) = "ONE"
Case 1
Dir_Name(i) = "TWO"
Case 2
Dir_Name(i) = "THREE"
Case 3
Dir_Name(i) = "FOUR"
Case 4
Dir_Name(i) = "FIVE"
Case 5
Dir_Name(i) = "SIX"
Case 6
Dir_Name(i) = "SEVEN"
End Select
Call File_Path
Next i
End Sub
sub File_Path()
Dim Season_path as string,Season() as string,x as integer
Season_path=path1 & "\"&"Season.txt"
file_No = FreeFile
Open Season_path For Input As file_No
Do While Not EOF(file_No)
Line Input #file_No, Season_data
Season = Split(Season_data)
Loop
Close file_No
for x = 0 to Ubound(Season,1) '配列の最大値まで繰り返している。
'これ以降はまだ作成中
next x
End Sub
|
|