Differences in compiled code and non-compiled code

Archives Forums/Blitz3D Bug Reports/Differences in compiled code and non-compiled code

Nexinarus (Posted 2011) [#1]

here is some code. It does work. When not compiled i get no error message/pop up windows. When compiled to an EXE, I get "NO DISK" "There is no disk in the drive. Please insert a disk into drive \Device\Harddisk1\DR#." #=3 4 5 etc... the main question is "Why do i get the pop up window when compiled and no pop up window when not compiled?" I am sure this a bit of a bug. Try out the code for yourself. Try it with Blitz then compile it and try it as an EXE. ;AN ARRAY TO KEEP TRACK OF FILE DATA Dim filenumber$(0,0) Repeat ChangeDir("..") ;GO BACK ONE SUB FOLDER Until Right(CurrentDir$(),2)=":\" OS_PATH$="*my computer*" countdirfolders OS_PATH$ For cf= 1 To filenumber(0,0) Print "filename:"+filenumber(cf,0)+" FileType:"+filenumber(cf,1) WaitKey Next Function COUNTDIRFOLDERS(directory$) ;THIS FUNCTION IS TO COUNT FILES AND KEEP TRACK OF THEIR NAMES/FILETYPES/ICONS NEEDED FOR THE ;OS BROWSING TO WORK. ;DIRECTORY$=THE DIRECTORY THAT YOU ARE CURRENTLY IN. OS_PAGE=0 ;SET OS_PAGE TO 0 DIRECTORY$=Upper$(DIRECTORY$) ;PUT DIRECTORY TEXT IN CAPTIALS/UPPER CASE ;IF YOUR IN "MY COMPUTER" If directory$="*MY COMPUTER*" ;problem is right here---------------------------------------------------- ;COUNT NUMBER OF FILES IN "MY COMPUTER" [IN THIS CASE... DRIVES AVAILABLE] ;DRIVE A:\ -> Z:\ countfiles=0 ;RESET THE FILE COUNT NUMBER For ascii=0 To 25 If FileType(Chr$(ascii+65)+":\")>0 countfiles=countfiles+1 ; Print FileType(Chr$(ascii+65)+":\")+","+FileSize(Chr$(ascii+65)+":\") ; WaitKey Next ;ADJUST ARRAY TO HOLD DATA Dim filenumber$(countfiles,2);0 NAME 1=TYPE 2=ICON filenumber$(0,0)=countfiles ;MAX DRIVES filenumber$(0,1)=(COUNTFILES+15)/16 ;MAX WINDOW PAGES filenumber$(0,2)=0 ;NOTHING ;PUT DATA IN THE ARRAY countfiles=0 For ascii=0 To 25 If FileType(Chr$(ascii+65)+":\")>0 countfiles=countfiles+1 filenumber$(countfiles,0)=Chr$(ascii+65)+":\";FILENAME filenumber$(countfiles,1)=FileType(Chr$(ascii+65)+":\") ;FILETYPE filenumber$(countfiles,2)=(FileType(Chr$(ascii+65)+":\")>0) ;ICONS End If Next ;problem stops here --------------------------------------------- ;IF YOUR NOT IN "MY COMPUTER" ElseIf directory$<>"*MY COMPUTER*" ;COUNT THE NUMBER OF FILES IN THE CURRENT DIRECTORY current=ReadDir(directory$) countfiles=0 ;RESET THE FILE COUNT NUMBER ;GO THROUGH EVERY FILE AND RETURN THE SUM OF THE NUMBER OF FILES Repeat file$=NextFile$(current) If file$<>"" countfiles=countfiles+1 End If Until file$="" CloseDir(current) ;ADJUST ARRAY TO HOLD DATA Dim filenumber$(countfiles,2) ;PUT ALL FILE INFORMATION INTO ARRAY current=ReadDir(directory$) filenumber$(0,0)=countfiles ;MAX FILES filenumber$(0,1)=(COUNTFILES+15)/16 ;MAX WINDOW PAGES filenumber$(0,2)=0 ;NOTHING countfiles=1 ;PUT DATA IN THE ARRAY Repeat file$=NextFile$(current) If FileType(file$)>0 If file$<>"" filenumber$(countfiles,0)=file$ ;FILE NAME filenumber$(countfiles,1)=FileType(file$) ;FILE TYPE ;SET ICON INFORMATION If FileType(FILE$)=2 filenumber$(countfiles,2)=3 If FILE$="." filenumber$(countfiles,2)=9 If FILE$=".." filenumber$(countfiles,2)=7 ElseIf FileType(FILE$)=1 filenumber$(countfiles,2)=25 If Upper(Right$(FILE$,4))=".ARC" filenumber$(countfiles,2)=5 If Upper(Right$(FILE$,4))=".ARJ" filenumber$(countfiles,2)=5 If Upper(Right$(FILE$,4))=".CAB" filenumber$(countfiles,2)=5 If Upper(Right$(FILE$,4))=".RAR" filenumber$(countfiles,2)=5 If Upper(Right$(FILE$,4))=".ZIP" filenumber$(countfiles,2)=5 If Upper(Right$(FILE$,4))=".BMP" filenumber$(countfiles,2)=11 If Upper(Right$(FILE$,4))=".EXE" filenumber$(countfiles,2)=13 If Upper(Right$(FILE$,4))=".COM" filenumber$(countfiles,2)=13 If Upper(Right$(FILE$,4))=".SCR" filenumber$(countfiles,2)=13 If Upper(Right$(FILE$,4))=".BAT" filenumber$(countfiles,2)=13 If Upper(Right$(FILE$,4))=".GIF" filenumber$(countfiles,2)=15 If Upper(Right$(FILE$,4))=".JPG" filenumber$(countfiles,2)=17 If Upper(Right$(FILE$,4))=".PCX" filenumber$(countfiles,2)=19 If Upper(Right$(FILE$,4))=".PNG" filenumber$(countfiles,2)=21 If Upper(Right$(FILE$,4))=".TXT" filenumber$(countfiles,2)=23 If Upper(Right$(FILE$,4))=".DIC" filenumber$(countfiles,2)=23 If Upper(Right$(FILE$,4))=".LOG" filenumber$(countfiles,2)=23 If Upper(Right$(FILE$,4))=".INI" filenumber$(countfiles,2)=23 If Upper(Right$(FILE$,4))=".WRI" filenumber$(countfiles,2)=23 If Upper(Right$(FILE$,4))=".DOC" filenumber$(countfiles,2)=23 If Upper(Right$(FILE$,4))=".MMI" filenumber$(countfiles,2)=27 If Upper(Right$(FILE$,4))=".MML" filenumber$(countfiles,2)=29 If Upper(Right$(FILE$,4))=".MMP" filenumber$(countfiles,2)=31 If Upper(Right$(FILE$,4))=".MMT" filenumber$(countfiles,2)=33 If Upper(Right$(FILE$,4))=".MMS" filenumber$(countfiles,2)=35 End If End If countfiles=countfiles+1 ;ADD TO FILE COUNT End If Until file$="" ;REPEAT UNTIL THERE ARE NO MORE FILES CloseDir(current) End If End Function here is the original topic url http://www.blitzbasic.com/Community/posts.php?topic=96519#1117232

H&K (Posted 2011) [#2]

Possibly? While Right(CurrentDir$(),2)<> ":\" ChangeDir("..") ;GO BACK ONE SUB FOLDER Wend You should change it to this even if this isn't your current problem

Nexinarus (Posted 2011) [#3]

thanx but that still didnt fix the problem. but i do see how the while...wend loop is more practical for something like that.

Nexinarus (Posted 2011) [#4]

I still dont fully understand the Libraries and DLLs and stuff. That's still a bit out of my reach. I may try something a bit different again and see what happens. But I do think that the Blitz team should look into why the code works fine without being compiled and when compiled it gives the pop up window errors. Just something to look into.