创建IIS虚拟目录 DircetoryEntry

 //项目->引入System.DirectoryServices

 

    using namespace System::DirectoryServices;
    using namespace System::IO;

 

//text1Box1是服务器名 textBox2是要创建的虚拟目录名 textBox3是源目录名

 if( (this->textBox1->Text == String::Empty) || (this->textBox2->Text == String::Empty) || (this->textBox3->Text == String::Empty) || (!Directory::Exists(this->textBox3->Text)) ){
                      MessageBox::Show("请输入正确的服务器名、虚拟目录和实际目录路径！", "", MessageBoxButtons::OK, MessageBoxIcon::Information);
                      return;
                 }
                 String^ MySchema;
                 String^ MyIISRootPath;
                 DirectoryEntry^ MyVirtualDiretory;
                 DirectoryEntry^ MyRootDirectoryEntry;
                 if(this->radioButton1->Checked){
                     MySchema = "IIsWebVirtualDir";
                     MyIISRootPath = "/W3SVC/1/Root";
                 }
                 else{
                     MySchema = "IIsFTPVirtualDir";
                     MyIISRootPath = "MSFTPSVC/1/Root";
                 }
                 MyRootDirectoryEntry = gcnew DirectoryEntry("IIS://" + this->textBox1->Text + MyIISRootPath);
                 try{
                     MyRootDirectoryEntry->RefreshCache();
                     MyVirtualDiretory = MyRootDirectoryEntry->Children->Add(this->textBox2->Text, MySchema);//添加虚拟目录
                     MyVirtualDiretory->Properties["Path"]->Insert(0, this->textBox3->Text);
                     MyVirtualDiretory->CommitChanges();
                     if(this->radioButton1->Checked){
                         MyVirtualDiretory->Invoke("AppCreate", true);
                         MyVirtualDiretory->CommitChanges();
                     }         
                     MyRootDirectoryEntry->CommitChanges();
                     MyVirtualDiretory->Close();
                     MyRootDirectoryEntry->Close();
                     MessageBox::Show(this->textBox2->Text + "虚拟目录创建操作成功！", "", MessageBoxButtons::OK, MessageBoxIcon::Information);
                 }
                 catch(Exception^ eee){
                     MessageBox::Show(this->textBox2->Text + "虚拟目录创建操作失败", "", MessageBoxButtons::OK, MessageBoxIcon::Information);
                 }