« [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