vb點(diǎn)虐 中怎么判斷文件類型

這個(gè)問題可以用注冊(cè)表解決。

目前創(chuàng)新互聯(lián)公司已為1000多家的企業(yè)提供了網(wǎng)站建設(shè)、域名、虛擬主機(jī)、網(wǎng)站托管、服務(wù)器租用、企業(yè)網(wǎng)站設(shè)計(jì)、于洪網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長(zhǎng)，共同發(fā)展。

Function getOpenCommand(fileExt As String) as String

Dim fileType as String, openCommand as String

fileExt = "." + fileExt

'取得文件擴(kuò)展名在注冊(cè)表里的文件類型名稱

'比如.zip的類型名稱一般是zipfile

fileType = 讀取注冊(cè)表的classes_root下的子鍵(fileExt)的默認(rèn)鍵值

'取得打開這種文件的程序

openCommand = 讀取注冊(cè)表的classes_root下的子鍵(fileType + "\shell\open\command")的默認(rèn)鍵值

Return getOpenCommand

End Function

讀取注冊(cè)表的HKEY_CLASSES_ROOT下的子鍵的默認(rèn)鍵值的方法可以在網(wǎng)上搜索到。

這樣getOpenCommand("doc")就可以得到一個(gè)字符串(包括引號(hào))：

"C:\Program Files\Word\word.exe" "%1"

這里只需要用Spilt函數(shù)把C:\Program Files\Word\word.exe分離出來就好了

vb點(diǎn)虐 怎么判斷一個(gè)文件夾或是文本文件的存在?如果沒有則創(chuàng)建……求代碼!不要VB6.0的

判斷和創(chuàng)建可以放在一起。

創(chuàng)建空文件夾：

Directory.CreateDirectory(文件夾完整路徑)

'系統(tǒng)會(huì)自動(dòng)判斷文件夾是否存在，不存在就創(chuàng)建判斷并創(chuàng)建空文件：

Using fs As New FileStream("f.txt", FileMode.OpenOrCreate)

'你可以用這個(gè)FileStream做其它事情

End Using

vb點(diǎn)虐 如何判斷路徑是文件還是文件夾

脫離具體的環(huán)境談并沒有任何意義，所以如果當(dāng)前電腦上存在此文件就是文件，存在此文件夾則為文件夾，否則什么也不是。

'Imports?System.IO

Dim?s?As?String?=?"C:\1.txt"

If?File.Exists(s)?Then

MessageBox.Show("文件")

ElseIf?Directory.Exists(s)?Then

MessageBox.Show("路徑")

Else

MessageBox.Show("什么都不是")

End?If