如何使用VB6和CMD删除用户以及与其关联的所有文件?

时间:2013-08-01 15:49:47

标签: vb6 cmd

我正在Visual Studio 2012中制作一个小程序,并整合了一些CMD提示。

我知道如何执行CMD并从VB6中删除用户。 Shell("net user """ + UserName.Text + """ /del")

我需要基本上找到用户的目录并将其作为变量返回以执行Shell("rd /s /q """ + DirectoryPath + """")

除非有办法与用户一起删除文件。所以也许net user MyUsername /del

上有一个扩展名

我已经浏览了Google并且做空了所以任何帮助都会很棒 在此先感谢:)

2 个答案:

答案 0 :(得分:0)

我认为描述Josh Mason想要的最佳方式是以不同的方式向你提出

所以使用命令

net user%username%/ profile:{Full Path}

设置配置文件路径,有没有办法获取已经设置的配置文件路径,所以可能使用输出记事本文件的路径然后将其转换为VB

我知道你可以使用

净用户%username%>> C:\ currecutuser.txt

将路径放入一个文本以及所有其他信息,有没有办法只选择路径并以某种方式将其输入Vb

答案 1 :(得分:0)

也许你应该这样做

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' get desktop path for current user
        TextBox3.Text = My.Computer.FileSystem.SpecialDirectories.Desktop.ToString

'strips "\Desktop"
        Dim path As String = TextBox3.Text.Replace("\Desktop", "")
        TextBox3.Text = path
    End Sub

然后你可以做Process.Start(Textbox3.Text) 得到那条路 或者你想删除该文件夹?

New Type我希望它能让它发挥作用;)

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    ' get desktop path for current user
    TextBox1.Text = My.Computer.FileSystem.SpecialDirectories.Desktop.ToString
    'input for username to delete
    Dim usertodel As String = InputBox("Type Username:")
    'strips "\Desktop" & curr user name
    Dim user As String = System.Environment.UserName
    Dim path1 As String = TextBox1.Text.Replace("\" & user & "\Desktop", "") '= C:\Users\

    TextBox1.Text = path1 & "\" & usertodel '= C:\Users\ + input box for user 

End Sub

它对我有用:)