如何使用VB6和CMD删除用户及其所有相关文件?

如何使用VB6和CMD删除用户及其所有相关文件?,vb6,cmd,Vb6,Cmd,我正在Visual Studio 2012中制作一个小程序,并集成了一些CMD提示 我知道如何执行CMD并从VB6中删除用户。 Shell(“净用户”+UserName.Text+“/del”) 我需要基本上找到用户的目录,并将其作为变量返回以执行Shell(“rd/s/q”“+DirectoryPath+”) 除非有办法和用户一起删除文件。因此,net用户MyUsername/del 我已经在谷歌上四处搜索了一下,结果很差,所以任何帮助都会很好 提前感谢:)我认为描述乔希·梅森想要什么的最好方

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

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

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

除非有办法和用户一起删除文件。因此,
net用户MyUsername/del

我已经在谷歌上四处搜索了一下,结果很差,所以任何帮助都会很好
提前感谢:)

我认为描述乔希·梅森想要什么的最好方式是用另一种方式向你表达

所以使用这个命令

网络用户%username%/配置文件:{完整路径}

设置配置文件路径,是否有方法获取已设置的配置文件路径,因此可能需要使用类似于将路径输出到记事本文件,然后将其输入VB的方法

我知道你可以用

网络用户%username%>>C:\currecutuser.txt


这将把路径放入一个文本中,与所有其他信息放在一起,有没有一种方法可以选择路径并以某种方式将其放入Vb中呢

    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)
走那条路 还是要删除该文件夹

新型的我希望它能使那东西工作;)


它对我有效:)

VB6 Shell()函数不会调用CMD.EXE,除非您专门运行它。VS 2012不包含VB6,因此您可能会对正在使用的内容感到困惑。这似乎根本不是一个编程问题,而是ServerFault或其他地方的管理问题;我用它创建了一个用户,给他们一个密码和其他一些选项,一切都很好,看起来“很好”,但很明显你不知道发生了什么。吓人。那么有没有一种方法可以单独使用CMD来完成呢?我想删除users文件夹,所以我想你提到的可能会起作用,因为它会返回“C:\users\Josh”,“Josh”是我想删除的文件夹对不起,就在我键入它的时候,我意识到这会得到当前用户的文件路径,因此,我可能必须用文本框中要删除的内容替换当前用户名。tjere是获取当前用户名的一种方法吗?感谢您的帮助,但是如果正在被删除的用户的文件夹与当前用户的文件夹位于不同的目录中怎么办?嗯,等等,如果我是用户Aleš,而你是用户Josh,那么你想删除我的个人资料吗?好的,请查看我答案的底部;)剧本已经改进了,我现在很累,等我醒来的时候我会看看你是否回应;)
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