ChangeDir not working in Loop properly?

Blitz3D Forums/Blitz3D Programming/ChangeDir not working in Loop properly?

Guy Fawkes (Posted 2016) [#1]

EDIT: Double post.. Sorry about that... ~GF

Guy Fawkes (Posted 2016) [#2]

EDIT: I spoke a little too soon.. I can only make it change OUTSIDE the main loop. How do I make it changedir INSIDE of a loop? ChangeDirTest1.bb: Graphics ( 800, 600, 0, 2 ) AppTitle "DirChange" Global br$ = ( Chr$ ( 13 ) + Chr$ ( 10 ) ) Global olddir$ Global currdir$ olddir$ = currdir$ currdir$ = CurrentDir$ ( ) While Not KeyHit ( 1 ) Cls Locate 0, 0 For x = 1 To 2 If x = 1 Then currdir$ = Change_Dir$ ( olddir$, "\Data\" ) If x > 1 Then currdir$ = Change_Dir$ ( olddir$, "\Data" + Str ( x ) + "\" ) Print "currdir$: " + "'" + currdir$ + "'" Print "olddir$: " + "'" + olddir$ + "'" Next Flip Wend End Function Change_Dir$ ( dir$, newdir$ ) If newdir$ <> dir$ Then ChangeDir newdir$ : Return newdir$ If newdir$ = dir$ Then ChangeDir dir$ : Return dir$ End Function Thanks for any help & support! ~GF

Matty (Posted 2016) [#3]

Whether it is in a loop or not will not change the way the changedir statement executes. I would say without looking too closely there is an error in your logic.

Floyd (Posted 2016) [#4]

ChangeDir will only work if the directory already exists. And the "\" does not belong at the front of the name. ChangeDir "Data2" or ChangeDir "Data2\" will change the directory provided Data2 exists in the current directory. You can also use a fully qualified path like ChangeDir "C:\Program Files (x86)\Blitz3D" assuming there is such a thing.

Guy Fawkes (Posted 2016) [#5]

Look. Alls I want to do is be able to switch the directory (assuming it exists), in a loop. I need to do this so I can switch between different directories for different types of file requesters. Such as "Save", "Save As", & "Open"... This is what I have. DirChange.bb: Graphics ( 800, 600, 0, 2 ) AppTitle "DirChange" Global br$ = ( Chr$ ( 13 ) + Chr$ ( 10 ) ) Global olddir$ Global currdir$ currdir$ = CurrentDir$ ( ) olddir$ = currdir$ While Not KeyHit ( 1 ) Cls Locate 0, 0 Print "olddir$: " + "'" + olddir$ + "'" Print "currdir$: " + "'" + currdir$ + "'" currdir$ = Change_Dir$ ( olddir$, "Data" ) currdir$ = Change_Dir$ ( olddir$, "dwarf" ) Flip Wend End Function Change_Dir$ ( dir$, newdir$ ) If newdir$ <> dir$ Then ChangeDir newdir$ : Return newdir$ If newdir$ = dir$ Then ChangeDir dir$ : Return dir$ End Function Thanks guys! ~GF

Floyd (Posted 2016) [#6]

You may be confused about what "current directory" means. It is where you are now and a reference to a file/folder such as "dwarf" looks inside the current directory. Even if a change to "Data" worked then a later change to simply dwarf would be looking inside this new location. For any other behavior you need a full path. Note CurrentDir() is such a full path, not just a directory name. Also note your Change_Dir blindly attempts a change and returns a value based on what you hoped would happen, not what actually occurred. I would suggest you need a variable such as MasterPath$ to hold the location of all the directories you want to change to. It might have a value of the form MasterPath$ = "C:\ThePathLeadingToMyFolder\MyFolder\" Inside that would be other directories such as Data and dwarf. Then you could ChangeDir MasterPath + "Data" or ChangeDir MasterPath + "dwarf" After this use CurrentDir() to see of the change succeeded.

Guy Fawkes (Posted 2016) [#7]

Thanks ALOT, Floyd! That worked out GREAT! Graphics ( 800, 600, 0, 2 ) AppTitle "DirChange" Global br$ = ( Chr$ ( 13 ) + Chr$ ( 10 ) ) Global MasterDir$ = CurrentDir$ ( ) Global ChildDir$ = "Data" Global dir2$ = ReadDir ( MasterDir$ ) Global dir3$ = ReadDir ( ChildDir$ ) Global currdir$ = ( dir2$ + "\" + dir3$ ) While Not KeyHit ( 1 ) Cls Locate 0, 0 Print "MasterDir$: " + "'" + MasterDir$ + "'" Print "ChildDir$: " + "'" + ChildDir$ + "'" ; Assign the next entry in the folder to file$ file$ = NextFile$ ( currdir$ ) ; Use FileType to determine if it is a folder (value 2) or a file and print results If FileType ( currdir$ + "\" + file$ ) = 2 Print "Folder:" + file$ Else Print "File:" + file$ EndIf ; If there isn't another one, let's exit this loop If file$ = "" Then Print : Print "DONE!" : WaitKey : Exit Flip Wend End Enjoy! ~GF

Guy Fawkes (Posted 2016) [#8]

Here's a fix, and a funny quote. :P Graphics ( 800, 600, 0, 2 ) AppTitle "DirChange" Global br$ = ( Chr$ ( 13 ) + Chr$ ( 10 ) ) Global MasterDir$ = CurrentDir$ ( ) Global ChildDir$ = "Data" Global dir2$ = ReadDir ( MasterDir$ ) Global dir3$ = ReadDir ( ChildDir$ ) Global currdir$ = ( dir2$ + "\" + dir3$ ) api_ShowWindow ( SystemProperty$ ( "apphWnd" ), 1 ) Cls Locate 0, 0 Print "Preparing to take a dump..." Delay 1000 Flip Cls Locate 0, 0 Print "Preparing to take a dump.." Delay 1000 Flip Cls Locate 0, 0 Print "Preparing to take a dump." Delay 1000 Flip Print "MasterDir$: " + "'" + MasterDir$ + "'" Print "ChildDir$: " + "'" + ChildDir$ + "'" While Not KeyHit ( 1 ) ; Assign the next entry in the folder to file$ file$ = NextFile$ ( currdir$ ) ; Use FileType to determine if it is a folder (value 2) or a file and print results If FileType ( currdir$ + "\" + file$ ) = 2 If file$ <> "" Then Print "Folder:" + file$ Else If file$ <> "" Then Print "File:" + file$ EndIf ; If there isn't another one, let's exit this loop If file$ = "" Then Print : Print "DONE!" : WaitKey : Exit Flip 0 Delay 1 VWait 1 Wend End ~GF

RemiD (Posted 2016) [#9]

@GF>>What is your intent with this ? To scan a directory and to list the childs directories/files ?

Guy Fawkes (Posted 2016) [#10]

No. That was a test. To be able to use FileRequester to actually change to the correct directory. ~GF