我使用的VB6.0，想问：如何判断 一串字符串 能否作为文件夹的名字

我只是来看看的，这个世界还有太多的帖需要哥。哥祝楼主早日得到解答

我是露珠炒鸡萌的小伙伴，我来帮露珠顶一个帖，露珠早点得到解答哟

听说十五个字可以得经验，我来试试，顺便帮卤煮顶一下，卤煮不用谢

本吧好心人解答一下吧~~~

正则。
简单的方法也有，手机没法写代码

Private Sub Command1_Click()
If Not CheckFileName(text1.Text) Then
MsgBox "不能作为文件名", vbCritical
End If
End Sub
'检查字符串是否是合法的文件名
Private Function CheckFileName(ByVal fStr As String) As Boolean
Dim TS As String
Dim i As Integer
TS = "\/*:?<>|" & Chr(34)
For i = 1 To Len(TS)
If InStr(fStr, Mid(TS, i, 1)) > 0 Then Exit Function
Next
CheckFileName = True
End Function

文件夹命名的非法数字总共就那么多，用个if or就搞定了