chaostheory
Registered User.
- Local time
- Today, 12:46
- Joined
- Sep 30, 2008
- Messages
- 69
I have a script doing a lot of things, but the last step is what im getting the problem on and its bugging the crap out of me. I pasted all the relevant code below. What is happening is on the last file copy, im getting a bad file name or number. If i copy and paste the direct path to the folder when i open it, its below. Here are the values that are being stored in the variables. Is there something funny about using a variable to specifiy the full path and file name?
workdir = 378Y005892_7.5x8.00
workpath = Z:\_AC_LBP\Database\Characterization-Raw Laserguage Data\
workfile = 05892
nebtemp = 03
nebfile1 = "Y:\Nebulizer Pictures 2008\11-03-08 11:30am\CompositeLeakData.txt"
nebfile2 = "Y:\Nebulizer Pictures 2008\11-03-08 11:30am\CompositeLeakDataSummary.txt"
Full Path when opened in explorer-
Y:\Nebulizer Pictures 2008\11-03-08 1130am
workdir = 378Y005892_7.5x8.00
workpath = Z:\_AC_LBP\Database\Characterization-Raw Laserguage Data\
workfile = 05892
nebtemp = 03
nebfile1 = "Y:\Nebulizer Pictures 2008\11-03-08 11:30am\CompositeLeakData.txt"
nebfile2 = "Y:\Nebulizer Pictures 2008\11-03-08 11:30am\CompositeLeakDataSummary.txt"
Full Path when opened in explorer-
Y:\Nebulizer Pictures 2008\11-03-08 1130am
Code:
workDir = (Range("d4").Value & "_" & Range("H6").Value)
workPath = "Z:\_AC_LBP\Database\Characterization-Raw Laserguage Data\"
MkDir (workPath & workDir)
ChDir (workPath & workDir)
workFile = Right(Range("D4"), 5)
nebtemp = Left(Range("h7").Value, 4)
nebtemp = "0" & Right(nebtemp, 1)
nebFile1 = "Y:\Nebulizer Pictures 2008\" & Left(Range("h7"), 2) & "-" & nebtemp & "-" & Right(Range("h7"), 2) & " " & Range("h8") & "\" & "CompositeLeakData.txt"
nebFile2 = "Y:\Nebulizer Pictures 2008\" & Left(Range("h7"), 2) & "-" & Mid(Range("h7"), 5) & "-" & Right(Range("h7"), 2) & " " & Range("h8") & "\" & "CompositeLeakDataSummary.txt"
ActiveWorkbook.SaveAs (workPath & workDir & "\" & workFile & "-characterization.xls")
FileCopy ("I:\_AC Samples\Characterization\" & Range("d4") & ".csv"), (workPath & workDir & "\" & Range("d4") & ".csv")
FileCopy ("I:\_AC Samples\Characterization\" & Range("d4") & "-plane.csv"), (workPath & workDir & "\" & Range("d4") & "-plane.csv")
[COLOR=red]FileCopy (nebFile1), (workPath & workDir & "\" & "CompositeLeakData.txt")[/COLOR]
[COLOR=red]FileCopy (nebFile2), (workPath & workDir & "\" & "CompositeLeakDataSummary.txt")[/COLOR]
Range("E10").Value = "Done!"