VB.NET 创建文件夹

用Directory.CreateDirectory即可创建文件夹：

威信ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：18982081108（备注：SSL证书合作）期待与您的合作！

' 建立目录

If Not Directory.Exists("C:\负屃\"  TextBox1.Text) Then '检查文件夹是否存在

Directory.CreateDirectory("C:\负屃\"  TextBox1.Text)  '不存在，创建文件建夹

End If

你的例子是因为少了一个"\"引起的，正确的如下：

Dim fsotest As New FileSystemObject

If fsotest.FileExists("C:\负屃\"  TextBox1.Text) = False Then

fsotest.CreateFolder("C:\负屃\"  TextBox1.Text) '这里你少了一个\

End If

MsgBox("创建成功")

用.net实现文件夹加密

using System;

using System.Drawing;

using System.Collections;

using System.ComponentModel;

using System.Windows.Forms;

using System.Data;

using System.IO ;

using System.Diagnostics ;

using System.Threading ;

namespace 伪装文件夹

{

/// summary

/// Form1 的摘要说明。

/// /summary

public class Form1 : System.Windows.Forms.Form

{

private System.Windows.Forms.GroupBox groupBox1;

private System.Windows.Forms.Button button1;

private System.Windows.Forms.FolderBrowserDialog foldeOpen;

private System.Windows.Forms.TextBox AfoldePath;

private System.Windows.Forms.GroupBox groupBox2;

private System.Windows.Forms.Button button2;

private System.Windows.Forms.Button button3;

private System.Windows.Forms.TextBox textBox1;

private System.Windows.Forms.Button AddPassword;

private System.Windows.Forms.ComboBox comboBox1;

private System.ComponentModel.IContainer components;

public Form1()

{

//

// Windows 窗体设计器支持所必需的

//

InitializeComponent();

//

// TODO: 在 InitializeComponent 调用后添加任何构造函数代码

//

}

/// summary

/// 清理所有正在使用的资源。

/// /summary

protected override void Dispose( bool disposing )

{

if( disposing )

{

if (components != null)

{

components.Dispose();

}

}

base.Dispose( disposing );

}

#region Windows 窗体设计器生成的代码

/// summary

/// 设计器支持所需的方法 - 不要使用代码编辑器修改

/// 此方法的内容。

/// /summary

private void InitializeComponent()

{

System.Resources.ResourceManager resources = new System.Resources.ResourceManager(typeof(Form1));

this.groupBox1 = new System.Windows.Forms.GroupBox();

this.comboBox1 = new System.Windows.Forms.ComboBox();

this.AddPassword = new System.Windows.Forms.Button();

this.button1 = new System.Windows.Forms.Button();

this.AfoldePath = new System.Windows.Forms.TextBox();

this.foldeOpen = new System.Windows.Forms.FolderBrowserDialog();

this.groupBox2 = new System.Windows.Forms.GroupBox();

this.button2 = new System.Windows.Forms.Button();

this.button3 = new System.Windows.Forms.Button();

this.textBox1 = new System.Windows.Forms.TextBox();

this.groupBox1.SuspendLayout();

this.groupBox2.SuspendLayout();

this.SuspendLayout();

//

// groupBox1

//

this.groupBox1.BackColor = System.Drawing.Color.Transparent;

this.groupBox1.Controls.Add(this.comboBox1);

this.groupBox1.Controls.Add(this.AddPassword);

this.groupBox1.Controls.Add(this.button1);

this.groupBox1.Controls.Add(this.AfoldePath);

this.groupBox1.Location = new System.Drawing.Point(6, 6);

this.groupBox1.Name = "groupBox1";

this.groupBox1.Size = new System.Drawing.Size(276, 78);

this.groupBox1.TabIndex = 0;

this.groupBox1.TabStop = false;

this.groupBox1.Text = "加密";

//

// comboBox1

//

this.comboBox1.Items.AddRange(new object[] {

"我的电脑",

"我的文档",

"拨号网络",

"控制面板",

"计划任务",

"打印机",

"记事本",

"网络邻居",

"回收站",

"公文包",

"字体 ",

"Web 文件夹"});

this.comboBox1.Location = new System.Drawing.Point(12, 48);

this.comboBox1.Name = "comboBox1";

this.comboBox1.Size = new System.Drawing.Size(174, 20);

this.comboBox1.TabIndex = 15;

this.comboBox1.Text = "伪装类型";

//

// AddPassword

//

this.AddPassword.BackColor = System.Drawing.Color.Transparent;

this.AddPassword.ForeColor = System.Drawing.Color.Red;

this.AddPassword.Location = new System.Drawing.Point(192, 48);

this.AddPassword.Name = "AddPassword";

this.AddPassword.TabIndex = 14;

this.AddPassword.Text = "伪装";

this.AddPassword.Click += new System.EventHandler(this.AddPassword_Click);

//

// button1

//

this.button1.Location = new System.Drawing.Point(192, 20);

this.button1.Name = "button1";

this.button1.TabIndex = 8;

this.button1.Text = "文件夹路径";

this.button1.Click += new System.EventHandler(this.button1_Click);

//

// AfoldePath

//

this.AfoldePath.BackColor = System.Drawing.Color.FromArgb(((System.Byte)(255)), ((System.Byte)(224)), ((System.Byte)(192)));

this.AfoldePath.Location = new System.Drawing.Point(12, 20);

this.AfoldePath.Name = "AfoldePath";

this.AfoldePath.ReadOnly = true;

this.AfoldePath.Size = new System.Drawing.Size(174, 21);

this.AfoldePath.TabIndex = 7;

this.AfoldePath.Text = "";

//

// groupBox2

//

this.groupBox2.BackColor = System.Drawing.Color.Transparent;

this.groupBox2.Controls.Add(this.button2);

this.groupBox2.Controls.Add(this.button3);

this.groupBox2.Controls.Add(this.textBox1);

this.groupBox2.Location = new System.Drawing.Point(6, 90);

this.groupBox2.Name = "groupBox2";

this.groupBox2.Size = new System.Drawing.Size(276, 76);

this.groupBox2.TabIndex = 1;

this.groupBox2.TabStop = false;

this.groupBox2.Text = "解密";

//

// button2

//

this.button2.ForeColor = System.Drawing.Color.Red;

this.button2.Location = new System.Drawing.Point(192, 48);

this.button2.Name = "button2";

this.button2.TabIndex = 14;

this.button2.Text = "解密";

this.button2.Click += new System.EventHandler(this.button2_Click);

//

// button3

//

this.button3.ForeColor = System.Drawing.Color.Red;

this.button3.Location = new System.Drawing.Point(192, 20);

this.button3.Name = "button3";

this.button3.TabIndex = 8;

this.button3.Text = "文件夹路径";

this.button3.Click += new System.EventHandler(this.button3_Click);

//

// textBox1

//

this.textBox1.BackColor = System.Drawing.Color.FromArgb(((System.Byte)(128)), ((System.Byte)(255)), ((System.Byte)(128)));

this.textBox1.Location = new System.Drawing.Point(12, 24);

this.textBox1.Name = "textBox1";

this.textBox1.ReadOnly = true;

this.textBox1.Size = new System.Drawing.Size(174, 21);

this.textBox1.TabIndex = 7;

this.textBox1.Text = "";

//

// Form1

//

this.AutoScaleBaseSize = new System.Drawing.Size(6, 14);

this.ClientSize = new System.Drawing.Size(288, 174);

this.Controls.Add(this.groupBox2);

this.Controls.Add(this.groupBox1);

this.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle;

this.Icon = ((System.Drawing.Icon)(resources.GetObject("$this.Icon")));

this.MaximizeBox = false;

this.Name = "Form1";

this.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen;

this.Text = "伪装文件夹";

this.groupBox1.ResumeLayout(false);

this.groupBox2.ResumeLayout(false);

this.ResumeLayout(false);

}

#endregion

/// summary

/// 应用程序的主入口点。

/// /summary

[STAThread]

static void Main()

{

Application.Run(new Form1());

}

private void button1_Click(object sender, System.EventArgs e)

{

if(foldeOpen.ShowDialog ()==DialogResult.OK )

{

try

{

if(foldeOpen.SelectedPath .Substring (3,10)=="Documents ")

{

MessageBox.Show ("我不建议C盘下的文件夹伪装，这样可能会导致系统出问题");

}

else

{

AfoldePath.Text =foldeOpen.SelectedPath;

}

}

catch

{

if(foldeOpen.SelectedPath.Length =4)

{

AfoldePath.Text =foldeOpen.SelectedPath;

}

else

{

MessageBox.Show ("无法对盘符进行伪装.");

}

}

}

}

private void AddPassword_Click(object sender, System.EventArgs e)

{

try

{

ProcessStartInfo p3=new ProcessStartInfo ("attrib.exe",@"-s -r -a -h "+AfoldePath.Text);

p3.WindowStyle= System.Diagnostics.ProcessWindowStyle.Hidden;

Process.Start (p3);

ProcessStartInfo p1=new ProcessStartInfo ("attrib.exe",@"-s -r -a -h "+AfoldePath.Text+@"\desktop.ini");

p1.WindowStyle= System.Diagnostics.ProcessWindowStyle.Hidden;

Process.Start (p1);

StreamWriter sw2=new StreamWriter (AfoldePath.Text+@"\desktop.ini" );

sw2.WriteLine (@"[.ShellClassInfo]" );

sw2.WriteLine ("CLSID="+GetPasType());

sw2.Close ();

ProcessStartInfo p =new ProcessStartInfo ("attrib.exe",@"+s +a +h +r "+AfoldePath.Text+@"\desktop.ini");

p.WindowStyle= System.Diagnostics.ProcessWindowStyle.Hidden;

Process.Start (p);

ProcessStartInfo p2=new ProcessStartInfo ("attrib.exe",@"+s +r "+AfoldePath.Text);

p2.WindowStyle= System.Diagnostics.ProcessWindowStyle.Hidden;

Process.Start (p2);

}

catch(Exception ee)

{

MessageBox.Show (ee.Message .ToString ());

}

}

private string GetPasType()

{

int index=comboBox1.SelectedIndex;

switch (index)

{

case 0: return @"{20D04FE0-3AEA-1069-A2D8-08002B30309D}";

case 1: return @"{450D8FBA-AD25-11D0-98A8-0800361B1103}";

case 2: return @"{992CFFA0-F557-101A-88EC-00DD010CCC48}";

case 3: return @"{21EC2020-3AEA-1069-A2DD-08002B30309D}";

case 4: return @"{D6277990-4C6A-11CF-8D87-00AA0060F5BF}";

case 5: return @"{2227A280-3AEA-1069-A2DE-08002B30309D}";

case 6: return @"{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}";

case 7: return @"{208D2C60-3AEA-1069-A2D7-08002B30309D}";

case 8: return @"{645FF040-5081-101B-9F08-00AA002F954E}";

case 9: return @"{85BBD920-42A0-1069-A2E4-08002B30309D}";

case 10: return @"{BD84B380-8CA2-1069-AB1D-08000948F534}";

case 11: return @"{BDEADF00-C265-11d0-BCED-00A0C90AB50F}";

}

return @"{20D04FE0-3AEA-1069-A2D8-08002B30309D}";

}

private void button3_Click(object sender, System.EventArgs e)

{

if(foldeOpen.ShowDialog ()==DialogResult.OK )

{

textBox1.Text =foldeOpen.SelectedPath;

}

}

private void button2_Click(object sender, System.EventArgs e)

{

try

{

ProcessStartInfo p2=new ProcessStartInfo ("attrib.exe",@"-s -r -a -h "+textBox1.Text);

p2.WindowStyle= System.Diagnostics.ProcessWindowStyle.Hidden;

Process.Start (p2);

ProcessStartInfo p1=new ProcessStartInfo ("attrib.exe",@"-s -h -r "+textBox1.Text+@"\desktop.ini");

p1.WindowStyle= System.Diagnostics.ProcessWindowStyle.Hidden;

Process.Start (p1);

System.Threading.Thread.Sleep(1000);

File.Delete (textBox1.Text+@"\desktop.ini");

MessageBox.Show ("解密成功.");

}

catch(Exception ee)

{

MessageBox.Show (ee.Message.ToString ());

}

}

}

}

vb.net编辑excel时如何设定文件保护？

做VB.NET最重要的就是实用 EXCEL最实用就是在EXCEL中打开 你做出他的编辑器 或许可以证明你的实力 但是 这是一个废物没人会去用他(或许连你自己也不会)

你做久了之后就会明白这个道理了 我是经历过很多次失败之做之后得出的结论

vb.net 文件夹操作

vb.net使用控件FolderBrowserDialog1,在程序中:

'设置对话框中在树视图控件上显示的说明文本

Me.FolderBrowserDialog1.Description = "请选择输出报表所在路径:"

'设置从其开始浏览的根文件夹

Me.FolderBrowserDialog1.SelectedPath = "c:\"

If Me.FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then

'取得全路径（包含文件名）

reportPath1 = System.IO.Path.GetFullPath(Me.FolderBrowserDialog1.SelectedPath)

'设定text显示文件名

txtReport1.Text = reportPath1

setReportList()

End If

在setReportList()中针对你所需要的文件进行操作等

vb.net如何查看文件夹的权限

vb.net查看文件夹权限方法：

1、右键单击获取权限的文件夹，转到安全Tab。

2、显示了这个文件夹的权限账户。

3、输入对应账户的名称与密码即可查看全部权限信息。

vb.net，如何设置/读取 某用户 对 某文件夹 的访问权限？

不建议用在应用程序中操作共享文件或共享文件夹，这个东西往往会把软件做得过于死板。