Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎÊ´ð£º

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

ÇëºÃÐÄÈ˰ïÎÒ°ÑVBÔ´ÂëתΪVB.NET~

Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..


Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html

תΪVB.NETÔ´Âë.

СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ

ÎÒµÄEMAILÊÇ:4452 ......

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

vb.net ´´½¨accessÊý¾Ý±íʵÏÖÒ»Êý¾Ý¿â¶à¸öÊý¾Ý±í£¿

Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......

100·Ö£¡¹ØÓÚvbµ÷ÓÃdelphi±àдµÄdllµÄÎÊÌ⣬¼±£¡£¡£¡

¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ