PDA

Vollständige Version anzeigen : Eine Datei in Temp Verzeichnis ablegen


alan
27.06.2001, 15:55
Ich versuche mit
Set a = fs.CreateTextFile("$TEMP\barcode.txt", True)
eine Datei anzulegen, kriege aber Feler Meldung "Pfad nicht gefunden". Wie kann ich
unabchängig von der Drivebuchstabe den Pfad
zu dem lokalen Tempvrzeichnis angeben?

alan

Scorefun
27.06.2001, 16:03
auch sowas findet man in der know-how-db:

Private Declare Function api_GetTempPath Lib "kernel32" Alias "GetTempPathA" _
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Function GetTempDir() As String
Dim lpBuffer As String * 255
Dim Length As Long
Length = api_GetTempPath(Len(lpBuffer), lpBuffer)
GetTempDir = Left(lpBuffer, Length)
If Right(GetTempDir, 1) <> "\" Then GetTempDir = GetTempDir & "\"
End Function

Stefan Kulpa
27.06.2001, 16:10
<font face="Verdana" size="2">Hallo,

da du schon mit FSO arbeitest, kannst du dir dort auch den Temp-Pfad holen:</font>

<FONT SIZE=1 FACE=Courier New> <FONT COLOR=#000080>Dim</FONT> objFso <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>New</FONT> FileSystemObject
<FONT COLOR=#000080>Dim</FONT> objTs <FONT COLOR=#000080>As</FONT> TextStream
<FONT COLOR=#000080>Dim</FONT> sTmpFld <FONT COLOR=#000080>As String</FONT>

sTmpFld = objFso.GetSpecialFolder(2)
<FONT COLOR=#000080>If</FONT> Right(sTmpFld, 1) <> "\" <FONT COLOR=#000080>Then</FONT> sTmpFld = sTmpFld & "\"
<FONT COLOR=#000080>Set</FONT> objTs = _
objFso.CreateTextFile(sTmpFld & "barcode.txt", <FONT COLOR=#000080>True</FONT>)

</FONT>

<font face="Verdana" size="2">HTH</font>