| |
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
