file and directory problems

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|634\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> file and directory problems
Sun, 04 May 2008, 19:01
Orion Pax	Ok guys theoretically this bit of code SHOULD work. I cant see why anything WONT COPY. So far only EXE's will copy over. Now all the files are there. But when they are, they wont copy over. For example "ding.wav" wont copy over. Global time time=CommandLine$() folder$=CurrentDir$() + "updates\" mydir=ReadDir(folder$) Repeat file$=NextFile$(mydir) Print folder$ + file$ If FileType(file$)=1 Then If Lower(Right(file$,3))="exe" Then CopyFile folder$ + file$,CurrentDir()+file$:Print folder$ + file$ If Lower(Right(file$,3))="dll" Then CopyFile folder$ + file$,CurrentDir()+file$:Print folder$ + file$ If Lower(Right(file$,3))="wav" Then CopyFile folder$ + file$,CurrentDir()+"sounds\"+file$:Print folder$ + file$ If Lower(Right(file$,3))="b3d" Then CopyFile folder$ + file$,CurrentDir()+"models\"+file$:Print folder$ + file$ If Lower(Right(file$,3))="3ds" Then CopyFile folder$ + file$,CurrentDir()+"models\"+file$:Print folder$ + file$ If Lower(Right(file$,3))="jpg" Then CopyFile folder$ + file$,CurrentDir()+"images\"+file$:Print folder$ + file$ DeleteFile folder$+file$ EndIf Until file$="" CloseDir mydir Delay time ExecFile "tw3d.exe" End --v Wow...been a while since I posted in here....
Sun, 04 May 2008, 19:18
HoboBen	I don't have a copy of Blitz handy, but is the message for the .wav still printed onto the screen? (does it detect it's there properly) -=-=- blog \| work \| code \| more code
Mon, 05 May 2008, 03:59
Orion Pax	The FIRST Print folder$ + file$ that shows up before the readdir loop was added just before this post to confirm that its reading the directory. The ones in the IF statements is ONLY printing the EXE's. So its reading it...just the filetype command is skipping it.
Mon, 05 May 2008, 06:09
Stealth	Those file commands in blitz are tricky. Your code looks just fine to me. What throws me off is that if this works: If Lower(Right(file$,3))="exe" Then CopyFile folder$ + file$,CurrentDir()+file$:Print folder$ + file$ --v Then this should work, because it's the same exact code (minus the file extension). If Lower(Right(file$,3))="dll" Then CopyFile folder$ + file$,CurrentDir()+file$:Print folder$ + file$ --v Could you possibly provide the file names of the files your trying to copy (using the same case) to help recreate the problem? -=-=- Quit posting and try Google.
Mon, 05 May 2008, 06:29
Jayenkai	if Filetype(file$)=1 is checking if the file is in the Currentdir$() folder.. Should be if Filetype(folder$ + file$)=1 -=-=- ''Load, Next List!''
Mon, 05 May 2008, 12:00
JL235	Your also finding the last 3 digits and converting them to lower case, multiple times. This might be more efficient: local extension$ = Lower(Right(file$,3)) If extension$="exe" Then CopyFile folder$ + file$,CurrentDir()+file$:Print folder$ + file$ If extension$="dll" Then CopyFile folder$ + file$,CurrentDir()+file$:Print folder$ + file$ If extension$="wav" Then CopyFile folder$ + file$,CurrentDir()+"sounds\"+file$:Print folder$ + file$ If extension$="b3d" Then CopyFile folder$ + file$,CurrentDir()+"models\"+file$:Print folder$ + file$ If extension$="3ds" Then CopyFile folder$ + file$,CurrentDir()+"models\"+file$:Print folder$ + file$ If extension$="jpg" Then CopyFile folder$ + file$,CurrentDir()+"images\"+file$:Print folder$ + file$ --v Although I would personally make a 'getExtension' function to find and return the extension for you, and also have it build in support for extensions of multiple lengths. Something like: Print getExtension("cats.bmp") Print getExtension("cats.a") Print getExtension(".a") Print getExtension("cats") WaitKey End Function getExtension$(file$) Local offset = Instr(file$, ".") Local lastOffset = offset Local length = Len(file$) While (Not offset = 0) And offset < length lastOffset = offset offset = Instr(file$, ".", offset+1) Wend If lastOffset = 0 Return "" Else Return Lower(Right(file$, length-lastOffset)) EndIf End Function --v I have a feeling this could be more efficient, but hey it should work automatically with variable length extensions.
Mon, 05 May 2008, 14:39
Orion Pax	THATS WHY IT WONT WORK.....DUH! I will definitely use the getextension function. Thanks!