Ⅰ VB6.0如何获取拖入的文件路径和文件名并赋值与变量呢
fso.file 完整路径\名称.扩展名, 完整路径\文件夹\名称.扩展名这样？
Ⅱ vb如何实现文件拖放
1、首先将窗体的OLEDropMode属性设为12、在窗体的OLEDragDrop事件中获得文件路径，例如：Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)For Each file In Data.Filess1 = s1 & file & vbCrLfNextMsgBox s1End Sub
Ⅲ 将文件拖到VB编译后的exe,然后获取被拖动文件的路径
利用Command函数返回命令行参数。PrivateSubForm_Load() MsgBoxCommand()EndSub例：假如编辑后的文件名为工程1.exe，同时，C:\12\目录（注：1和2之间有一空格）保存了t1.txt、t2.txt二个文件。1、将t1.txt拖放到exe文件上测试结果2、将t1.txt、t2.txt拖放到exe文件上测试结果之所以用含有空格的“12”路径来测试，主要是为了说明问题，防止获取路径时出错。拖放文件用函数返回参数时，如果文件路径名中含有空格，则参数前后会自动加上半角双引号，另外，第2个测试说明，选中二个及二个以上文件拖放后，返回的文件路径名之间是以空格隔开的。因此，在编写获取文件路径名代码时，一定要注意这一点。至于你的后一个问题，不太清楚你具体所指。假如你想用系统“记事本”打开txt文件，则得到文件路径名后，使用shell运行“记事本”打开文件即可。如：Shell"notepad.exe"&Chr(32)& "C:\12\t1.txt",vbNormalFocus或者Shell"notepad.exe"&Chr(32)&Chr(34)&"C:\12\t1.txt"&Chr(34),vbNormalFocus
Ⅳ VB 如何把 文件 或 文件夹 通过鼠标拖拽到指定控件上 得到其路径
设置窗体OLEDropMode=1Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)Print Data.Files(1)End Sub
Ⅳ VB 文本框 文件拖拽 鼠标松开再显示路径
那你用DragOver干嘛，Over经过文本框上空就会触发，用DragDrop啊，释放时才触发
Ⅵ VB 6.0 如何通过鼠标拖拽,返回目录或文件
'文本框设为分行显示,OLEDragMode和OLEDropMode属性设为1,加入以下过程:Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)Dim f If Data.GetFormat(vbCFFiles) Then For Each f In Data.Files Text1.Text = Text1.Text & f & vbCrLf Next End IfEnd Sub
Ⅶ VB程序 让文件夹拖放到程序上获取该文件夹的路径！
'以文本框控件为例，当然也可以设置为其他控件，或者设置为窗体本身 Private Sub Form_Load() '先设置对象为可接收拖放 Me.Text1.OLEDropMode = 1 '如果想设置为窗体本身为接收对象的话，可以设置为 'me.OLEDropMode=1 '然后编写 Sub Form_OLEDragDrop(….)函数，格式和代码和文本框函数中的一样。 End Sub '当拖动对象到文本框上时Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Dim nCount, nIndex As Integer With Data nCount = .Files.Count For nIndex = 1 To nCount strPath = strPath & .Files.Item(nIndex) & vbNewLine Next End With Text1.Text = Trim(strPath)End Sub
Ⅷ vb，net怎么实现拖拽文件到文本框和粘贴复制
第一步，点击VS工具
Ⅸ VB编写拖进来的程序的路径
可以通过OLEDragDrop事件来实现。 在VB里建立一个Text1，然后将Form1窗体属性OLEDropMode 改为1 'Manual 然后你试着拖一个文件到窗体，看一下效果Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) If Data.Files.Count > 0 Then Text1.Text = Data.Files(1) End IfEnd Sub
未经允许不得转载：山九号 » vb拖拽文件路径|将文件拖到VB编译后的exe
