vb×Ö·û´®½ØÈ¡ÎÊÌâ
ÔõÑù°ÑÒ»¸öÎļþµÄÎļþÃûÄõ½£¿
±ÈÈ磺Ïë°Ñ¡°D£º\µçÓ°\±äÐνð¸Õ[2008fasdfa].asdfasd.fsdf.rmvb¡±ÖеÄÎļþÃû£¨¼´¡°±äÐνð¸Õ[2008fasdfa].asdfasd.fsdf¡±£©Äõ½£¬ÔõÑùʵÏÖ£¿
VB code:
Private Sub Command1_Click()
Dim a() As String
Dim b() As String
Dim strT As String
strT = "D£º\µçÓ°\±äÐνð¸Õ[2008fasdfa].asdfasd.fsdf.rmvb"
a = Split(strT, "\")
b = Split(a(UBound(a)), ".")
MsgBox Replace(a(UBound(a)), "." & b(UBound(b)), "")
End Sub
ÒýÓÃMicrosoft scripting Runtime
Private Sub Command1_Click()
Dim w As Folder
Dim f As New Scripting.FileSystemObject
Dim fc As Files
Set w = f.GetFolder("E:\me\test\myDll")
Set fc = w.Files
'Debug.Print fc.Count
Call ww(fc)
End Sub
Function ww(ByVal vfc As Files)
Dim s As File
Dim arr1() As String
For Each s In vfc
Erase arr1
arr1 = Split(s.Name, ".")
Debug.Print Left(s.Name, Len(s.Name) - Len(arr1(UBound(arr1))) - 1)
&nb
Ïà¹ØÎÊ´ð£º
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......