TOPIC:

C:\Test>dir/X 862*.jpg
 Volume in Laufwerk C: hat keine Bezeichnung.
 Volumeseriennummer: DA00-F3C0

 Verzeichnis von C:\Test

23.09.2021  18:00                 5 862202~1.JPG 86220200630.JPG
23.09.2021  18:00                 5 8624E7~1.JPG 86720210702.JPG
               2 Datei(en),             10 Bytes
               0 Verzeichnis(se), 119.755.788.288 Bytes frei

FUNCTION SearchFiles()
LOCAL aFiles, aDir AS ARRAY
LOCAL i AS DWORD 
LOCAL hFile, hFind AS PTR 
LOCAL cDir, cFile AS STRING
LOCAL struFindData IS _winWIN32_FIND_DATA 


	cDir := "c:\Test\"	
//	cDir := "d:\Test\"

	aFiles := {} 
	
	// long filenames 
	AAdd(aFiles,"86220200630.JPG")
	AAdd(aFiles,"86720210702.JPG")
   
	FOR i := 1 TO ALen(aFiles)
		IF ! File( cDir + aFiles [i])
			IF ( hFile := FCreate( cDir + aFiles[i], FC_NORMAL ) ) != F_ERROR
				FWrite( hFile, "Jimmy" )
				FClose( hFile )
			ENDIF 	
		ENDIF	       
	NEXT

	aDir := Directory( cDir + "862*.JPG") 
    
	?
	? "Directory() results"
	?
   
	FOR i := 1 UPTO ALen ( ADir ) 
		? aDir [ i , F_NAME ] 
	NEXT
	
	?
	? "FindxxxFile results"
	?
	
	cFile := cDir + "862*.JPG" 

	IF ( hFind := FindFirstFile( String2Psz ( cFile ) , @struFindData) )  != INVALID_HANDLE_VALUE

		// note: Psz2String ( @struFindData.cAlternateFileName ) shows the 8.3 filename if any
		
		? Psz2String ( @struFindData.cFileName ) , Psz2String ( @struFindData.cAlternateFileName )
		
		WHILE FindNextFile(hFind, @struFindData)
			? Psz2String ( @struFindData.cFileName ) , Psz2String ( @struFindData.cAlternateFileName )
		ENDDO 	           
 			
 		FindClose ( hFind ) 	

	ENDIF    		
   

#ifdef __XSHARP__ 

	?
	? "System.IO.Directory.GetFiles results"
	?
        
	VAR files := System.IO.Directory.GetFiles(cDir, "862*.JPG" ) 
	
	FOREACH VAR f IN files 
		? System.IO.Path.GetFileName ( f )
	NEXT 	
	
  
   
#endif   

   
RETURN TRUE

FUNCTION SearchFiles2()
LOCAL cDir, sWildCard  AS STRING 	
LOCAL aFiles AS ARRAY 
LOCAL files AS STRING[]
LOCAL i AS DWORD 
LOCAL hFile AS PTR 

	cDir := "c:\Test\"	// 8dot3name enabled 
//	cDir := "d:\Test\"

	aFiles := {}  
	
	AAdd(aFiles,"86220200630.JPG")
	AAdd(aFiles,"86720210702.JPG")
	AAdd(aFiles,"86220200630.Txt")
	AAdd(aFiles,"86720210702.Txt")
	AAdd(aFiles,"Test1.htm")
	AAdd(aFiles,"Test1.html")	
	AAdd(aFiles,"TEst2.html")		
	
//	sWildCard := "*.???" 	
//	sWildCard := "*.*" 
	sWildCard := "862*.jpg" 
//	sWildCard := "86220200630.JPG"	
//	sWildCard := "862*.txt" 	
//	sWildCard := "*.h*"
//	sWildCard := "*.htm"	 
//	sWildCard := "*.html" 
	
	? "Current search mask: " + sWildCard

	FOR i := 1 TO ALen(aFiles)
		IF ! File( cDir + aFiles [i])
			IF ( hFile := FCreate( cDir + aFiles[i], FC_NORMAL ) ) != F_ERROR
				FWrite( hFile, "Jimmy" )
				FClose( hFile )
			ENDIF 	
		ENDIF	       
	NEXT

	

	
	?
	? "System.IO.Directory.GetFiles results"
	?
	
 
	files := System.IO.Directory.GetFiles(cDir, sWildCard ) 

	FOREACH cFile AS STRING IN files 
		
		VAR oFile := System.IO.FileInfo{cFile}	
		
		? _Like ( sWildCard:ToUpper() , oFile:Name:ToUpper() ) , oFile:Name
		
		/* 
			Only if _Like() returns true, the file should be added inside  		
		 	the Directory() function.			

		*/

	NEXT 
	
	?
	? PathMatchSpec ( "Test.htm" , "*.htm" ) 	// ok, true 
	? PathMatchSpec ( "Test.html" , "*.htm" ) 	// ok, false 
	? PathMatchSpec ( "Test.html" , "*.html" ) 	// ok, true 
	
RETURN TRUE 	

[DllImport("shlwapi.dll", CharSet := CharSet.Auto)] ;
FUNCTION PathMatchSpec( pszFileParam AS STRING , pszSpec AS STRING ) AS LOGIC

FUNCTION Like(sWildCard AS STRING, sSource AS STRING) AS LOGIC
    IF XSharp.RuntimeState.Dialect == XSharpDialect.FoxPro
        RETURN _Like(sWildCard, sSource)
    ENDIF
    RETURN _Like(Upper(sWildCard), Upper(sSource))

CONST EXPORT F_NAME := 1 AS INT
CONST EXPORT F_SIZE := 2 AS INT
CONST EXPORT F_DATE := 3 AS INT
CONST EXPORT F_WRITE_DATE := 3 AS INT  // New
CONST EXPORT F_TIME := 4 AS INT
CONST EXPORT F_WRITE_TIME := 4 AS INT // New
CONST EXPORT F_ATTR := 5 AS INT
CONST EXPORT F_EA_SIZE := 6 AS INT  // New: 
CONST EXPORT F_CREATION_DATE := 7 AS INT // New
CONST EXPORT F_CREATION_TIME := 8 AS INT // New
CONST EXPORT F_ACCESS_DATE := 9 AS INT  // New
CONST EXPORT F_ACCESS_TIME := 10 AS INT // New

? ShowArray ( aDirectoryResult )

a[1] = {[0000000010]0x0141B42A} (A)
a[1][1] = 86220200630.Txt (C)
a[1][2] = 5 (N)
a[1][3] = 29.09.2021 (D)
a[1][4] = 08:30:11 (C)
a[1][5] = A (C)
a[1][6] = 32 (N)
a[1][7] = 27.09.2021 (D)
a[1][8] = 07:39:26 (C)
a[1][9] = 29.09.2021 (D)
a[1][10] = 08:30:11 (C)