Делаю так:
- Код: Выделить всё
Dim tmp As String
tmp = Dir("d:\*.*")
Do While Len(tmp) > 0
tmp = Dir()
Okno1.Text = Okno1.Text & tmp
Loop
Окно остается пустым!
Dim tmp As String
tmp = Dir("d:\*.*")
Do While Len(tmp) > 0
tmp = Dir()
Okno1.Text = Okno1.Text & tmp
Loop
Dim tmp As String
tmp = Dir("d:\", vbDirectory)
Do While Len(tmp) > 0
Okno1.Text = Okno1.Text & tmp
tmp = Dir()
Loop
Dim Tmp As String, I As Integer, Kstr As String
Tmp = Dir("D:\", vbDirectory)
Do While Len(Tmp) > 0
ReDim Preserve DirArray(I)
DirArray(I) = Tmp
I = I + 1
Okno1.Text = Okno1.Text & Tmp + Chr(13) + Chr(10)
Tmp = Dir()
Loop
Kstr = DirArray(I)
Exist = InStr(Kstr, ".")
If Exist = 0 Then Okno1.Text = Okno1.Text + "C:\Progra~1\7-Zip\7zg.exe" + " " + "A" + " " + Kstr + " " + Kstr + "\" + Chr(13) + Chr(10)
If Exist = 0 Then Print #1, "C:\Progra~1\7-Zip\7zg.exe" + " " + "A" + " " + Kstr + " " + Kstr + "\" + Chr(13) + Chr(10)
Вопрос о пути - программадолжна работать с с того пути, в котором она находится.
Хотелось найти более изящное решение.
Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Хакер писал(а):Dimon111
Ты вообще знаешь, какая разница между App.Path и CurDir ?
? curdir
C:\Program Files\Microsoft Visual Studio\VB98
chdir ".."
? curdir
C:\Program Files\Microsoft Visual Studio
chdir "c:\windows\system32"
? curdir
c:\windows\system32
chdir "drivers\etc\.\..\..\..\.\.\.\fonts\"
? curdir
c:\windows\fonts
chdrive "j:"
? curdir
J:\
chdir "soft"
chdir "fasmw167"
? curdir
J:\soft\fasmw167
chdir "\projects\fbrtl"
? curdir
J:\soft\fasmw167\projects\fbrtl
chdir ".."
chdrive "c:"
chdir ".."
? curdir
c:\windows
chdrive "j:"
? curdir
J:\soft\fasmw167\projects
Хотя следующая строчка честно говоря завела меня в тупик:
chdir "drivers\etc\.\..\..\..\.\.\.\fonts\"
Сейчас этот форум просматривают: SemrushBot и гости: 110