GetTempFileName VB声明 Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long 说明 这个函数包含了一个临时文件的名字，它可由应用程序使用 返回值 Long，最终用于生成文件名的wUnique数字的值。如wUnique参数不为零，这就是参数的值。零表示失败。会设置GetLastError 参数表 参数 类型及说明 lpszPath String，临时文件使用的目录。通常用GetTempPath函数获得 lpPrefixString String，要使用的文件名前缀。头三个字符作为文件名前缀使用 wUnique Long，追加到前缀字串后面的数字。如果为0，则这个函数会用一个随机数字生成文件。随后，它会检查是否存在同名的文件。如果存在，函数会增加这个数字，并继续尝试，直到生成一个独一无二的名字为止。文件在驱动器上会以长度为0字节的形式保存。如果不为零，就不会创建文件，而且函数不会核实它是否一个独一无二的文件名 lpTempFileName String，用于装载新建临时文件名的缓冲区，这个缓冲区的长度至少应为MAX_PATH个字符 注解 函数使用的文件名肯定采用ANSI字符集。临时文件不会被windows自动删除
GetFullPathName VB声明 Declare Function GetFullPathName& Lib "kernel32" Alias "GetFullPathNameA" (ByVal lpFileName As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, lpFilePart As Long) 说明 获取指定文件的完整路径名 返回值 Long，装载到lpBuffer中的字符数量（排除空中止字符）。如缓冲区的长度不足以容下完整的路径，则返回值就是要求的缓冲区大小。零表示失败。会设置GetLastError 参数表 参数 类型及说明 lpFileName String，指定文件名（长文件名或8.3格式的DOS文件名） nBufferLength Long，lpBuffer字串的长度 lpBuffer String，指定一个预先定义好的字串，用于装载目标文件的驱动器及路径名称。如存在长文件名，那么这个参数保存的就肯定是长文件名 lpFilePart Long，指定一个长整数变量，用于装载文件名起始的地方。参考注解 注解 lpFilePart参数在vb里很难使用。它的问题在于：尽管windows在这个Long值中装载lpBuffer字串中的地址，用它表示路径信息文件名部分的起始处。但非常不幸，由vb创建的、传递给api的ANSI字串缓冲区也会使用这个地址。等这个函数返回的时候，vb已将返回的（lpBuffer）字串复制回它的内部Unicode字串缓冲区，所以lpFilePart地址已没有任何意义。因此，我们面临两种选择。首先，可以简单的不使用lpFilePart信息（忽略windows装载在参数中的值）。其次，可以将lpBuffer参数变成一个字节数组（lpFilePart As Byte——将数组的第一个元素作为参数传递）
I'm in Windows2000, use function GetTempPath Dim strTemp As String strTemp = String(100, Chr$(0)) GetTempPath 100, strTemp strTemp = Left$(strTemp, InStr(strTemp, Chr$(0)) - 1)But the value of strTemp is "D:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\"(my Windows2000 is in partation D), how can I get the full path name ,not this format?this is full path name
But I use Function Shell "Deltree -y " & strTemp & "*.*",vbHide raise a mistake:File not Found.I want to clear the Temp Dir.
Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
说明
这个函数包含了一个临时文件的名字，它可由应用程序使用
返回值
Long，最终用于生成文件名的wUnique数字的值。如wUnique参数不为零，这就是参数的值。零表示失败。会设置GetLastError
参数表
参数 类型及说明
lpszPath String，临时文件使用的目录。通常用GetTempPath函数获得
lpPrefixString String，要使用的文件名前缀。头三个字符作为文件名前缀使用
wUnique Long，追加到前缀字串后面的数字。如果为0，则这个函数会用一个随机数字生成文件。随后，它会检查是否存在同名的文件。如果存在，函数会增加这个数字，并继续尝试，直到生成一个独一无二的名字为止。文件在驱动器上会以长度为0字节的形式保存。如果不为零，就不会创建文件，而且函数不会核实它是否一个独一无二的文件名
lpTempFileName String，用于装载新建临时文件名的缓冲区，这个缓冲区的长度至少应为MAX_PATH个字符
注解
函数使用的文件名肯定采用ANSI字符集。临时文件不会被windows自动删除
Declare Function GetFullPathName& Lib "kernel32" Alias "GetFullPathNameA" (ByVal lpFileName As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, lpFilePart As Long)
说明
获取指定文件的完整路径名
返回值
Long，装载到lpBuffer中的字符数量（排除空中止字符）。如缓冲区的长度不足以容下完整的路径，则返回值就是要求的缓冲区大小。零表示失败。会设置GetLastError
参数表
参数 类型及说明
lpFileName String，指定文件名（长文件名或8.3格式的DOS文件名）
nBufferLength Long，lpBuffer字串的长度
lpBuffer String，指定一个预先定义好的字串，用于装载目标文件的驱动器及路径名称。如存在长文件名，那么这个参数保存的就肯定是长文件名
lpFilePart Long，指定一个长整数变量，用于装载文件名起始的地方。参考注解
注解
lpFilePart参数在vb里很难使用。它的问题在于：尽管windows在这个Long值中装载lpBuffer字串中的地址，用它表示路径信息文件名部分的起始处。但非常不幸，由vb创建的、传递给api的ANSI字串缓冲区也会使用这个地址。等这个函数返回的时候，vb已将返回的（lpBuffer）字串复制回它的内部Unicode字串缓冲区，所以lpFilePart地址已没有任何意义。因此，我们面临两种选择。首先，可以简单的不使用lpFilePart信息（忽略windows装载在参数中的值）。其次，可以将lpBuffer参数变成一个字节数组（lpFilePart As Byte——将数组的第一个元素作为参数传递）
strTemp = String(100, Chr$(0))
GetTempPath 100, strTemp
strTemp = Left$(strTemp, InStr(strTemp, Chr$(0)) - 1)But the value of strTemp is "D:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\"(my Windows2000 is in partation D), how can I get the full path name ,not this format?this is full path name
Shell "Deltree -y " & strTemp & "*.*",vbHide
raise a mistake:File not Found.I want to clear the Temp Dir.