vb 文件系统控件
这道程序是这样的，有2个驱动器列表框，2个文件列表框，2个目录列表框，而且第一个驱动器、目录。文件列表框同步，第二个驱动器、目录、文件列表框同步，我想实现，点击复制按钮，就把第一个文件列表框选中的文件复制到第二个文件列表框显示的目录下，如果目的地址跟复制文件的源地址在同一个目录，那么第一次复制产生的文件名为 “复件**”第二次为“复件2**”就是要实现跟windows里面的复制操作一样的效果来命名。会的请帮忙写一下代码，以下是我的代码，我只会实现第一次复制的命名，后面的请帮我完善程序，实现那个功能，谢谢了。
Private Sub cmdcopy_Click()
If File1.FileName <> "" Then
If Right(File1.Path, 1) = "\" Then
sourfile = File1.Path + File1.FileName
Else: sourfile = File1.Path + "\" + File1.FileName
End If
If Right(File2.Path, 1) = "\" Then
If File1.Path = File2.Path Then
destfile = File2.Path + "复件" + File1.FileName
Else: destfile = File2.Path + File1.FileName
End If
Else
If File1.Path = File2.Path Then
destfile = File2.Path + "\复件" + File1.FileName
Else: destfile = File2.Path + "\" + File1.FileName
End If
End If
FileCopy sourfile, destfile
File2.Refresh
File1.Refresh
End If
End Sub
相关问答：
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
用VB怎么只针对windows自带的文件的右键添加菜单 如（.txt .doc)
这个是只针对以这两个为扩展名的文件操作
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[随便起名]\command]
@= ......
比如说要在1表中的第三列第二行单元中输入“一二三”一要粗体宋体12号字，二 不要粗体 15号字 三斜体5号字
代码应该怎么打？
LZ指的是个什么表格控件呢，貌似只能设置整个表的字体，或者某几行或几列，没有单独设� ......
各位大虾：
我有一个VB调用水晶报表的系统，报表是作为一个Design嵌在VB里的，今天发现打印第一张报表正常，同样的数据，在点打印再调用一次就会报 Memory Full的错误，但是 ......
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
