【发布时间】:2014-06-17 20:25:52
【问题描述】:
我想要做的是,当我单击 button2 时,它会运行一个 cmd 命令,即
attrib +s +h "Path here",但它说找不到指定的“此处的路径”
这是我的代码:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If NotHidden.SelectedIndex >= 0 Then
LogsKeeper.Text = LogsKeeper.Text + TimeOfDay + " | " + "Moved To Hidden: " + NotHidden.SelectedItem.ToString + vbNewLine
Hidden.Items.Add(NotHidden.SelectedItem)
Dim path As String = NotHidden.SelectedItem
My.Settings.TempPath = path
Process.Start("cmd /C " + "attrib +s +h " + My.Settings.TempPath)
NotHidden.Items.Remove(NotHidden.SelectedItem)
WriteTextToLogs()
MsgBox("Folder is hidden now. if you want to delete it then you need to move it to NotHidden first ")
HiddenFolders.Text = HiddenFolders.Text + NotHidden.SelectedItem + vbNewLine
My.Settings.HiddenFolders = HiddenFolders.Text
My.Settings.Save()
Else
MsgBox("You need to select a path first")
End If
End Sub
以及如何将文件夹添加到隐藏的列表框:
Private Sub AddFolder()
If SecretFolderPath.Text.Length > 0 Then
SecretFolderPath.Text = """" + SecretFolderPath.Text + """"
LogsKeeper.Text = LogsKeeper.Text + TimeOfDay + " | " + SecretFolderPath.Text + vbNewLine
My.Settings.Logs = LogsKeeper.Text
My.Settings.Save()
LogsKeeper.Text = My.Settings.Logs
Logs.Items.Clear()
NotHidden.Items.Add(SecretFolderPath.Text)
For Each line As String In LogsKeeper.Lines
Logs.Items.Add(line)
Next
SecretFolderPath.Clear()
MsgBox("Folder Added!")
Else
MsgBox("Folder path is not correct ")
End If
End Sub
我需要执行命令:attrib +s +h "Path here",但它说它可以找到指定的文件 ""Path here"",我需要双单引号来运行命令。
【问题讨论】:
-
你为什么要使用 Shell 来摆弄属性?
System.File.IO中有非常好的GetAttributes和SetAttributes方法,VB.FileSystem中还有其他方法 -
那你想告诉我什么?
标签: vb.net shell path cmd command