1) Есть file1 и Dir1 на форме. оба взаимосвязаны. И есть кнопочка удаления. Так вот как мне сделать активным что то одно, или file1 или Dir1? Есть у них свойство наподобие Value? Или надо с listindex мудрить???
- Код: Выделить всё
If Dir1.ListIndex < -1 Then
Dim dirName2 As String, resp As String
dirName2 = Dir1.List(Dir1.ListIndex)
resp = MsgBox("Óäàëèòü ïàïêó è ôàéëû íàõîäÿùèåñÿ â íåé? " & vbCrLf & dirName2, vbYesNo + vbExclamation, _
"Ïîäòâåðæäåíèå óäàëåíèÿ")
If resp = vbYes Then
fso.DeleteFolder (dirName2)
Dir1.Refresh
Else
Dim a, filname, resp2 As String
a = File1
resp2 = MsgBox("Âûáðàíà êîìàíäà óäàëèòü ôàéë " & a & vbCrLf & "Âû äåéñòâèòåëüíî õîòèòå ïðîäîëæèòü?", vbYesNo + vbExclamation, "Óäàëåíèå ôàéëà " & a)
If resp2 = vbYes Then
FileCopy File1.Path & "\" & a, App.Path & "\Delete\" & a
Kill File1.Path & "\" & a
File1.Refresh
End If
End If
End If
