Desktop Management スクリプト言語 › 関数 › ファイル システム関数 › FindNextFile - FindFirstFile ディレクトリ スキャンの続行

FindNextFile - FindFirstFile ディレクトリ スキャンの続行

NetWare、Symbian OS、UNIX、Windows、および Windows CE で有効です。

FindNextFile 関数では、ディレクトリ スキャンが続行されます。

関数の形式

FindNextFile(findHandle as Integer, filename as String) as Integer

findHandle

FindFirstFile で返されたハンドルを識別します。

filename

見つかったファイルの名前を含む出力パラメータを指定します。

この関数では、ファイルが検出された場合、値 1 が返され、検出されない場合、値 0 が返されます。

例：

Function contents(root as string) As Boolean
	Dim fileName As String
	Dim iHandle As Integer
	Dim rootRoot As String
	
	rootRoot = Mid(root, 0, len(root)-1)
	iHandle = FindFirstFile(root, fileName)) Then
	If iHandle = 0 Then
		Print("No files found at """ + root + """")
	Else
		Repeat
			If Is_Dir(rootRoot + fileName) Then
				Print("""" + rootRoot + fileName + """ is a directory")
				if Not(fileName = ".") AND Not(fileName = "..") Then
					contents(rootRoot + fileName + "\*")
				End If
			Else
				Print("""" + rootRoot + fileName + """ is a file")
			End If
		Until Not(FindNextFile(iHandle, fileName))

		FindClose(iHandle)
	End If
	contents = TRUE
End Function

Dim i As Integer
ClrScr()
if Argc() = 1 Then
	終了
End If
For i=1 To Argc()-1
	Print(NEWLINE$ + "Recursive List of """ + Argv(i) + """")
	Contents(Argv(i))
Next i

Invokation: dmscript sample.dms c:\* -w_dms