Path

構文
Folder.Path
引数
戻値

プログラム実行例

一時ファイルを作成・削除

CONST TemporaryFolder = 2

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM Folder = FSO.GetSpecialFolder(TemporaryFolder)
DIM path = Folder.Path
DIM name = FSO.GetTempName
path = FSO.BuildPath(path, name)

PRINT path

DIM TextStream = FSO.CreateTextFile(path)
// 現在の日時をファイルに書き込む
TextStream.WriteLine(now())
TextStream.Close

// Tempファイルを削除
// FSO.DeleteFile(path)

FUNCTION now()
	GETTIME()
	RESULT = G_TIME_YY4 + "/" + G_TIME_MM2 + "/" + G_TIME_DD2 + " " + G_TIME_HH2 + ":" + G_TIME_NN2
FEND
  1. CREATEOLEOBJ
  2. FSO.GetSpecialFolder
  3. FSO.Folder.Path
  4. FSO.GetTempName
  5. FSO.BuildPath
  6. FSO.CreateTextFile
  7. FSO.TextStream
  8. FSO.TextStream.WriteLine
  9. FSO.TextStream.Close
  10. FSO.DeleteFile
結果
D:\TMP\rad83BB3.tmp

csvファイルをHTMLのテーブルデータにする(csvToHTML)

CSVのデータをHTML(テーブル)に変換します。

クリップボードにcsvファイルのパスをコピーして実行します。

CONST TemporaryFolder = 2

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM Folder = FSO.GetSpecialFolder(TemporaryFolder)
DIM folderspec = Folder.Path
DIM name = FSO.GetTempName
DIM TempPath = FSO.BuildPath(folderspec, name)

DIM path = GETSTR(0)
DIM FID = FOPEN(path, F_READ)
DIM FID2 = FOPEN(TempPath, F_READ OR F_WRITE)
FPUT(FID2, "<table>", F_ALLTEXT)

FOR row = 1 TO FGET(FID, F_LINECOUNT)
	DIM col = 1
	FPUT(FID2, "<#TAB><tr>", 0)
	WHILE FGET(FID, row, col) <> ""
		FPUT(FID2, "<#TAB><#TAB><td>" + (FGET(FID, row, col)) + "</td>", 0)
		col = col + 1
	WEND
	FPUT(FID2, "<#TAB></tr>", 0)
NEXT
FPUT(FID2,"</table>", 0)

FCLOSE(FID)
FCLOSE(FID2)

FID = FOPEN(TempPath, F_READ)
SENDSTR(0, FGET(FID, F_ALLTEXT))
PRINT FGET(FID, F_ALLTEXT)
FCLOSE(FID)
  1. CREATEOLEOBJ
  2. FSO.GetSpecialFolder
  3. FSO.Folder.Path
  4. FSO.GetTempName
  5. FSO.BuildPath
  6. GETSTR
  7. FOPEN
  8. FPUT
  9. FGET
  10. FCLOSE
  11. SENDSTR

Tempフォルダのパスを取得

CONST TemporaryFolder = 2

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM Folder = FSO.GetSpecialFolder(TemporaryFolder)

PRINT Folder.Path
  1. CREATEOLEOBJ
  2. FSO.GetSpecialFolder
  3. FSO.Folder.Path
結果
D:\TMP

フォルダ内の情報を表示

CONST TemporaryFolder = 2

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM Folder = FSO.GetSpecialFolder(TemporaryFolder)

WITH Folder
	PRINT "名前<#TAB><#TAB>" + .Name
	PRINT "親フォルダパス<#TAB>" + .ParentFolder.Path
	PRINT "パス<#TAB><#TAB>" + .Path
	PRINT "短い名前<#TAB>" + .ShortName
	PRINT "短いパス<#TAB>" + .ShortPath
ENDWITH
  1. CREATEOLEOBJ
  2. FSO.GetSpecialFolder
  3. WITH
  4. FSO.Folder.Name
  5. FSO.Folder.ParentFolder
  6. FSO.Folder.Path
  7. FSO.Folder.ShortName
  8. FSO.Folder.ShortPath
結果
名前 TMP
親フォルダパス D:\
パス D:\TMP
短い名前 TMP
短いパス D:\TMP