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 获取链接文件格式

你说的某连接的文件格式具体指的是什么？不用字符串难道直接读系统？
还有你获得的“某连接”这个“连接”最后是字符串方式纯在的还么？