VB将程序所在的文件夹里的文件复制到指定文件夹里

比如把当前程序所在目录的atxt复制到d盘123目录下名为atxt,则可用如下语句

FileCopy AppPath & "/atxt" "d:/123/atxt"

FileCopy "源文件" "目标路径和文件名"

获得文字直接用

ClipboardGetText

获得可以用

ClipboardGetData

设置文字直接用

ClipboardSetText

设置可以用

ClipboardSetData

清空

ClipboardClear

检测剪贴板中的内容

ClipboardGetFormat(1)

返回True则文字

返回False则其他

不用剪切板可以这样

Dim s

Private Sub Command1_Click()

s = Text1Text

Text1Text = ""

End Sub

Private Sub Command2_Click()

s = Text1Text

End Sub

Private Sub Command3_Click()

Text1Text = Text1Text + s

End Sub

Private Sub Form_Load()

Command1Caption = "剪切"

Command2Caption = "复制"

Command3Caption = "粘贴"

End Sub

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_CLOSE = &H10

Private Const WM_SETTEXT = &HC

Private Const EM_REPLACESEL = &HC2

Private Sub Command1_Click()

Static n As Integer '计数器

Dim a() As String, wh As Long, ch As Long

a = Split(Text1Text, vbCrLf) '获取文本框内容，并按行分割

If n <= UBound(a) Then '如果计数器没超过文本框行数

  wh = FindWindow(vbNullString, "无标题 - 记事本") '按照记事本的窗口标题自己修改，我的是"无标题 - 记事本"，你的是"新建文本文档 - 记事本"

  If wh Then

    ch = FindWindowEx(wh, 0, "Edit", vbNullString)

    SendMessage ch, EM_REPLACESEL, 0, ByVal vbCrLf & a(n)

  Else

    MsgBox "记事本没有运行!"

  End If

  n = n + 1 '点一次按钮，计数器加1

Else

  MsgBox "文本框文本发送已完成"

End If

End Sub

以上就是关于VB将程序所在的文件夹里的文件复制到指定文件夹里全部的内容，包括:VB将程序所在的文件夹里的文件复制到指定文件夹里、vb如何做剪切、复制、粘贴按钮、VB的文本复制等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！