vb可以做什么软件_vb做一个小软件

原问题：vb做一个小软件
分类：编程开发 > 最后更新时间：【2017-02-11 18:26:51】
问题补充：

打开程序后把自己复制到C盘根目录的代码

最佳答案

直接用代码就可以了...Private Sub Command2_Click()Dim f As StringDim d As Stringd = App.PathIf Right(d, 1) <> "\" Then d = d & "\"End Iff = Dir(d)Do FileCopy d & f, "c:\" & f f = DirLoop Until f = ""End Sub


追问：
能把提行用多个空格分开吗
  • 追答：
    可以Private Sub Command2_Click()空行Dim f As String空行Dim d As String空行d = App.Path空行If Right(d, 1) <> "\" Then空行d = d & "\"空行End If空行f = Dir(d)空行Do空行FileCopy d & f, "c:\" & f空行 f = Dir空行Loop Until f = ""空行End Sub空行求采纳
    最佳答案由网友  祎笑倾城  提供
    • 公告： 为响应国家净网行动，部分内容已经删除，感谢网友理解。
    20

    分享到：

    其他回答

    其它网友回答：
    目的是成为病毒吧  360会杀掉的  所以没有必要复制吧

      推荐