Как убрать расширение файлов?
У меня есть FileLB, который отображает содержимое папки с txt файлами.
Мне необходимо, что бы писалось не "заметка.txt" , а просто "заметка"
Зарание всем спасибо....
Private Sub Update()
Dim i as Integer
lstFiles.Clear
For i = 0 To filFiles.ListCount - 1
lstFiles.AddItem Left$(filFiles.List(i), Len(filFiles.List(i))-4)
Next i
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5