|
-
Sep 3rd, 2011, 08:34 PM
#1
[RESOLVED] copy files need help doesnt work!!
i'm trying to rename files or copy and then kill the first file my code i wrote is
i tried
Private Sub Command6_Click()
Dim StrFile As String
Dim StrFile2 As String
Dim F1 As String
Dim F2 As String
F1 = Chr(34) & Text1.Text & " \ " & List3.Text & Chr(34)
F2 = Chr(34) & Text1.Text & "\" & List2.Text & ".pacw" & Chr(34)
StrFile = Replace(F1, Chr(34), "")
StrFile2 = Replace(F2, Chr(34), "")
FileCopy F1, F2
Kill F1
End Sub
and then tried
Private Sub Command6_Click()
Dim F1 As String
Dim F2 As String
F1 = Chr(34) & Text1.Text & " \ " & List3.Text & Chr(34)
F2 = Chr(34) & Text1.Text & "\" & List2.Text & ".pacw" & Chr(34)
FileCopy F1, F2
Kill F1
End Sub
for some reason it only work if i write it myself
like
filecopy "c:\test.txt", "c:\textreplace.txt"
kill "c:\test.txt"
if there is a way to just rename it be alot better but it doesnt matter either way help please, thank you!
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|