Sub fFA()
Dim a(3) as string
If a(0) Then
If a(1)="" Then a(1)="2"
If a(2)="" Then a(2)="3"
ElseIf a(3)=".wav" Then
ElseIf a(3)=".ogg" Then
ElseIf a(3)=".wma" Then
End If
End Sub
Dim a(3) as string
If a(0) Then
If a(1)="" Then a(1)="2"
If a(2)="" Then
a(2)="3"
ElseIf a(3)=".wav" Then
ElseIf a(3)=".ogg" Then
ElseIf a(3)=".wma" Then
End If
End If
Dim a(3) as string
If a(0) Then
If a(1)="" Then a(1)="2" 'スペース1個でも化
If a(2)="" Then a(2)="3" '〃
ElseIf a(3)=".wav" Then
ElseIf a(3)=".ogg" Then
ElseIf a(3)=".wma" Then
End If