月額480円〜の高速レンタルサーバー ColorfulBox

« [VB6.0] �ե������������� | �ᥤ�� | [VB6.0] CSV����� »

2005年10月13日

[VB6.0] �ե������θ���

'�㣱��

Dim DireFile As String

'�����������ե���������
DireFile = Dir$(App.Path & "\", vbDirectory) '����ե������򤹤٤Ƹ���������
'DireFile = Dir$(App.Path & "\*.*") '����ե������Υե�����Τ߸���������

Do While DireFile <> ""
If (GetAttr(App.Path & "\" & DireFile)) And (vbDirectory) = vbDirectory Then
If Right(DireFile, 4) = ".csv" Then
MsgBox "�ե����뤢��"
End If
End If
DireFile = Dir$
Loop

'�㣲���ե�ѥ����狼�äƤ�����

Dim FileName As String
FileName = Dir(App.Path) ' & "\Sample.csv")

'�ե����뤬�ʤ���� FileName=""
If FileName <> "" Then
MsgBox "�ե����뤢��"
End If

2005 / 10 / 13