精华内容
下载资源
问答
  • vb复制整个文件夹到指定位置

    热门讨论 2011-08-16 09:34:52
    VB复制文件的一段源码,没有源程序,大家拷过去用
  • 如题,用户使用时选取一个文件,然后自动复制到另一个已经指定好的文件夹,谢谢![图片说明](http://forum.csdn.net/PointForum/ui/scripts/csdn/Plugin/001/face/21.gif)答的好的20c币
  • Dim m_objFSO As New FileSystemObject '定义文件系统对象 Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long ...

        

    展开全文
  • VB文件夹复制到指定目录

    千次阅读 2013-05-11 17:27:28
    Set fso = CreateObject("Scripting.FileSystemObject")fso.CopyFolder "C:\mp3", "D:\mp3"...另外请注意:VB FileCopy函数复制一个文件到指定位置 '将C盘的123.mp3复制...

    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CopyFolder "C:\mp3", "D:\mp3"
    '这样就把C盘的mp3目录下的所有文件及子目录全部拷贝到D盘的mp3目录下面了。
    '如果D盘没有MP3这个文件夹则会自动创建。

     

    另外请注意:VB FileCopy函数复制一个文件到指定位置

    '将C盘的123.mp3复制到D盘
    FileCopy "C:\123.mp3", "D:\123.mp3"

    摘自:网络整理

    展开全文
  • 如题。 现有服务器linux系统。例: 1、ip:192.168.0.1 2、用户名 root 密码 123456 3、文件夹为opt/test/ ...在客户端将(d:/xxx.txt)该文件复制或传opt/test/中。 利用vb如何实现。有没有简单的例子。
  • 文件文件夹操作

    2015-09-04 17:34:00
    VB.Net语言 复制、删除文件代码:  Imports System.IO Imports System.IO.Directory ' ...实现一个静态方法将指定文件夹下面的所有内容copy目标文件夹下面 ' 如果目标文件夹为只读属性就会报错。 ' ...

      VB.Net语言 复制、删除文件代码:

      Imports System.IO
      Imports System.IO.Directory
      ' ======================================================
      ' 实现一个静态方法将指定文件夹下面的所有内容copy到目标文件夹下面
      ' 如果目标文件夹为只读属性就会报错。
      ' ======================================================
      Public Shared Sub CopyDir(ByVal srcPath As String, ByVal aimPath As String)
      Try
      ' 检查目标目录是否以目录分割字符\结束,如果不是则添加之
      If aimPath(aimPath.Length - 1) <> Path.DirectorySeparatorChar Then
      aimPath += Path.DirectorySeparatorChar
      End If
      '判断源目录是否存在,不存在则退出.
      If (Not Directory.Exists(srcPath)) Then Exit Sub
      ' 判断目标目录是否存在如果不存在则新建之
      If (Not Directory.Exists(aimPath)) Then Directory.CreateDirectory(aimPath)
      ' 得到源目录的文件列表,该里面是包含文件以及目录路径的一个数组
      ' 如果你指向copy目标文件下面的文件而不包含目录请使用下面的方法
      ' string[] fileList = Directory.GetFiles(srcPath);
      Dim fileList() As String = Directory.GetFileSystemEntries(srcPath)
      ' 遍历所有的文件和目录
      For Each FileName As String In fileList
      ' 先当作目录处理如果存在这个目录就递归Copy该目录下面的文件
      If Directory.Exists(FileName) Then
      CopyDir(FileName, aimPath + Path.GetFileName(FileName))
      ' 否则直接Copy文件
      Else
      File.Copy(FileName, aimPath + Path.GetFileName(FileName), True)
      End If
      Next
      Catch ex As Exception
      MessageBox.Show(ex.ToString())
      End Try
      End Sub
      ' ======================================================
      ' 实现一个静态方法将指定文件夹下面的所有内容Detele
      ' 测试的时候要小心*作,删除之后无法恢复。
      ' ======================================================
      Public Shared Sub DeleteDir(ByVal aimPath As String)
      Try
      ' 检查目标目录是否以目录分割字符结束如果不是则添加之
      If (aimPath(aimPath.Length - 1) <> Path.DirectorySeparatorChar) Then
      aimPath += Path.DirectorySeparatorChar
      End If
      '判断待删除的目录是否存在,不存在则退出.
      If (Not Directory.Exists(aimPath)) Then Exit Sub
      ' 得到源目录的文件列表,该里面是包含文件以及目录路径的一个数组
      ' 如果你指向Delete目标文件下面的文件而不包含目录请使用下面的方法
      ' string[] fileList = Directory.GetFiles(aimPath);
      Dim fileList() As String = Directory.GetFileSystemEntries(aimPath)
      ' 遍历所有的文件和目录
      For Each FileName As String In fileList
      If (Directory.Exists(FileName)) Then
      ' 先当作目录处理如果存在这个目录就递归Delete该目录下面的文件
      DeleteDir(aimPath + Path.GetFileName(FileName))
      Else
      ' 否则直接Delete文件
      File.Delete(aimPath + Path.GetFileName(FileName))
      End If
      Next
      '删除文件夹
      System.IO.Directory.Delete(aimPath, True)
      Catch ex As Exception
      MessageBox.Show(ex.ToString())
      End Try
      End Sub

    转载于:https://www.cnblogs.com/lbnnbs/p/4782050.html

    展开全文
  • VB.NET版Imports System.IO Imports System.IO.Directory ' =====================... ' 实现一个静态方法将指定文件夹下面的所有内容copy目标文件夹下面 ' 如果目标文件夹为只读属性就会报错。 ' ==========...
    VB.NET版
    Imports System.IO
    Imports System.IO.Directory
     
        ' ======================================================
        ' 实现一个静态方法将指定文件夹下面的所有内容copy到目标文件夹下面
        ' 如果目标文件夹为只读属性就会报错。
        ' ======================================================
        Public Shared Sub CopyDir(ByVal srcPath As String, ByVal aimPath As String)
            Try
                ' 检查目标目录是否以目录分割字符\结束,如果不是则添加之
                If aimPath(aimPath.Length - 1) <> Path.DirectorySeparatorChar Then
                    aimPath += Path.DirectorySeparatorChar
                End If
     
                '判断源目录是否存在,不存在则退出.
                If (Not Directory.Exists(srcPath)) Then Exit Sub
     
                ' 判断目标目录是否存在如果不存在则新建之
                If (Not Directory.Exists(aimPath)) Then Directory.CreateDirectory(aimPath)
     
                ' 得到源目录的文件列表,该里面是包含文件以及目录路径的一个数组
                ' 如果你指向copy目标文件下面的文件而不包含目录请使用下面的方法
                ' string[] fileList = Directory.GetFiles(srcPath);
                Dim fileList() As String = Directory.GetFileSystemEntries(srcPath)
     
                ' 遍历所有的文件和目录
     
                For Each FileName As String In fileList
                    ' 先当作目录处理如果存在这个目录就递归Copy该目录下面的文件
                    If Directory.Exists(FileName) Then
                        CopyDir(FileName, aimPath + Path.GetFileName(FileName))
                        ' 否则直接Copy文件
                    Else
                        File.Copy(FileName, aimPath + Path.GetFileName(FileName), True)
                    End If
                Next
     
            Catch ex As Exception
                MessageBox.Show(ex.ToString())
            End Try
        End Sub
     
     
        ' ======================================================
        ' 实现一个静态方法将指定文件夹下面的所有内容Detele
        ' 测试的时候要小心*作,删除之后无法恢复。
        ' ======================================================
        Public Shared Sub DeleteDir(ByVal aimPath As String)
            Try
     
                ' 检查目标目录是否以目录分割字符结束如果不是则添加之
                If (aimPath(aimPath.Length - 1) <> Path.DirectorySeparatorChar) Then
                    aimPath += Path.DirectorySeparatorChar
                End If
     
                '判断待删除的目录是否存在,不存在则退出.
                If (Not Directory.Exists(aimPath)) Then Exit Sub
     
                ' 得到源目录的文件列表,该里面是包含文件以及目录路径的一个数组
                ' 如果你指向Delete目标文件下面的文件而不包含目录请使用下面的方法
                ' string[] fileList = Directory.GetFiles(aimPath);
                Dim fileList() As String = Directory.GetFileSystemEntries(aimPath)
     
                ' 遍历所有的文件和目录
                For Each FileName As String In fileList
                    If (Directory.Exists(FileName)) Then
                        ' 先当作目录处理如果存在这个目录就递归Delete该目录下面的文件
                        DeleteDir(aimPath + Path.GetFileName(FileName))
                    Else
                        ' 否则直接Delete文件
                        File.Delete(aimPath + Path.GetFileName(FileName))
                    End If
                Next
                '删除文件夹
                System.IO.Directory.Delete(aimPath, True)
            Catch ex As Exception
                MessageBox.Show(ex.ToString())
            End Try
        End Sub

    转载于:https://www.cnblogs.com/wybshyy/p/5847840.html

    展开全文
  • 下载Interop.VBIDE.dll,再将从脚本之家下载来的interop.vbide.dll拷贝到指定目录即可如果您的系统是64位的请将32位的dll文件复制到C:\Windows\SysWOW64目录。 然后在将interop.vbide.dll复制到你的项目文件夹中,...
  • get_folder_info.ZIP 得到目录信息 (2KB) 75,printtextfile.ZIP 打印文本文件的例子 (1KB) 76,stringinfile.ZIP 检测文件中是否包含指定字符串 (1KB) 77,clipfilecopy.ZIP 拷贝文件到剪贴...
  • Java文件提取工具

    2015-12-11 15:42:05
    如果需要可以改变此文件夹,在软件主界面的下方会显示出所选工程文件的所有支撑文件,勾选前面的复选框,单击上面的“复制文件”按钮即可将选择的支撑文件拷贝到指定文件夹下,并可自动打开此文件夹。右边的选项...
  • VB实现对DLL/OCX控件的提取功能,分析出OCXs, DLLs, TLBs文件的结构内容复制到一个指定文件夹中,方便您制作安装程序时用。 同时它还有一些设置选项:比如改变支撑文件名、批量自动重命名、分析完毕自动打开支撑...
  • VB控件属性使用大全

    2011-12-15 12:02:34
    内部控件是工具箱中的“常驻”控件,始终出现在工具箱里,而ActiveX控件是扩展名为.ocx的文件(在Windows\System文件夹里),它是根据变成需要添加工具箱里的。  在一般情况下,工具箱里只有标准控件,为了把...
  • 12.5.3 XML在VB.NET中的应用 254 第13章 程序调试和错误处理 256 13.1 程序错误类型 256 13.1.1 编译错误 256 13.1.2 运行时错误 257 13.1.3 逻辑错误 258 13.2 程序调试方法概述 259 13.3 设置运行断点 259 ...
  • 实例290 菜单复制器 实例291 菜单提取器 9.4 导航菜单应用实例 实例292 图形导航按钮 实例293 树状导航菜单 实例294 类似QQ式导航菜单 实例295 将程序图标添加托盘中 第10章 工具栏与状态栏 10.1 工具栏...
  • 实例290 菜单复制器 实例291 菜单提取器 9.4 导航菜单应用实例 实例292 图形导航按钮 实例293 树状导航菜单 实例294 类似QQ式导航菜单 实例295 将程序图标添加托盘中 第10章 工具栏与状态栏 10.1 工具栏...
  • rar压缩软件.rar

    2016-02-13 10:52:44
    从 html.rar 压缩文件中解压所有 *.css 文件到 css 文件夹,不包括存 档的路径。多个文件有相同的名称时自动重命名解压的文件。 f 更新压缩文件中的文件。 更新打包到压缩文件后被改变的文件。这个命令不 向...
  • VC++ mfc版完整源代码

    2014-05-06 18:02:23
    比较全,包含了主程序的C#版、VC++(MFC)版、VB版以及Delphi版和Boland C++版的各种语言演示源码,请注意,任何版本演示程序运行时,必须将“DLL和接口文件”下相应版本的DLBT.dll复制到程序编译后的目录下。...
  • WinRAR_4.0.exe

    2011-02-04 11:34:33
    cw 写压缩文件注释到指定文件。 输出文件格式依赖于 -sc 开关。 如果输出文件名没有指定,注释数据会被发送到标准输出设备。 例子: 1) rar cw oldarch comment.txt 2) rar cw -scuc arc unicode.txt 3)...
  • 首先你最好把所有要用到的 html 文件及有关图形、声音、视频等文件复制到一个空文件夹中(当然可以包含子文件夹),并在 IE 浏览器中检验通过,然后启动 HHW,在 File菜单中选[New],弹出新建文件对话框。...
  • - 如果文件未保存,复制行时会跳到文件顶端 - 宏 * 不配对的引号将会导致宏编辑器出错 * 当保存宏定义后,宏内容丢失 * 添加“在文件中替换”或“在编辑器修改”将导致命令从宏定义中删除 - 查找/替换 * 当在...
  • - 如果文件未保存,复制行时会跳到文件顶端 - 宏 * 不配对的引号将会导致宏编辑器出错 * 当保存宏定义后,宏内容丢失 * 添加“在文件中替换”或“在编辑器修改”将导致命令从宏定义中删除 - 查找/替换 * 当在...
  • java源码包---java 源码 大量 实例

    千次下载 热门讨论 2013-04-18 23:15:26
     Java zip压缩包查看程序,应用弹出文件选择框,选择ZIP格式的压缩文件,可以像Winrar软件一样查看压缩文件内部的文件文件夹,源码截图如上所示。 Java 数字签名、数字证书生成源码 2个目标文件 摘要:JAVA源码,...
  • Excel_VBA教程

    2014-09-22 11:36:34
    9.复制文件(FILECOPY语句) 149 10.删除文件(KILL语句) 151 11.从文件读取和写入数据(INPUT/OUTPUT) 151 12.文件访问类型 152 13.使用顺序文件 152 14.读取储存于顺序文件里的数据 152 15.逐行读取文件 152 16....
  • - 如果文件未保存,复制行时会跳到文件顶端 - 宏 * 不配对的引号将会导致宏编辑器出错 * 当保存宏定义后,宏内容丢失 * 添加“在文件中替换”或“在编辑器修改”将导致命令从宏定义中删除 - 查找/替换 * 当在...
  • java源码包2

    千次下载 热门讨论 2013-04-20 11:28:17
     Java zip压缩包查看程序,应用弹出文件选择框,选择ZIP格式的压缩文件,可以像Winrar软件一样查看压缩文件内部的文件文件夹,源码截图如上所示。 Java 数字签名、数字证书生成源码 2个目标文件 摘要:JAVA源码...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    9.复制文件(FILECOPY语句) 149 10.删除文件(KILL语句) 151 11.从文件读取和写入数据(INPUT/OUTPUT) 151 12.文件访问类型 152 13.使用顺序文件 152 14.读取储存于顺序文件里的数据 152 15.逐行读取文件 152 16....
  • 这个项目可指定让AGP装置来使用的系统内存大小,这取用大小是PCI内存地址范围的一部份,可分配给图形内存的空间。 Init Display First: 这个项目可选择当系统开机时先行对AGP或是PCI插槽来做初始化的动作。 [AGP...
  • java源码包3

    千次下载 热门讨论 2013-04-20 11:30:13
     Java zip压缩包查看程序,应用弹出文件选择框,选择ZIP格式的压缩文件,可以像Winrar软件一样查看压缩文件内部的文件文件夹,源码截图如上所示。 Java 数字签名、数字证书生成源码 2个目标文件 摘要:JAVA源码...
  • java源码包4

    千次下载 热门讨论 2013-04-20 11:31:44
     Java zip压缩包查看程序,应用弹出文件选择框,选择ZIP格式的压缩文件,可以像Winrar软件一样查看压缩文件内部的文件文件夹,源码截图如上所示。 Java 数字签名、数字证书生成源码 2个目标文件 摘要:JAVA源码...
  • Java二进制IO类与文件复制操作实例 16个目标文件 内容索引:Java源码,初学实例,二进制,文件复制 Java二进制IO类与文件复制操作实例,好像是一本书的例子,源代码有的是独立运行的,与同目录下的其它代码文件互不联系...

空空如也

空空如也

1 2 3
收藏数 54
精华内容 21
关键字:

vb复制文件到指定文件夹