'判斷檔名windows下的目錄名是否合法
function isvalidwindowsfoldername(strfoldername)
isvalidwindowsfoldername=true
serrorstr=array("/","/",":","*","?","""","<",">","|")
inamelength=len(strfoldername)
'判斷目錄長度是否合法
if inamelength<1 or inamelength=null or inamelength>255 then
isvalidwindowsfoldername=false
else
'判斷目錄名字中是否有非法字元
for i=0 to 8
if instr(strfoldername,serrorstr(i)) then
isvalidwindowsfoldername=false
exit function
end if
next
end if
end function
'判斷檔名windows下的檔名是否合法
function isvalidwindowsfilename(strfilename)
isvalidwindowsfilename=true
serrorstr=array("/","/",":","*","?","""","<",">","|")
inamelength=len(strfilename)
if inamelength<1 or inamelength=null or inamelength>255 then
response.write("")
response.end()
isvalidwindowsfilename=false
else
if instr(strfilename,".htm")>0 or instr(strfilename,".html")>0 or instr(strfilename,".asp")>0 or instr(strfilename,".shtml")>0 then
for i=0 to 8
if instr(strfilename,serrorstr(i)) then
response.write("")
response.end()
isvalidwindowsfilename=false
exit function
end if
next
else
response.write("")
response.end()
isvalidwindowsfilename=false
end if
end if
end function
'*******************************************
'函式作用：取得檔案路徑
'*******************************************
function getlocalpathdir(byval d)
if len(d) = 0 then exit function
if instr(strfilename,"/")<0 then
getlocalpathdir=d
else
getlocalpathdir=left(d,instrrev(d,"/")-1)
end if
end function
'*******************************************
'函式作用：取得檔名
'*******************************************
function getlocalpathfile(byval d)
if len(d) = 0 then exit function
if instr(strfilename,"/")<0 then
getlocalpathfile=d
else
getlocalpathfile=right(d,len(d)-instrrev(d,"/"))
end if
end function
'*******************************************
'函式作用：取得檔案字尾名
'*******************************************
function getlocalpathfileext(byval d)
if len(d) = 0 then exit function
if instr(strfilename,".")<0 then exit function
getlocalpathfileext=right(d,len(d)-instrrev(d,"."))
end function
'*******************************************
'函式作用：取得檔案的字尾名
'*******************************************
function getextensionname(name)
dim arrayfilename
arrayfilename=split(name,".")
getextensionname=arrayfilename(ubound(arrayfilename))
end function
'*******************************************
'函式作用：格式化檔案的大小
'*******************************************
function getfilesize(size)
dim filesize
filesize=size / 1024
filesize=formatnumber(filesize,2)
if filesize < 1024 and filesize > 1 then
getfilesize=""& filesize & " kb"
elseif filesize >1024 then
getfilesize=""& formatnumber(filesize / 1024,2) & " mb"
else
getfilesize=""& size & " bytes"
end if
end function
'*******************************************
'函式作用：格式化檔案屬性
'*******************************************
function getfileattr(attributesno)
dim attributesname
select case attributesno
case 0
attributesname="normal"
case 1
attributesname="readonly"
case 2
attributesname="hidden"
case 4
attributesname="system"
case 8
attributesname="volume"
case 16
attributesname="directory"
case 32
attributesname="archive"
case 64
attributesname="alias"
case 128
attributesname="compressed"
case else
attributesname=attributesno
end select
getfileattr=attributesname
'normal 0 一般檔案，未設定屬性
'readonly 1 唯讀檔案，屬性為讀/寫
'hidden 2 隱藏檔案，屬性為讀/寫
'system 4 系統檔案，屬性為讀/寫
'volume 8 磁碟驅動器卷標，屬性為唯讀
'directory 16 資料夾或目錄，屬性為唯讀
'archive 32 自上次備份後已經改變的檔案，屬性為讀/寫
'alias 64 鏈結或快捷方式，屬性為唯讀
'compressed 128 壓縮檔案，屬性為唯讀
end function
檔名（字尾名）修改
就自己寫了段 來實現 檔名 字尾名 修改的小函式。剛開通部落格就把 放上來了。希望大俠看到指點一二。不勝榮幸！view code 1 2 修改檔名 3 4 原始檔全名 包括路徑 5 檔案字尾名 為空表示不修改 6 檔案後 為空表示不修改 7 返回異常訊息 8static void changeext...
Shell 獲取檔名和字尾名
file thisfile.txt echo filename echo extension 輸出 filename thisfile extension txt 附 基於pattern matching的子串替換 替換第乙個。替換所有。注意 不能使用正規表示式，只能使用?的shell擴充套件。只能...
python 檔案路徑名,檔名，字尾名的操作
需要使用路徑名來獲取檔名，目錄名，絕對路徑等等。使用os.path 模組中的函式來操作路徑名。下面是乙個互動式例子來演示一些關鍵的特性 import os path users beazley data data.csv get the last component of the path os.p...