Не проверено:
Dim t As MSForms.Control, v
v = ""
For Each t In Me.Frame1.Controls
If TypeOf t Is MSForms.TextBox Then
v = v & iif(v <> "", "," , "") & Trim(t.Value)
End If
Next t
Cells(emptyRow, 15).Value = v
При удалении объектов, таких как пулы приложений, виртуальные каталоги или приложения IIS, необходимо сделать это как это:
string appPoolPath = "IIS://Localhost/W3SVC/AppPools/MyAppPool";
using(DirectoryEntry appPool = new DirectoryEntry(appPoolPath))
{
using(DirectoryEntry appPools =
new DirectoryEntry(@"IIS://Localhost/W3SVC/AppPools"))
{
appPools.Children.Remove(appPool);
appPools.CommitChanges();
}
}
Вы создаете a DirectoryEntry
объект для объекта, который Вы хотите удалить затем, создает a DirectoryEntry
для его родителя. Вы затем говорите родителю удалять тот объект.
Можно также сделать это также:
string appPoolPath = "IIS://Localhost/W3SVC/AppPools/MyAppPool";
using(DirectoryEntry appPool = new DirectoryEntry(appPoolPath))
{
using(DirectoryEntry parent = appPool.Parent)
{
parent.Children.Remove(appPool);
parent.CommitChanges();
}
}
В зависимости от задачи в руке я буду использовать любой метод.