vb6判斷文件後綴

『壹』 VB如何判斷一個文件是否是JPG文件

'測試圖片文件是否為JPG或JPEG文件(與文件擴展名無關)
'參數說明：Filename 要測試的圖片文件名,返回值為邏輯型
'調用舉例：if TestJpgFile("c:\1.jpg")=True then msgbox "是JPG文件"
Function TestJpgFile(Filename As String) As Boolean
Dim i As Integer, S As String, bb() As Byte
If Dir(Filename) = "" Or Filename = "" Then Exit Function
i = FreeFile
ReDim bb(9)
Open Filename For Binary As #i
Get #i, 1, bb
Close #i
S = UCase(StrConv(bb, vbUnicode))
'JPG文件
If UCase(Chr(bb(6)) & Chr(bb(7)) & Chr(bb(8)) & Chr(bb(9))) = "EXIF" Then TestJpgFile = True
'JPEG文件,如何你覺得不用，可刪除下面這行代碼
If UCase(Chr(bb(6)) & Chr(bb(7)) & Chr(bb(8)) & Chr(bb(9))) = "JFIF" Then TestJpgFile = True
End Function

『貳』 急求！vb6判斷文件大小是否正確的代碼

Filelen("文件路徑") 文件大小使用這個函數

FileCopy "c: mp1.exe", "c:2.exe" '將c: mp1.exe拷貝到c:2.exe

用這2個函數就能滿足你要求 其他自行修改

『叄』 在VB6中用什麼代碼判斷某個文件是否存在

將窗口載入的事件處理程序改成這樣：PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDimfilePathAsString=「在此輸入希望判斷的文件名」IfNot(file.Exists(System.AppDomain.CurrentDomain.BaseDirectory&filePath)Then'將應用程序存在的版目錄及文件名拼接權起來，然後判斷是否存在Me.Close()'如果不存在，則將關閉窗口EndSub

『肆』 vb編程指定擴展名

提供一個函數給你，在使用這人函數之前你必需先做一個注冊表操作函數，建議直接引用VB6提供注冊表操作模塊。這個模塊安裝VB6時已自帶，新建模塊時使用模板就行了。

'================================================================================
'添加、刪除文件關聯 OK 參數：後綴名,文件說明,添加/刪除,[文件圖標索引]
'================================================================================
Public Sub SET_LINK(mSuffix As String, mStyle As String, mState As Boolean, Optional Iconi As Integer)
Dim mLink As String '關聯的後綴名
Dim mOpen As String '關聯打開的程序路徑

On Error GoTo RegKeyError
mLink = LCase(mSuffix)
mOpen = App.Path & "\" & App.EXEName & ".exe" '你要關聯打開的程序路徑。
If mState Then
'設置文件關聯
Call UpdateKey(HKCR, "." & mLink, "", mLink & ".file")
Call UpdateKey(HKCR, mLink & ".file", "", mStyle)
Call UpdateKey(HKCR, mLink & ".file\DefaultIcon", "", mOpen & "," & Iconi)
Call UpdateKey(HKCR, mLink & ".file\Shell", "", "")
Call UpdateKey(HKCR, mLink & ".file\Shell\Open", "", "")
Call UpdateKey(HKCR, mLink & ".file\Shell\Open\command", "", mOpen & " %1")
Else
'刪除文件關聯
Call DeleteKey(HKCR, "." & mLink)
Call DeleteKey(HKCR, mLink & ".file\Shell\Open\command")
Call DeleteKey(HKCR, mLink & ".file\Shell\Open")
Call DeleteKey(HKCR, mLink & ".file\Shell")
Call DeleteKey(HKCR, mLink & ".file\DefaultIcon")
Call DeleteKey(HKCR, mLink & ".file")
End If
Exit Sub

RegKeyError:
End Sub

如：SET_LINK "123", "123 自定義文件", True, 0 這樣就可以注冊123這個後綴名稱的文件了。同樣的函數改成False就可以將此關聯刪除。

關聯後，雙擊此關聯文件，會直接打開所關聯的程序。在程序中可 Command 函數來取得傳入的參數，如果是雙擊些關聯程序則傳入的參數即是此關聯文件的路徑。這樣在程序中即可對其進行要許多操作。

注冊表操作模塊在VB98同目錄下（也就是VB的這安裝根目錄）。Template(模塊)--》Code(代碼目錄)文件夾中有。或者添加模塊時選擇現存標簽，然後再選擇，Template文件夾，再選擇Code文件夾，裡面就有一個現成的「注冊表訪問」模塊。

『伍』 VB6打開文件方式的判斷，請各位前輩指點迷津

滑鼠雙擊和敲回車，在本質上是沒有差別的，基本上不能分辨（也許可以監視鼠版標鍵盤動作分辨權？不要問我，我不知道怎麼分辨）
shell和以上一樣，無法區分
shellexecute和winexecute調用，可能能通過此程序的父進程來判斷

無論如何啟動的程序，基本上只有父進程不同，可以通過父進程來判斷
雙擊、回車、shell這些方法啟動的話，父進程是explorer，其他方式啟動的，父進程是啟動它的程序。

你可以下載一個process explorer來研究下父進程的問題。

或者你還可以通過程序運行時的安全描述符來判斷，這個跟系統的賬號有關系的，我也不太明白

『陸』 vb 如何判斷文件夾內是否有文件

1、vb使用dir函數來查找文件或文件夾。
2、Dir 函數：
返回一個 String，用以表示一個文件名、目錄內名或文件夾名稱，它必須與指定的容模式或文件屬性、或磁碟卷標相匹配。

語法：Dir[(pathname[, attributes])]

3、Dir 會返回匹配 pathname 的第一個文件名。若想得到其它匹配 pathname 的文件名，再一次調用Dir，且不要使用參數。如果已沒有合乎條件的文件，則 Dir 會返回一個零長度字元串 ("")。
4、vb6示例:
MyFile = Dir("C:\WINDOWS\WIN.ini")
' 返回"WIN.INI"（文件存在），返回""(文件不存在)。

『柒』 vb6如何比對兩個文件夾文件名

請看下面的代來碼：

OnErrorGoTomyErr
OpenmyFileForInputAs#1'"myFile"是你要判斷自的文件
Close#1
MsgBox"該文件可以讀取"
ExitSub
myErr:
MsgBox"本程序無法讀取該文件"

請把代碼加在一個過程或函數里。

注意，沒有文件的時候也會彈出提示框：「本程序無法讀取該文件」

『捌』 vb 規定窗體文件的擴展名是什麼

VB中規定窗體文件的擴展名是.frm

(8)vb6判斷文件後綴擴展閱讀：

常用屬性

下面介紹文本框的常用屬性。

（1）Text屬性
設置控制項中顯示的文本內容。其使用語法如下：
text1.Text[=字元串]

（2）MaxLength屬性
設置文本框中輸入的字元串長度是否有限制。默認值為0，表示該單行文本框中字元串的長度只受操作系統內存的限制；若設置為大於0的數，則表示能夠輸入的最大字元數目。

（3）MultiLine屬性
設置文本框是否以多行方式顯示文本。設置為True時以多行文本方式顯示；設置為False（默認）時以單行方式顯示，超出文本框寬度的部分被截除。其使用語法如下：
text1.MultiLine [=True或False]

（4）PasswordChar屬性
設置是否在控制項中顯示用戶鍵入的字元。如果該屬性設置為某一字元，那麼無論Text屬性值是什麼，在文本框中都只顯示該字元。另外，要想使該屬性有效，MultiLine屬性必須設置為False。

（5）ScrollBars屬性
設置文本框是否有垂直或水平滾動條。其使用語法如下：
text1.ScrollBars[=值]
其中的「值」可以為0，1，2，3。

0（默認值）表示沒有滾動條；

1表示有水平滾動條；

2表示有垂直滾動條；

3表示有水平和垂直滾動條。

另外，要想使該屬性有效，MultiLine屬性必須設置為True。

（6）SelLength、SelStart和SelText屬性
SelLength返回/設置選定的字元數。
SelStart返回/設置選定文本的起始點。
SelText返回/設置包含當前選定文本的字元串。

『玖』 VB6，判斷一個文本文件是否含有一個給定的字元串

提供個思路
使用instr函數進行查找
在查找前，把回車換行符都替換掉
祝好運，望採納

『拾』 vb6 獲取鏈接文件格式

你說的某連接的文件格式具體指的是什麼？不用字元串難道直接讀系統？
還有你獲得的「某連接」這個「連接」最後是字元串方式純在的還么？