前のトピック: FindNextFile - FindFirstFile ディレクトリ スキャンの続行次のトピック: GetDiskFree、GetDiskFreeB、GetDiskFreeKB、および GetDiskFreeMB - 空きディスク領域を返す


GetDir または GetDirectory - 現行ディレクトリ名の取得

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

GetDir または GetDirectory 関数では、現行ディレクトリ名が取得されます。

ファイルの内容に関するこの関数の形式は、以下のとおりです。

GetDir(n1 as Integer) as String
GetDirectory(n1 as Integer) as String
n1

ドライブ番号を示します。

正常に終了した場合、この関数では、指定ドライブの現行ディレクトリ名を含む文字列が返されます。 それ以外の場合は、空の文字列が返されます。

この関数では、パラメータ n1(ドライブ番号を示します。デフォルトは 0、A は 1、B は 2 など)により示されるドライブの現在の作業ディレクトリの名前が返されます。

注: UNIX プラットフォームでは、「n1」には意味がありません。

例: GetDirectory 関数

この例ではディレクトリが作成され、そのディレクトリに Active Directory が設定された後、そのディレクトリの名前が取得されます。 この例では、デフォルト ディレクトリが C:¥ に設定され、作成したディレクトリの名前が変更されます。 このディレクトリが存在している(つまり、名前が変更されていない)場合は、削除されます。

'Create dir
CreateDirectory("C:¥AMTest")

'Set active dir
SetDirectory("C:¥AMTest")
MessageBox(" Current Directory is : " + GetDirectory(0) )

'Set Default to C:¥
SetDirectory("C:¥")

'Rename the directory
RenameDirectory("C:¥AMTest","C:¥AMTest_1")

If ExistDirectory("C:¥AMTest_1") THEN
 RemoveDirectory("C:¥AMTest_1")

Else
 MessageBox("Could not find directory : C:¥AMTest_1")
Endif