如何用vb在选择的路径下自动建立一个文件夹
小弟是新手~~遇到个问题不明白用户选择好一个文件夹然后再点另一个按钮后会这选择的路径新件一个文件夹然后复制此路径中的某个文件夹里的文件到这个新建对文件夹里能详细点的~~谢...
小弟是新手~~遇到个问题不明白
用户选择好一个文件夹 然后再点另一个按钮后 会这选择的路径新件一个文件夹
然后复制此路径中的某个文件夹里的文件到 这个新建对文件夹里
能详细点的 ~~
谢谢了~ 展开
用户选择好一个文件夹 然后再点另一个按钮后 会这选择的路径新件一个文件夹
然后复制此路径中的某个文件夹里的文件到 这个新建对文件夹里
能详细点的 ~~
谢谢了~ 展开
1个回答
展开全部
假如你目前选择的文件夹路径为P,要创建的文件夹名叫D,那新建文件夹就用:
mkdir "P\d"
复制文件用:
filecopy P1,P2
p1,p2分别为原文件夹路径中文件路径和你将把文件复制到的路径
示例:
Private Sub Command1_Click()
Dim P As String, D As String
P = "G:\下载"
D = "新建文件夹"
MkDir P & "\" & D
FileCopy P & "\1.txt", P & "\" & D & "\1.txt"
End Sub
mkdir "P\d"
复制文件用:
filecopy P1,P2
p1,p2分别为原文件夹路径中文件路径和你将把文件复制到的路径
示例:
Private Sub Command1_Click()
Dim P As String, D As String
P = "G:\下载"
D = "新建文件夹"
MkDir P & "\" & D
FileCopy P & "\1.txt", P & "\" & D & "\1.txt"
End Sub
更多追问追答
追问
Private Sub Command1_Click()
MkDir "P\d"
End Sub
Private Sub 选择游戏路径_Click()
Dim p
p = GetFolder(Me.hWnd, "浏览文件夹")
If p "" Then
Text1.Text = p
End If
End Sub
调试的时候 显示 路径错误 MkDir "P\d"
追答
倒!你这个P是变量就不能用在引号里了
mkdir p & "\d"
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询